http - 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

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

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