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

創新互聯公司專注為客戶提供全方位的互聯網綜合服務,包含不限于網站設計、成都做網站、陵城網絡推廣、微信小程序定制開發、陵城網絡營銷、陵城企業策劃、陵城品牌公關、搜索引擎seo、人物專訪、企業宣傳片、企業代運營等,從售前售中售后,我們都將竭誠為您服務,您的肯定,是我們最大的嘉獎;創新互聯公司為所有大學生創業者提供陵城建站搭建服務,24小時服務熱線:13518219792,官方網址:www.yijiale78.com
2.根據電腦名取出全部IP地址:System.Net.Dns.Resolve(電腦名).AddressList
或者 System.Net.Dns.GetHostByName(電腦名).AddressList
3.根據IP地址取出電腦名:System.Net.Dns.Resolve(IP地址).HostName
做exe程序獲取本機IP地址用
System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList
做web程序獲取客戶端的IP地址用
HttpContext.Current.Request.ServerVariables("REMOTE_ADDR"])
你這段代碼可以獲得該主機名下的所有ip,每個ip地址都是有類型簇的,可以區別本地地址和網絡地址、ip6地址。
你獲取索引為0的ip,不一定是正確的網絡地址,它有時順序在中間,在后面。
應該獲取所有ip,再通過ip地址簇類型區分
判斷連接本身有一個函數,不過有時沒聯網也是真。
可以用ping,ping百度、ping訪問速度快、不經常維護斷線的網絡主機。
Dim IPAdress As System.Net.IPAddress
HostName = System.Net.Dns.GetHostName '獲得本機的機器名
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '獲得本機的IP
Me.TextBox1.Text = HostName '本機機器名
Me.TextBox2.Text = IPAdress.ToString '本機的IP
網站題目:vb點虐
本機ip vb獲取本機ip地址
URL標題:http://www.yijiale78.com/article42/ddjgjec.html
成都網站建設公司_創新互聯,為您提供品牌網站設計、品牌網站建設、微信公眾號、網站建設、App開發、服務器托管
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯