VB.NET 如何通過TCP/IP協(xié)議通訊實(shí)現(xiàn)16進(jìn)制數(shù)據(jù)的接收？

傳輸Integer 數(shù)據(jù)類型來傳輸比較方便.因?yàn)镮nteger 的取值可以是0x0000-0xFFFF .當(dāng)你把數(shù)據(jù)發(fā)送到目的主機(jī)后可以利用Hex() 把接收到的數(shù)據(jù)從十進(jìn)制轉(zhuǎn)換到十六進(jìn)制..

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

用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 TCP協(xié)議服務(wù)端ip怎么寫才能使客戶端能通過公網(wǎng)連接進(jìn)來？

需要出口設(shè)備進(jìn)行映射內(nèi)部地址；或使用打洞技術(shù)穿透NAT,但使用TCP打洞非常困難。

參考

穿透NAT是非常困難的，因?yàn)镹AT的過程中在出口路由器上的Port已經(jīng)不是你定義的iPort了，具體是多少也不固定

VB.NET學(xué)做C/S軟件需要學(xué)習(xí)哪些知識(shí)？

我是 vb/asp 轉(zhuǎn) c#/MVC/WPF 的人，可能能給你一點(diǎn)指導(dǎo)

服務(wù)端和客戶端 通常有兩種方式，一種是 socket，一種是 http，

無非是 資料放到服務(wù)器（DataBase），通過接口（如http/socket），與 客戶軟件（如exe） 進(jìn)行數(shù)據(jù)的交互。

先學(xué)一下 TCP/UDP 客戶端、服務(wù)端

再學(xué)一下 HTTP(GET/POST)