1
Dim th As Threading.Thread
2 Dim tcpl As System.Net.Sockets.TcpListener
3
4
Private 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(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()
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(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48 SendMessage("192.168.0.61", TextBox2.Text)
49 End Sub
Dim th As Threading.Thread2
Dim tcpl As System.Net.Sockets.TcpListener3
4
Private 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 Sub8
9
Public Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)10
Try11
If IP <> "" Then12
Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)13
Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream14
Dim reqStream As New IO.StreamWriter(tcpStream)15
reqStream.Write(SendMsg)16
reqStream.Flush()17
tcpStream.Close()18
tcpc.Close()19
End If20
Catch ex As Exception21
MsgBox(ex.Message.ToString)22
End Try23
End Sub24
Private Sub MyListen()25
Try26
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 True30
Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()31
Dim MyBuffer(1024) As Byte32
Dim i As Integer33
i = s.Receive(MyBuffer)34
If i > 0 Then35
Dim lstrRec As String36
Dim j As Integer37
For j = 0 To i - 138
TextBox1.Text += Chr(MyBuffer(j)) & ","39
Next40
End If41
End While42
Catch ex As Exception43
MsgBox(ex.Message.ToString)44
End Try45
End Sub46
47
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click48
SendMessage("192.168.0.61", TextBox2.Text)49
End Sub