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.将您的调试日志堆积到字符串或文件中，并在运行后查看结果。