vb.net網(wǎng)絡(luò)與通訊,vb和net的關(guān)系
VB與VB.NET串口及以太網(wǎng)通迅
關(guān)于串口通訊的問題：
創(chuàng)新互聯(lián)是一家專注于成都網(wǎng)站制作、成都做網(wǎng)站、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)與策劃設(shè)計(jì),濟(jì)陽(yáng)網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)10年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:濟(jì)陽(yáng)等地區(qū)。濟(jì)陽(yáng)做網(wǎng)站價(jià)格咨詢:18980820575
很明顯，你還不知道（不會(huì)、不習(xí)慣）使用事件驅(qū)動(dòng)的方式接收數(shù)據(jù)。
建議你仔細(xì)看看串口組件（無(wú)論VB6還是VB.net）的OnComm事件，你的問題很容易解決。
關(guān)于以太網(wǎng)通訊：
在TCP通訊中端口確實(shí)可以重用，你百度一下“TCP端口重用”能查到很多示例。
但絕大多數(shù)情況下不推薦端口重用，而應(yīng)該采取服務(wù)器端建立連接池的方法。
或者，干脆不用TCP，用UDP解決也可以。
如何在VB.NET中用Socket類實(shí)現(xiàn)局域網(wǎng)中的通信問題
Private Sub Form_Load()
With Winsock1
.RemoteHost = "124.135.13.106" '對(duì)方的IP
.RemotePort = 1002 ' 對(duì)方的端口號(hào)
.Bind 1001 ' 本機(jī)的端口號(hào)
End With
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData '接收字節(jié)
List1.AddItem strData
End Sub
這個(gè)用UDP進(jìn)行連接的。只不過(guò)是對(duì)單個(gè)機(jī)器進(jìn)行的。
用vb.net實(shí)現(xiàn)網(wǎng)絡(luò)通信
用 vb.net socket通信
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
本文題目：vb.net網(wǎng)絡(luò)與通訊,vb和net的關(guān)系
路徑分享：http://m.jiaotiyi.com/article/hsppej.html