VB.NET和PLC通訊 ，小白有問(wèn)。

這個(gè)圈里的是通訊過(guò)程中傳送的Asc碼，包含了PLc的站號(hào)地址、指令、起始符等內(nèi)容，具體要看你的PLc通訊協(xié)議。通訊與開(kāi)關(guān)量是兩回事，你得補(bǔ)習(xí)下與通訊相關(guān)的內(nèi)容。

為大武口等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及大武口網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、大武口網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

如何實(shí)現(xiàn)vb.net的socket雙向通訊，客戶端既要發(fā)送消息也要接收服務(wù)器端返回的結(jié)果

接收到客戶端數(shù)據(jù)，處理完畢........

//返回信息給客戶端

string sendStr = "ok!Client send message successful!";

byte[] bs = Encoding.ASCII.GetBytes(sendStr);

client.Send(bs, bs.Length, 0);

//關(guān)閉套接字

client.Close();

.............客戶端發(fā)送完數(shù)據(jù)等待服務(wù)端返回處理結(jié)果.............

/**/

///接受從服務(wù)器返回的信息

string recvStr = "";

byte[] recvBytes = new byte[1024];

int bytes;

bytes = client.Receive(recvBytes, recvBytes.Length, 0);//從服務(wù)器端接受返回信息

recvStr += Encoding.ASCII.GetString(recvBytes, 0, bytes);

label15.Text = DateTime.Now.ToString() + ":" + recvStr;//顯示服務(wù)器返回信息

///一定記著用完socket后要關(guān)閉

//關(guān)閉套接字

client.Close();

VB與VB.NET串口及以太網(wǎng)通迅

關(guān)于串口通訊的問(wèn)題：

很明顯，你還不知道（不會(huì)、不習(xí)慣）使用事件驅(qū)動(dòng)的方式接收數(shù)據(jù)。

建議你仔細(xì)看看串口組件（無(wú)論VB6還是VB.net）的OnComm事件，你的問(wèn)題很容易解決。

關(guān)于以太網(wǎng)通訊：

在TCP通訊中端口確實(shí)可以重用，你百度一下“TCP端口重用”能查到很多示例。

但絕大多數(shù)情況下不推薦端口重用，而應(yīng)該采取服務(wù)器端建立連接池的方法。

或者，干脆不用TCP，用UDP解決也可以。

用VB.NET編程，實(shí)現(xiàn)一個(gè)客戶端和一個(gè)服務(wù)器能連接并通訊，急啊

自學(xué)還是必要的

你去看看TcpServerChannel TcpClient類

msdn鏈接地址

VB.NET 如何實(shí)現(xiàn)局域網(wǎng)內(nèi)即時(shí)會(huì)話

樓主你好,你所指的那個(gè)指令就是"winchat",Windows自帶的局域網(wǎng)聊天工具.使用方法:開(kāi)始--運(yùn)行--輸入winchat,就可以打開(kāi)Winchat了.只能實(shí)現(xiàn)很簡(jiǎn)單的功能,并且是中文,沒(méi)什么好介紹的,相信你一看就懂,希望可以幫到你!

ps:你所說(shuō)的電影是杜拉拉升職記吧?貌似那是用的郵件發(fā)的,不小心點(diǎn)成群發(fā)了~嘿嘿..

用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

網(wǎng)站標(biāo)題：包含vb.net即時(shí)通訊的詞條
文章源于：http://chinadenli.net/article38/dsipopp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供企業(yè)建站、服務(wù)器托管、網(wǎng)站排名、用戶體驗(yàn)、云服務(wù)器、營(yíng)銷型網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)