| 发表于:2007-02-12 14:40:285楼 得分:0 |
server端: with winsock1 .localport=8000 '服务器本地端口 .protocol=1 .remotehost=192.168.1.2 '远程客户端ip .remoteport=9000 '客户端口 .bind 8000 ‘绑定本地端口 end winsock1 winsock1.senddata txtsenddata.text 客户端: with winsock1 .localport=9000 '本地端口 .protocol=1 .remotehost=192.168.1.1 '远程服务器端ip .remoteport=8000 '服务器端口 .bind 9000 ‘绑定本地端口 end winsock1 private sub winsock1_dataarrival(byval bytestotal as long) winsock1.getdata me.txtarrival.text,vbstring end sub | | |
|