Option Explicit

'
'クライアント
'

Private Sub cmdJoin_Click()
    'ネットに接続してない場合は
    'IPの部分に127.0.0.1を指定します
    'ネットに接続している場合は
    'ServerのLocalIPプロパティを指定します
    'ポートですがServerのLocalPortを指定します
    cmdJoin.Enabled = False
    wskClient.Connect "127.0.0.1", 2000
    'wskClient.Connect frmSvr.wskServer.LocalIP, frmSvr.wskServer.LocalIP
    
End Sub

'相手と接続しました
Private Sub wskClient_Connect()
    MsgOut txtOutput, "サーバーと接続しました"
End Sub




'閉じるボタンを押したら接続を閉じます
Private Sub Form_Unload(Cancel As Integer)
    wskClient.Close
End Sub

Private Sub txtSend_KeyPress(KeyAscii As Integer)
    '改行キーを入力しているか調べます
    If KeyAscii = vbKeyReturn Then
        '接続済みか調べます
        If wskClient.State = sckConnected Then
            '一行テキストボックスで改行したときの
            '警告音を消します
            KeyAscii = 0
            
            'テキストボックスに
            '入力したデータを送信します
            wskClient.SendData "クライアント > " & txtSend.Text
            
            '入力したログを残します
            MsgOut txtOutput, "クライアント > " & txtSend.Text
            txtSend.Text = ""
        Else
            MsgOut txtOutput, "まだ接続が確立していません"
        End If
    End If
End Sub

'相手側が接続を閉じました
Private Sub wskClient_Close()
    wskClient.Close
    MsgOut txtOutput, "サーバーと接続を閉じました"
End Sub

'データを受信しました
Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
    Dim strGetData As String
    
    '受信したデータをテキストボックスに出力します
    wskClient.GetData strGetData
    MsgOut txtOutput, strGetData
End Sub

'エラーが発生しました
Private Sub wskServer_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    CancelDisplay = False
End Sub