vb.net下的socket编程，简易篇

 1 Dim  th  As  Threading.Thread
 2      Dim  tcpl  As  System.Net.Sockets.TcpListener
 3
 4      Private   Sub Form1_Load() Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 5        th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
 6        th.Start()
 7    End Sub
 8
 9      Public   Sub SendMessage() Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10        Try
11            If IP <> "" Then
12                Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13                Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14                Dim reqStream As New IO.StreamWriter(tcpStream)
15                reqStream.Write(SendMsg)
16                reqStream.Flush()
17                tcpStream.Close()
18                tcpc.Close()
19            End If
20        Catch ex As Exception
21            MsgBox(ex.Message.ToString)
22        End Try
23    End Sub
24      Private   Sub MyListen() Sub MyListen()
25        Try
26            Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27            tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28            tcpl.Start()
29            While True
30                Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31                Dim MyBuffer(1024) As Byte
32                Dim i As Integer
33                i = s.Receive(MyBuffer)
34                If i > 0 Then
35                    Dim lstrRec As String
36                    Dim j As Integer
37                    For j = 0 To i - 1
38                        TextBox1.Text += Chr(MyBuffer(j)) & ","
39                    Next
40                End If
41            End While
42        Catch ex As Exception
43            MsgBox(ex.Message.ToString)
44        End Try
45    End Sub
46
47      Private   Sub Button1_Click() Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48        SendMessage("192.168.0.61", TextBox2.Text)
49    End Sub

转载于:https://www.cnblogs.com/aowind/archive/2005/04/25/144918.html