Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

創(chuàng)新互聯(lián)公司專注于日土企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站設(shè)計(jì),購(gòu)物商城網(wǎng)站建設(shè)。日土網(wǎng)站建設(shè)公司,為日土等地區(qū)提供建站服務(wù)。全流程按需定制開發(fā),專業(yè)設(shè)計(jì),全程項(xiàng)目跟蹤,創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)
Dim cc() As System.Net.IPAddress = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList
Dim str As String = ""
For Each ws In cc
str = str ws.ToString vbCrLf
Next
MsgBox(str)
End Sub
你最好可以換臺(tái)電腦訪問網(wǎng)址看獲取IP地址狀況。
如果你測(cè)試訪問的時(shí)候,使用的是 localhost 進(jìn)行訪問的,那么服務(wù)器端獲得的也就是127.0.0.1,因?yàn)閘ocalhost是一個(gè)環(huán)路地址,特殊的.如果你是通過你的ip地址進(jìn)行訪問的,那么獲得的IP地址就會(huì)是正確的了. 要通過自己本地的IP進(jìn)行訪問,在控制面板的網(wǎng)絡(luò)連接里找到本地連接,查看它的屬性,并找到"詳細(xì)信息"按鈕,點(diǎn)擊后彈出的對(duì)話框中IPV4地址就是本地地址.或打開命令行,輸入 ipconfig /all 即可找到本地地址.在瀏覽器中通過這個(gè)IP地址訪問,就不會(huì)是127.0.0.1了.
Private?Sub?WebBrowser1_DocumentCompleted(ByVal?sender?As?Object,?ByVal?e?As?System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)?Handles?WebBrowser1.DocumentCompleted
Dim?str?As?String
str?=?Me.WebBrowser1.Document.Body.InnerHtml
Dim?a?As?Integer?=?0
Dim?b?As?Integer?=?0
a?=?InStr(str,?"[")
b?=?InStr(str,?"]")
TextBox1.Text?=?Mid(str,?a?+?1,?b?-?a?-?1)
End?Sub
Private?Sub?Form1_Load(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Me.Load
Me.WebBrowser1.Navigate("
)
End?Sub
End?Class
網(wǎng)頁(yè)上顯示的有點(diǎn)問題,form1_load 中代碼是:Me.WebBrowser1.Navigate("")
原理:訪問查IP網(wǎng)頁(yè)后,獲取網(wǎng)頁(yè)上顯示的本機(jī)外網(wǎng)ip地址
1.綁定的ip是服務(wù)器的ip地址,服務(wù)器是固定的,客戶端連接的是一個(gè)已知的服務(wù)器端。
2.客戶端的話,連接到服務(wù)器時(shí),服務(wù)器accept后,就可以獲得客戶端的連接信息,包括ip地址和端口。
我是學(xué)c的,在c語(yǔ)言中,socket-bind-listen-accept-....,在accept函數(shù)中有選項(xiàng),如下caddr結(jié)構(gòu)體中就存有accept后客戶端的ip地址
連接端口和傳輸方式等信息,clientsock[1]則為accept新的描述符,如你程序中soc2一樣
。
clientsock[1]
=
accept(sfd,(struct
sockaddr*)caddr,len);
vb中應(yīng)該也有類時(shí)的函數(shù),你網(wǎng)上好好找一下,或者看看相關(guān)書籍.
MsgBox(System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList(0).ToString)這是vb2008里面的格式,這是顯示自己的IP,不知你是想要獲取哪些IP 呢
Dim IPAdress As System.Net.IPAddress
HostName = System.Net.Dns.GetHostName '獲得本機(jī)的機(jī)器名
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '獲得本機(jī)的IP
Me.TextBox1.Text = HostName '本機(jī)機(jī)器名
Me.TextBox2.Text = IPAdress.ToString '本機(jī)的IP
網(wǎng)站題目:vb.net獲取ip,vb文件讀取
分享鏈接:http://chinadenli.net/article23/dsejijs.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站改版、靜態(tài)網(wǎng)站、網(wǎng)頁(yè)設(shè)計(jì)公司、搜索引擎優(yōu)化、商城網(wǎng)站、手機(jī)網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)