[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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.   
  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. Sub  WSEvent_DataArrival(bytes)
  18.     MyString= ""
  19.     sock.GetData MyString
  20.     revdata="server说:"&MyString
  21.     MsgBox revdata
  22. End Sub
  23. While Not  bClose
  24.   data=InputBox("输入要发送的信息","cilent发送","")
  25.   
  26.   If data<>"" Then
  27.         sock.senddata data
  28.         WScript.Sleep  1
  29.     Else
  30.         WScript.Quit
  31.   End if
  32. Wend
复制代码

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

评分人数

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

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

TOP

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

TOP

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

TOP

提示:你没有附件链接的

TOP

在哪里下载

TOP

返回列表