vbs socket

http://www.bathome.net/thread-423-1-1.html

http://files.cnblogs.com/files/developer-ios/mswinsck.ocx_downcc.zip

vbs编写的socket

由于是要用到vb6的控件，即MSWINSCK.OCX，所以如果运行错误，那么下载此附件vb6controls.reg注册

1. '服务端
2. 'by wuditom100
3. '有不足的地方欢迎改进
4. Dim  revdata
5. set  sock=WScript.createobject( "MSWinsock.Winsock" ,  "WSEvent_" )
6. PORT=InputBox ("sever输入要打开的端口：","PORT","")
7.   sock.LocalPort =PORT
8.   sock.Listen
9. Sub WSEvent_ConnectionRequest(requestID)
10.     sock.Close  
11.     sock.Accept requestID
12. End Sub
14. Sub  WSEvent_DataArrival(bytes)
15.     MyString= ""
16.     sock.GetData MyString
17.     revdata="cilent说：" & MyString
18.     MsgBox revdata
19. End Sub
20. While Not  bClose
21.   data=InputBox("输入要发送的信息","server发送","")
22.   If data<>"" then
23.   sock.senddata data
24.   WScript.Sleep  1
25.   Else
26.   WScript.Quit
27.   End if
28. Wend

复制代码

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

1. '客户段
2. 'by wuditom100
3. '有不足的地方欢迎改进
4. Dim  revdata
5. set  sock=WScript.createobject( "MSWinsock.Winsock" ,  "WSEvent_" )
6. IP=InputBox("cilent输入连接的IP：","IP","")
7. PORT=InputBox ("cilent输入连接的PORT：","PORT","")
8. sock.connect  IP , PORT
9.   
10. Sub  WSEvent_Connect()
11.    wscript.echo  "连接成功！"
12. end sub
13. Sub WSEvent_ConnectionRequest(requestID)
14.    sock.Close  
15.    sock.Accept requestID
16. End Sub
18. Sub  WSEvent_DataArrival(bytes)
19.     MyString= ""
20.     sock.GetData MyString
21.     revdata="server说："&MyString
22.     MsgBox revdata
23. End Sub
24. While Not  bClose
25.   data=InputBox("输入要发送的信息","cilent发送","")
26.   
27.   If data<>"" Then
28.         sock.senddata data
29.         WScript.Sleep  1
30.     Else
31.         WScript.Quit
32.   End if
33. Wend

复制代码