CSocket - DataArrival未发生（GET请求）

Question

我正在尝试使用CSocket在VB6中执行GET请求。数据发送成功但未收到响应（在多个站点上测试）。我的代码如下。

Option Explicit
Dim WithEvents WinSock As CSocket

Private Sub Form_Load()
Set WinSock = New CSocket
End Sub

Private Sub btnConnect_Click()
WinSock.Protocol = sckTCPProtocol
WinSock.Connect "winhome.de", 80

MsgBox "Connecting..."
End Sub

Private Sub WinSock_OnConnect()
MsgBox "Connected."

Dim Data$
Data = "GET http://www.winhome.de/index.html HTTP/1.0" & vbCrLf & "Accept: */*" & _
vbCrLf & "Accept: text/html" & vbCrLf & vbCrLf

WinSock.SendData Data
MsgBox Data
End Sub

Private Sub WinSock_OnDataArrival(ByVal bytesTotal As Long)
Dim Data$
WinSock.GetData Data, vbString
MsgBox Data
End Sub

OnConnect事件似乎永远不会触发，但可以正常使用WinSock控件，任何帮助？

Answer 1

对于这些场景，您不希望任何“阻塞”调试，包括MsgBox或IDE中断 - 事件会丢失。

E.g。将调试日志累积到字符串或文件中，并在运行后查看结果。