求代码：VB监听端口，获取来访IP，写入txt

求代码：
VB实时监听端口（如80、21），获取连接本机的IP，同时写入txt文件

VB新手，求完整的代码。用Winsock数组、API均可，谢谢！
写得好可以再加分

---

联系我qq 747785527

---

收费啊？不联系

---

Hook NtDeviceIoControlFile

---

作业？

---

帮顶

---

用Timer控件每隔一定时间（比如10秒）调用下面的语句
shell("echo %time%&netstat -na | find "+chr(34)+":80 "+chr(34)+" >>port80_21.log");
shell("echo %time%&netstat -na | find "+chr(34)+":21 "+chr(34)+" >>port80_21.log");
结果在port80_21.log中

---

谁能给个详细的代码啊？

---

引用

用Timer控件每隔一定时间（比如10秒）调用下面的语句
shell("echo %time%&netstat -na | find "+chr(34)+":80 "+chr(34)+" >>port80_21.log");
shell("echo %time%&netstat -na | find "+chr(34)+":21 "+chr(34)+" >>port80_21.log");
结果在port80_21.log中

在vb用shell可以使用bat的命令吗？.我试过了这两个语句不行啊（去了后面的分号也不行）..
shell应该是调用某个程序，不能调用命令吧..
我看如果要这样实现的话可以创建一个bat文件在里面写入上面echo的命令.
在程序执行中就如上面说的用Timer控件每隔一定时间（比如10秒）调用该bat文件.
执行完就把文件删除掉.

---

这样取到的iP有重复的吗？？

---