vb.net 做的通信程序，設(shè)備掉電后出錯：無法從傳輸連接中讀取數(shù)據(jù): 遠(yuǎn)程主機強迫關(guān)閉了一個現(xiàn)有的連接

看下這個異常的類型 在捕捉異常的時候處理為關(guān)閉并重新打開端口監(jiān)聽（這個看你自己需求） 然后在socketException下面再catch其它exception 進行彈出錯誤提示之類的操作 就可以了

成都創(chuàng)新互聯(lián)公司服務(wù)項目包括岑溪網(wǎng)站建設(shè)、岑溪網(wǎng)站制作、岑溪網(wǎng)頁制作以及岑溪網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，岑溪網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到岑溪省份的部分城市，未來相信會繼續(xù)擴大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

VB.NET使用AxMSComm實現(xiàn)串口通信的發(fā)送讀取問題？

上面的代碼看不出問題，如果初始化串口控件時已經(jīng)注冊了AxMSComm1_OnComm，有數(shù)據(jù)接收應(yīng)該能觸發(fā)，至于為什么沒有觸發(fā)，要看看你的接收方是否已經(jīng)收到你的發(fā)出指令，是否已經(jīng)有響應(yīng)數(shù)據(jù)回發(fā)。

建議分開調(diào)試，用一個通用的串口助手，如格西烽火串口助手之類的，分別調(diào)試你的上位機和下位機。格西烽火串口助手能輕松的定制如你上面的發(fā)送數(shù)據(jù)。

用vb.net實現(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