vb.net下的socket编程,简易篇
1
Dim th As Threading.Thread
2
Dim tcpl As System.Net.Sockets.TcpListener
3![](/Images/OutliningIndicators/None.gif)
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![](/Images/OutliningIndicators/None.gif)
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![](/Images/OutliningIndicators/None.gif)
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
![](/Images/OutliningIndicators/None.gif)
2
![](/Images/OutliningIndicators/None.gif)
3
![](/Images/OutliningIndicators/None.gif)
4
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
5
![](/Images/OutliningIndicators/InBlock.gif)
6
![](/Images/OutliningIndicators/InBlock.gif)
7
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
8
![](/Images/OutliningIndicators/None.gif)
9
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
10
![](/Images/OutliningIndicators/InBlock.gif)
11
![](/Images/OutliningIndicators/InBlock.gif)
12
![](/Images/OutliningIndicators/InBlock.gif)
13
![](/Images/OutliningIndicators/InBlock.gif)
14
![](/Images/OutliningIndicators/InBlock.gif)
15
![](/Images/OutliningIndicators/InBlock.gif)
16
![](/Images/OutliningIndicators/InBlock.gif)
17
![](/Images/OutliningIndicators/InBlock.gif)
18
![](/Images/OutliningIndicators/InBlock.gif)
19
![](/Images/OutliningIndicators/InBlock.gif)
20
![](/Images/OutliningIndicators/InBlock.gif)
21
![](/Images/OutliningIndicators/InBlock.gif)
22
![](/Images/OutliningIndicators/InBlock.gif)
23
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
24
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
25
![](/Images/OutliningIndicators/InBlock.gif)
26
![](/Images/OutliningIndicators/InBlock.gif)
27
![](/Images/OutliningIndicators/InBlock.gif)
28
![](/Images/OutliningIndicators/InBlock.gif)
29
![](/Images/OutliningIndicators/InBlock.gif)
30
![](/Images/OutliningIndicators/InBlock.gif)
31
![](/Images/OutliningIndicators/InBlock.gif)
32
![](/Images/OutliningIndicators/InBlock.gif)
33
![](/Images/OutliningIndicators/InBlock.gif)
34
![](/Images/OutliningIndicators/InBlock.gif)
35
![](/Images/OutliningIndicators/InBlock.gif)
36
![](/Images/OutliningIndicators/InBlock.gif)
37
![](/Images/OutliningIndicators/InBlock.gif)
38
![](/Images/OutliningIndicators/InBlock.gif)
39
![](/Images/OutliningIndicators/InBlock.gif)
40
![](/Images/OutliningIndicators/InBlock.gif)
41
![](/Images/OutliningIndicators/InBlock.gif)
42
![](/Images/OutliningIndicators/InBlock.gif)
43
![](/Images/OutliningIndicators/InBlock.gif)
44
![](/Images/OutliningIndicators/InBlock.gif)
45
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
46
![](/Images/OutliningIndicators/None.gif)
47
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
48
![](/Images/OutliningIndicators/InBlock.gif)
49
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)