[以解決]透過固定IP傳資料

請問該如何電腦互傳,利用固定IP傳資料到另一台電腦上的
例如 我在第一台電腦上的VB程式中輸入1,然後另一台電腦VB程式會顯示出1 該如何做到??

darkjack

給你 一個搜尋連結 參考（英文 搜尋）

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

中文搜尋

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

Jeepluo

1.你可以透過通訊的方式來處理，很多書上都有寫聊天室的功能可能拿來參考。
2.利用共用資料方式，配合Timer定時撈資料顯示.
其實方式有很多程，主要是看你的用途

darkjack 發表於 2015-7-28 08:02 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

給你一個搜尋參考 （中文搜尋）
https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&es_t ...

版主你好 我有查過那些東西 但我發現winsock 這個元件 我在我的VB(2010版的)找不到如何新增出來
...

瀏覽完整內容，請先 註冊 或 登入會員

darkjack

希望這個連結搜尋 有幫助到你

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

Jeepluo

Socket 的接收回應  微軟範例如下

1. Imports System
   
2. Imports System.Text
   
3. Imports System.IO
   
4. Imports System.Net
   
5. Imports System.Net.Sockets
   
6. Imports Microsoft.VisualBasic
   
7. 
   
8. Public Class GetSocket
   
9. 
   
10.    Private Shared Function ConnectSocket(server As String, port As Integer) As Socket
    
11.       Dim s As Socket = Nothing
    
12.       Dim hostEntry As IPHostEntry = Nothing      
    
13. 
    
14.          ' Get host related information.
    
15.         hostEntry = Dns.GetHostEntry(server)
    
16. 
    
17.          ' Loop through the AddressList to obtain the supported AddressFamily. This is to avoid
    
18.          ' an exception that occurs when the host host IP Address is not compatible with the address family
    
19.          ' (typical in the IPv6 case).
    
20.       Dim address As IPAddress
    
21. 
    
22.         For Each address In  hostEntry.AddressList
    
23.             Dim endPoint As New IPEndPoint(address, port)
    
24.             Dim tempSocket As New Socket(endPoint.AddressFamily, SocketType.Stream, ProtocolType.Tcp)
    
25. 
    
26.             tempSocket.Connect(endPoint)
    
27. 
    
28.             If tempSocket.Connected Then
    
29.                s = tempSocket
    
30.                Exit For
    
31.             End If
    
32. 
    
33.          Next address
    
34. 
    
35.       Return s
    
36.    End Function
    
37. 
    
38. 
    
39.    ' This method requests the home page content for the specified server.
    
40. 
    
41.    Private Shared Function SocketSendReceive(server As String, port As Integer) As String
    
42.       'Set up variables and String to write to the server.
    
43.       Dim ascii As Encoding = Encoding.ASCII
    
44.       Dim request As String = "GET / HTTP/1.1" + ControlChars.Cr + ControlChars.Lf + "Host: " + server + ControlChars.Cr + ControlChars.Lf + "Connection: Close" + ControlChars.Cr + ControlChars.Lf + ControlChars.Cr + ControlChars.Lf
    
45.       Dim bytesSent As [Byte]() = ascii.GetBytes(request)
    
46.       Dim bytesReceived(255) As [Byte]
    
47. 
    
48.       ' Create a socket connection with the specified server and port.
    
49.       Dim s As Socket = ConnectSocket(server, port)
    
50. 
    
51.       If s Is Nothing Then
    
52.          Return "Connection failed"
    
53.       End If
    
54.       ' Send request to the server.
    
55.       s.Send(bytesSent, bytesSent.Length, 0)
    
56. 
    
57.       ' Receive the server  home page content.
    
58.       Dim bytes As Int32
    
59. 
    
60.       ' Read the first 256 bytes.
    
61.       Dim page as [String] = "Default HTML page on " + server + ":" + ControlChars.Cr + ControlChars.Lf
    
62. 
    
63.       ' The following will block until the page is transmitted.
    
64.       Do
    
65.          bytes = s.Receive(bytesReceived, bytesReceived.Length, 0)
    
66.             page = page + Encoding.ASCII.GetString(bytesReceived, 0, bytes)
    
67.       Loop While bytes > 0
    
68. 
    
69.       Return page
    
70.    End Function
    
71. 
    
72.    'Entry point which delegates to C-style main Private Function
    
73.    Public Overloads Shared Sub Main()
    
74.       Main(System.Environment.GetCommandLineArgs())
    
75.    End Sub
    
76. 
    
77. 
    
78.    Overloads Private Shared Sub Main(args() As String)
    
79.       Dim host As String
    
80.       Dim port As Integer = 80
    
81. 
    
82.       If args.Length = 1 Then
    
83.          ' If no server name is passed as argument to this program,
    
84.          ' use the current host name as default.
    
85.          host = Dns.GetHostName()
    
86.       Else
    
87.          host = args(1)
    
88.       End If
    
89. 
    
90.       Dim result As String = SocketSendReceive(host, port)
    
91. 
    
92.       Console.WriteLine(result)
    
93.    End Sub 'Main
    
94. End Class  

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員