Winsockについて (ID:118498)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 MSDNのサンプル。 -- Private Sub Form_Load() ' LocalPort プロパティに整数を設定します。 ' Listen メソッドを呼び出します。 tcpServer.LocalPort = 1001 tcpServer.Listen frmClient.Show ' クライアント フォームを表示します。 End Sub Private Sub tcpServer_ConnectionRequest _ (ByVal requestID As Long) ' コントロールの状態が closed (閉じている) であるかどうかを確認しま ' す。閉じていない場合は、 ' 接続を閉じてから新しい ' 接続を受け付けます。 If tcpServer.State <> sckClosed Then _ tcpServer.Close ' requestID パラメーター付きの要求を ' 受け付けます。 tcpServer.Accept requestID End Sub Private Sub txtSendData_Change() ' txtSendData という名前のテキスト ボックス (TextBox) コントロー ' ルに送るデータが入っています。ユーザーがテキストボックスに入力するた ' びに、SendData メソッドを使用してその文字列を送ります。 tcpServer.SendData txtSendData.Text End Sub Private Sub tcpServer_DataArrival _ (ByVal bytesTotal As Long) ' 受信データ用の変数を宣言します。 ' GetData メソッドを呼び出し、txtOutput という名前のテキスト ボック ' スの Textプロパティにそのデータを設定します。 Dim strData As String tcpServer.GetData strData txtOutput.Text = strData End Sub