1

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 コントロールでは問題なく動作します。

4

1 に答える 1

0

MsgBoxこれらのシナリオでは、IDE の中断を含む「ブロッキング」デバッグは必要ありません。イベントは失われます。

たとえば、デバッグ ログを文字列またはファイルに蓄積し、実行後に結果を確認します。

于 2012-06-26T02:23:01.333 に答える