平码公式规律出肖|平码可以买3个平码吗

VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)

VB愛好者樂園(VBGood)

 找回密碼
 立即注冊
搜索
查看: 917|回復: 1
打印 上一主題 下一主題

[求助] vb winsock 監聽一會兒就斷開監聽了 請求大佬們幫助

[復制鏈接]
跳轉到指定樓層
1
發表于 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
復制代碼
2
發表于 2019-4-22 09:27:47 | 只看該作者
winsock1 始終進行監聽
當收到客戶端 請求時 用另一個winsock 接受
回復 支持 反對

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

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

GMT+8, 2019-5-2 14:49

VB愛好者樂園(VBGood)
快速回復 返回頂部 返回列表
平码公式规律出肖