找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
感激所有對伊莉作出奉獻的人伊莉需要你的贊助和支持安全提問(回答) 和 永久尊貴會員 事宜
ntr催眠銀魂旬果幼女鬼滅之刃
daddy'sstars 95clo姫騎士帝國守門世紀帝國亂倫

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]非自願的不死冒險

[BD繁]劇場版 少女與

✡ 斗破蒼穹 年番/鬥

斗破蒼穹 年番 鬥破蒼

[繁]女王的手術刀09-

[繁]異修羅10-
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 4501|回復: 5

[問題] [以解決]透過固定IP傳資料[複製鏈接]

t628x7600 該用戶已被刪除
發表於 2015-7-28 05:43 PM|顯示全部樓層
本帖最後由 t628x7600 於 2015-8-2 12:23 PM 編輯

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

若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

  專 家(12000/24000)

偶素程式設計下的產物「浻」

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
1412
積分
17880 點
潛水值
38207 米
發表於 2015-7-28 08:01 PM|顯示全部樓層
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php
給你 一個搜尋連結 參考(英文 搜尋)
下載: 訪客無法瀏覽下載點,請先 註冊登入會員


中文搜尋
下載: 訪客無法瀏覽下載點,請先 註冊登入會員


本人 都是寫 vb.net 如果看到本人的原創 請自備 .Net FrameWork 3.5
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。

使用道具檢舉

帖子
372
積分
21 點
潛水值
5911 米
發表於 2015-7-29 12:34 PM|顯示全部樓層
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。
1.你可以透過通訊的方式來處理,很多書上都有寫聊天室的功能可能拿來參考。
2.利用共用資料方式,配合Timer定時撈資料顯示.
其實方式有很多程,主要是看你的用途
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

t628x7600 該用戶已被刪除
發表於 2015-7-29 05:06 PM|顯示全部樓層
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
darkjack 發表於 2015-7-28 08:02 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

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

版主你好 我有查過那些東西 但我發現winsock 這個元件 我在我的VB(2010版的)找不到如何新增出來
...
瀏覽完整內容,請先 註冊登入會員
若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

  專 家(12000/24000)

偶素程式設計下的產物「浻」

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
1412
積分
17880 點
潛水值
38207 米
發表於 2015-7-29 06:23 PM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。
希望這個連結搜尋 有幫助到你

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






本人 都是寫 vb.net 如果看到本人的原創 請自備 .Net FrameWork 3.5
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

使用道具檢舉

帖子
372
積分
21 點
潛水值
5911 米
發表於 2015-8-1 11:18 PM|顯示全部樓層
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. Public Class GetSocket

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

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

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

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

  20.             tempSocket.Connect(endPoint)

  21.             If tempSocket.Connected Then
  22.                s = tempSocket
  23.                Exit For
  24.             End If

  25.          Next address

  26.       Return s
  27.    End Function


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

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

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

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

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

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

  46.       ' The following will block until the page is transmitted.
  47.       Do
  48.          bytes = s.Receive(bytesReceived, bytesReceived.Length, 0)
  49.             page = page + Encoding.ASCII.GetString(bytesReceived, 0, bytes)
  50.       Loop While bytes > 0

  51.       Return page
  52.    End Function

  53.    'Entry point which delegates to C-style main Private Function
  54.    Public Overloads Shared Sub Main()
  55.       Main(System.Environment.GetCommandLineArgs())
  56.    End Sub


  57.    Overloads Private Shared Sub Main(args() As String)
  58.       Dim host As String
  59.       Dim port As Integer = 80

  60.       If args.Length = 1 Then
  61.          ' If no server name is passed as argument to this program,
  62.          ' use the current host name as default.
  63.          host = Dns.GetHostName()
  64.       Else
  65.          host = args(1)
  66.       End If

  67.       Dim result As String = SocketSendReceive(host, port)

  68.       Console.WriteLine(result)
  69.    End Sub 'Main
  70. End Class  
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部