VB愛好者樂園(VBGood)

標題: vb winsock 監聽一會兒就斷開監聽了 請求大佬們幫助 [打印本頁]

作者: 穿著開襠褲    時間: 2019-4-10 13:26
標題: vb winsock 監聽一會兒就斷開監聽了 請求大佬們幫助
  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
復制代碼

作者: atyogzx    時間: 2019-4-22 09:27
winsock1 始終進行監聽
當收到客戶端 請求時 用另一個winsock 接受




歡迎光臨 VB愛好者樂園(VBGood) (http://www.umjqsa.live/) Powered by Discuz! X3.3
守车人游戏