私はWinsock
コントロールを使用しています:winsockがファイルの受信を完了したことを知るには?
Private Sub Form_Load()
Winsock1.Connect "stackoverflow.com", 80
End Sub
Private Sub Winsock1_Close()
Winsock1.Close
End Sub
Private Sub Winsock1_Connect()
Winsock1.SendData "GET /questions/8624871/vb6-alternative-to-inet-webbrowser-control HTTP/1.1" & vbCrLf & "Host: stackoverflow.com" & vbCrLf & vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s, vbString
RichTextBox1.Text = RichTextBox1.Text & s
End Sub
にはどうすればヘッダがContent-Length
が含まれていない場合には、制御ファイルを受信完了したことを知ることができますか?
Winsock1.state
が0
の場合、接続が閉じていることを意味しますが、時には7
のように他の状態にとどまることがあるので、別の解決策が必要です。