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
13. Sub  WSEvent_DataArrival(bytes)
14. MyString= ""
15. sock.GetData MyString
16. revdata="cilent说：" & MyString
17. MsgBox revdata
18. End Sub
19. While Not  bClose
20. data=InputBox("输入要发送的信息","server发送","")
21. If data<>"" then
22. sock.senddata data
23. WScript.Sleep  1
24. Else
25. WScript.Quit
26. End if
27. 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. Sub  WSEvent_Connect()
10. wscript.echo  "连接成功！"
11. end sub
12. Sub WSEvent_ConnectionRequest(requestID)
13. sock.Close
14. sock.Accept requestID
15. End Sub
16. Sub  WSEvent_DataArrival(bytes)
17. MyString= ""
18. sock.GetData MyString
19. revdata="server说："&MyString
20. MsgBox revdata
21. End Sub
22. While Not  bClose
23. data=InputBox("输入要发送的信息","cilent发送","")
24. If data<>"" Then
25. sock.senddata data
26. WScript.Sleep  1
27. Else
28. WScript.Quit
29. End if
30. Wend

复制代码