vb.net
vb.net UDP傳送接收聊天室
1 | 下面為傳送端 |
Imports System.Net '網路基礎功能相關函數
Imports System.Net.Sockets '網路連線功能相關函數
Imports System.Text '文字編碼功能相關函數
Public Class Form_send
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim C As New UdpClient
Dim EP As New IPEndPoint(IPAddress.Parse("127.0.0.1"), 2017) '應為目標程式所在之IP
C.Connect(EP)
Dim B() As Byte = Encoding.Default.GetBytes(TextBox1.Text)
C.Send(B, B.Length)
Dim R() As Byte = C.Receive(EP)
TextBox2.Text = TextBox2.Text + Encoding.Default.GetString(R)
End Sub
End Class下面為接收端
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | Imports System.NetImports System.Net.SocketsImports System.TextImports System.ThreadingPublic Class Form_receive Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load '建立執行緒，執行 run 函式 Dim t As Threading.Tasks.Task = Threading.Tasks.Task.Factory.StartNew(AddressOf run) End Sub Sub run() '更新 UI SetUI("執行緒開始", TextBox1) ' SetUI("執行緒結束", TextBox1) Dim U As New UdpClient(2017) Dim A As String Do While True Dim EP As New IPEndPoint(IPAddress.Any, 2017) '建立監聽端點資訊 Dim B() As Byte = U.Receive(EP) A = Encoding.Default.GetString(B) '翻譯資訊為字串 '更新 UI SetUI(A, TextBox1) Dim M As String = "Unknown Command" If A = "Time?" Then M = Now.ToString + "asd" End If B = Encoding.Default.GetBytes(M) U.Send(B, B.Length, EP) '回應詢問資料 Loop ' raise一個事件出來說已經做完了 ' 並將處理完的值回傳回去 End Sub '設定 UI Private Delegate Sub UpdateUI(ByVal msg As String, ByVal con As Control) Sub SetUI(ByVal str As String, ByVal con As Control) If Me.InvokeRequired() Then Dim um As New UpdateUI(AddressOf SetUI) Me.Invoke(um, str, con) Else TextBox1.Text = str End If End SubEnd Class |
Be the First to comment.
