>691 レスありがとうございます！それでは現在テストで動いた以下の スレッド方式でも、悪い方ではないと考えていいでしょうか？ Private Sock1 As New System.Net.Sockets.TcpClient Private Stream As NetworkStream Private myThread As Threading.Thread -----ボタンクリック Private Sub Button1_Click(〜) Handles Button1.Click Sock1.Connect("www.yahoo.co.jp", 80) TextBox1.Text = "" Stream = Sock1.GetStream() Dim ByteSend As Byte() = System.Text.Encoding.ASCII.GetBytes("GET / HTTP/1.0" + vbCrLf + vbCrLf) Stream.Write(ByteSend, 0, ByteSend.Length()) myThread = New Threading.Thread(AddressOf DataArrave) myThread.Start() End Sub -----自作SUB Private Sub DataArrave() Dim ByteRead(2000) As Byte Dim strText As String Dim intLength As Integer Dim lngRevcnt As Long Dim lngRevByt As Long Do intLength = Stream.Read(ByteRead, 0, ByteRead.Length()) lngRevcnt += 1 : lngRevByt += CLng(intLength) Me.Text = "受信パケット数：" & lngRevcnt & " (" & lngRevByt & " byte)" strText += System.Text.Encoding.ASCII.GetString(ByteRead, 0, intLength) If intLength < 1 Then Exit Do Sock1.Close() Loop TextBox1.Text = strText End Sub
