meLayout(False)
End Sub
#End Region
#Region "Winsock Event"
Private Sub sckClient_ConnectEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles sckClient.ConnectEvent
txtChatLog.AppendText("Connected to " & sckClient.RemoteHost & vbCrLf)
txtChatLog.AppendText("Socket State is " & sckClient.SocketHandle & vbCrLf)
End Sub
Private Sub sckClient_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles sckClient.DataArrival
Dim objData As Object
sckClient.GetData(objData, vbString)
txtChatLog.AppendText("Server: " & CStr(objData) & vbCrLf)
End Sub
#End Region
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sckClient.RemoteHost = "127.0.0.1"
sckClient.RemotePort = 1000
sckClient.Bind(8000)
txtChatLog.AppendText("Bind to local Port 8000 and remote port 1000" & vbCrLf)
End Sub
Private Sub btnSend_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click
If txtSaid.Text.Trim = "" Then
MsgBox("Please input the chat the contents", MsgBoxStyle.OKOnly, "UDPChat-Client")
Exit Sub
End If
Try
txtChatLog.AppendText("Client: " & txtSaid.Text & vbCrLf)
sckClient.SendData(CType(txtSaid.Text, Object))
txtSaid.Text = ""
Catch
MsgBox("Error Occured " & Err.Description & vbCrLf & Err.Number, MsgBoxStyle.OKOnly, "UDPChat-Client")
End Try
End Sub
Private Sub txtSaid_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSaid.KeyPress
If (e.KeyChar = Chr(13)) Then
btnSend_Click(sender, New System.EventArgs())
End If
End Sub
End Class
上一页 [1] [2] [3] |
