VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1184|回复: 1

[求助] vb winsock 监听一会儿就断开监听了 请求大佬们帮助

[复制链接]
发表于 2019-4-10 13:26:20 | 显示全部楼层 |阅读模式
  1. Private Sub Form_Load()
  2. Timer1.Interval = 1
  3. winsock1.LocalPort = 1001 '监听端口
  4. If winsock1.State = sckClosed Then
  5. winsock1.Listen
  6. End If
  7. Text1.Text = "监听中." & Now
  8. Open "日志.txt " For Append As #1 '以输出方式打开文件"
  9. Print #1, "1【运行成功】=" & Text1.Text
  10. Close #1 ' 关闭文件
  11. End Sub
  12.  
  13.  
  14. Private Sub Timer1_Timer()
  15. Text1.Text = "监听中." & Now
  16. If winsock1.State = sckClosed Then
  17. winsock1.LocalPort = 1001 '监听端口
  18. winsock1.Listen
  19. End If
  20. End Sub
  21.  
  22. Private Sub winsock1_Close()
  23. If winsock1.State = sckClosed Then
  24. winsock1.Listen
  25. End If
  26. End Sub
  27. Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)
  28. If winsock1.State <> sckClosed Then winsock1.Close
  29. winsock1.Accept requestID
  30. End Sub
复制代码
发表于 2019-4-22 09:27:47 | 显示全部楼层
winsock1 始终进行监听
当收到客户端 请求时 用另一个winsock 接受
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-6-17 12:33

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表