vb.netip設置的簡單介紹

VB.NET的TCP/IP協議 怎么弄

Dim th As Threading.Thread

創新互聯專業為企業提供茌平網站建設、茌平做網站、茌平網站設計、茌平網站制作等企業網站建設、網頁設計與制作、茌平企業網站模板建站服務，10多年茌平做網站經驗，不只是建網站，更提供有價值的思路和整體網絡服務。

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用程序修改ip地址

做exe程序獲取本機IP地址用

System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList

做web程序獲取客戶端的IP地址用

HttpContext.Current.Request.ServerVariables（"REMOTE_ADDR"]）

vb.net 怎么獲取客戶端ip地址？

你最好可以換臺電腦訪問網址看獲取IP地址狀況。

如果你測試訪問的時候,使用的是 localhost 進行訪問的,那么服務器端獲得的也就是127.0.0.1，因為localhost是一個環路地址,特殊的.如果你是通過你的ip地址進行訪問的,那么獲得的IP地址就會是正確的了. 要通過自己本地的IP進行訪問,在控制面板的網絡連接里找到本地連接,查看它的屬性,并找到"詳細信息"按鈕,點擊后彈出的對話框中IPV4地址就是本地地址.或打開命令行,輸入 ipconfig /all 即可找到本地地址.在瀏覽器中通過這個IP地址訪問,就不會是127.0.0.1了.

VB.NET2010 怎么獲取IP

1.獲取當前電腦名：System.Net.Dns.GetHostName()

2.根據電腦名取出全部IP地址：System.Net.Dns.Resolve(電腦名).AddressList

或者 System.Net.Dns.GetHostByName(電腦名).AddressList

3.根據IP地址取出電腦名：System.Net.Dns.Resolve(IP地址).HostName

當前標題：vb.netip設置的簡單介紹
鏈接URL：http://m.kartarina.com/article16/hiisgg.html

成都網站建設公司_創新互聯，為您提供外貿建站、面包屑導航、網站營銷、外貿網站建設、企業建站、動態網站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯