1.獲取當(dāng)前電腦名:System.Net.Dns.GetHostName()
成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于做網(wǎng)站、成都網(wǎng)站建設(shè)、長泰網(wǎng)絡(luò)推廣、重慶小程序開發(fā)、長泰網(wǎng)絡(luò)營銷、長泰企業(yè)策劃、長泰品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等,從售前售中售后,我們都將竭誠為您服務(wù),您的肯定,是我們最大的嘉獎;成都創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供長泰建站搭建服務(wù),24小時服務(wù)熱線:13518219792,官方網(wǎng)址:www.cdcxhl.com
2.根據(jù)電腦名取出全部IP地址:System.Net.Dns.Resolve(電腦名).AddressList
或者 System.Net.Dns.GetHostByName(電腦名).AddressList
3.根據(jù)IP地址取出電腦名:System.Net.Dns.Resolve(IP地址).HostName
'要使得引用System.Management有效,先通過菜單
'[項目]--[添加引用],在“.Net”選項卡里,選擇“System.Management”,單擊[確定]
Imports System.Management
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MySearcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
For Each MySearcherObj As ManagementObject In MySearcher.Get
If CBool(MySearcherObj("IPEnabled")) Then
MsgBox(MySearcherObj("IPAddress")(0))
End If
Next
End Sub
End Class
你最好可以換臺電腦訪問網(wǎng)址看獲取IP地址狀況。
如果你測試訪問的時候,使用的是 localhost 進(jìn)行訪問的,那么服務(wù)器端獲得的也就是127.0.0.1,因為localhost是一個環(huán)路地址,特殊的.如果你是通過你的ip地址進(jìn)行訪問的,那么獲得的IP地址就會是正確的了. 要通過自己本地的IP進(jìn)行訪問,在控制面板的網(wǎng)絡(luò)連接里找到本地連接,查看它的屬性,并找到"詳細(xì)信息"按鈕,點擊后彈出的對話框中IPV4地址就是本地地址.或打開命令行,輸入 ipconfig /all 即可找到本地地址.在瀏覽器中通過這個IP地址訪問,就不會是127.0.0.1了.
做exe程序獲取本機(jī)IP地址用
System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList
做web程序獲取客戶端的IP地址用
HttpContext.Current.Request.ServerVariables("REMOTE_ADDR"])