vbs编写的socket

wuditom100

由于是要用到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. 
    
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
    
17. 
    
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

复制代码

[ 本帖最后由 Batcher 于 2009-5-16 14:21 编辑 ]

youxi01

不错,这个好玩,和大学刚开始学vb时的写的那段通信程序何其相似?!
不过没有去测试究竟能不能用

加分鼓励
也希望本论坛能快速涌现一批vbs高手!!!

wuditom100

是的,学会用VB编程,我觉得用VBS有时同样可以的,不过VB的控件就是有些限制

Randy

刚开始是dos，又学了网页制作，又接着是批处理，现在还得了解vbs。累啊

Randy

提示：你没有附件链接的

czweb

在哪里下载