查看完整版本: [以解決]透過固定IP傳資料

論壇 › Visual Basic 語言 › [以解決]透過固定IP傳資料

t628x7600 發表於 2015-7-28 05:43 PM

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

本帖最後由 t628x7600 於 2015-8-2 12:23 PM 編輯

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

<div></div>

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

給你 一個搜尋連結 參考（英文 搜尋）
https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&es_th=1&ie=UTF-8#es_th=1&q=vb%20peer%20to%20peer%20chat

中文搜尋
https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&es_th=1&ie=UTF-8#q=vb+%E5%A4%9A%E4%BA%BA%E8%81%8A%E5%A4%A9

Jeepluo 發表於 2015-7-29 12:34 PM

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

t628x7600 發表於 2015-7-29 05:06 PM

darkjack 發表於 2015-7-28 08:02 PM static/image/common/back.gif
給你一個搜尋參考 （中文搜尋）
https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&es_t ...

版主你好 我有查過那些東西 但我發現winsock 這個元件 我在我的VB(2010版的)找不到如何新增出來
網路上的教學都是VB6舊版的 目前卡在這個點...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

darkjack 發表於 2015-7-29 06:23 PM

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

https://www.google.com/search?q=vb2010+winsock+control&oq=vb2010+winsock&aqs=chrome.1.69i57j0l4.7271j0j4&sourceid=chrome&es_sm=122&ie=UTF-8
<br><br><br><br><br><div></div>

Jeepluo 發表於 2015-8-1 11:18 PM

Socket 的接收回應  微軟範例如下Imports System
Imports System.Text
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports Microsoft.VisualBasic

Public Class GetSocket

   Private Shared Function ConnectSocket(server As String, port As Integer) As Socket
      Dim s As Socket = Nothing
      Dim hostEntry As IPHostEntry = Nothing      

         ' Get host related information.
        hostEntry = Dns.GetHostEntry(server)

         ' Loop through the AddressList to obtain the supported AddressFamily. This is to avoid
         ' an exception that occurs when the host host IP Address is not compatible with the address family
         ' (typical in the IPv6 case).
      Dim address As IPAddress

        For Each address In  hostEntry.AddressList
            Dim endPoint As New IPEndPoint(address, port)
            Dim tempSocket As New Socket(endPoint.AddressFamily, SocketType.Stream, ProtocolType.Tcp)

            tempSocket.Connect(endPoint)

            If tempSocket.Connected Then
               s = tempSocket
               Exit For
            End If

         Next address

      Return s
   End Function


   ' This method requests the home page content for the specified server.

   Private Shared Function SocketSendReceive(server As String, port As Integer) As String
      'Set up variables and String to write to the server.
      Dim ascii As Encoding = Encoding.ASCII
      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
      Dim bytesSent As () = ascii.GetBytes(request)
      Dim bytesReceived(255) As

      ' Create a socket connection with the specified server and port.
      Dim s As Socket = ConnectSocket(server, port)

      If s Is Nothing Then
         Return "Connection failed"
      End If
      ' Send request to the server.
      s.Send(bytesSent, bytesSent.Length, 0)

      ' Receive the server  home page content.
      Dim bytes As Int32

      ' Read the first 256 bytes.
      Dim page as = "Default HTML page on " + server + ":" + ControlChars.Cr + ControlChars.Lf

      ' The following will block until the page is transmitted.
      Do
         bytes = s.Receive(bytesReceived, bytesReceived.Length, 0)
            page = page + Encoding.ASCII.GetString(bytesReceived, 0, bytes)
      Loop While bytes >...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>