關于vb.net兩臺機子通信的信息

VB.Net 關于路由器后TCP或UDP通訊問題假設一臺電腦192.168.0.1位于路由1.

端口不NAT，兩個子網中的兩端之間不可能通信。至少要有一方處在公網下或有路由端口映射，不必雙方都映射。

成都創新互聯是專業的臺州網站建設公司，臺州接單;提供網站設計、網站制作,網頁設計,網站設計,建網站,PHP網站建設等專業做網站服務;采用PHP框架,可快速的進行臺州網站開發網頁制作和功能擴展;專業做搜索引擎喜愛的網站,專業的做網站團隊,希望更多企業前來合作!

建議題主找本計算機網絡的書研讀一下子網劃分這塊兒。

用vb.net實現網絡通信

用 vb.net socket通信

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

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

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

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中用Socket類實現局域網中的通信問題

Private Sub Form_Load()

With Winsock1

.RemoteHost = "124.135.13.106" '對方的IP

.RemotePort = 1002 ' 對方的端口號

.Bind 1001 ' 本機的端口號

End With

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strData As String

Winsock1.GetData strData '接收字節

List1.AddItem strData

End Sub

這個用UDP進行連接的。只不過是對單個機器進行的。

vb.net從一臺主機通過socket同時向多臺主機傳送信息，如何操作？

用VB5 Winsock控件創建TCP/IP通訊程序隨著Windows 95中文版和Windows NT Server 4.0中文版的流行， Microsoft公司推出了相應平臺上的開發軟件: Visual Basic 5.0 中文企業版。它為Windows環境下的網絡開發提供了強大的工具，Winsock控件就是其中之一。 Winsock控件建立在TCP、UDP協議的基礎上，完成與遠程計算機的通信。即使對TCP/IP不太熟悉的用戶，使用該控件也可以在十幾分鐘內創建一個簡單的客戶機/服務器程序。下面我們對Winsock控件的事件、方法、屬性按其在程序中出現的順序分別作詳細的介紹，以便更好地理解程序源代碼。

網頁標題：關于vb.net兩臺機子通信的信息
本文地址：http://m.newbst.com/article24/hjhcce.html

成都網站建設公司_創新互聯，為您提供動態網站、定制開發、網站建設、建站公司、軟件開發、網站制作