VB.NET2010 怎么獲取IP

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

創(chuàng)新互聯(lián)公司堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都做網(wǎng)站、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的新都網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

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

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

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

求大神指點(diǎn)vb.net 怎么判斷 網(wǎng)絡(luò)是否連接 和取本機(jī)局域網(wǎng)IP和互聯(lián)網(wǎng)IP

你這段代碼可以獲得該主機(jī)名下的所有ip，每個(gè)ip地址都是有類型簇的，可以區(qū)別本地地址和網(wǎng)絡(luò)地址、ip6地址。

你獲取索引為0的ip，不一定是正確的網(wǎng)絡(luò)地址，它有時(shí)順序在中間，在后面。

應(yīng)該獲取所有ip，再通過(guò)ip地址簇類型區(qū)分

判斷連接本身有一個(gè)函數(shù)，不過(guò)有時(shí)沒(méi)聯(lián)網(wǎng)也是真。

可以用ping，ping百度、ping訪問(wèn)速度快、不經(jīng)常維護(hù)斷線的網(wǎng)絡(luò)主機(jī)。

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

你最好可以換臺(tái)電腦訪問(wèn)網(wǎng)址看獲取IP地址狀況。

如果你測(cè)試訪問(wèn)的時(shí)候,使用的是 localhost 進(jìn)行訪問(wèn)的,那么服務(wù)器端獲得的也就是127.0.0.1，因?yàn)閘ocalhost是一個(gè)環(huán)路地址,特殊的.如果你是通過(guò)你的ip地址進(jìn)行訪問(wèn)的,那么獲得的IP地址就會(huì)是正確的了. 要通過(guò)自己本地的IP進(jìn)行訪問(wèn),在控制面板的網(wǎng)絡(luò)連接里找到本地連接,查看它的屬性,并找到"詳細(xì)信息"按鈕,點(diǎn)擊后彈出的對(duì)話框中IPV4地址就是本地地址.或打開(kāi)命令行,輸入 ipconfig /all 即可找到本地地址.在瀏覽器中通過(guò)這個(gè)IP地址訪問(wèn),就不會(huì)是127.0.0.1了.

用vb.net取得IP重復(fù)問(wèn)題（如何判斷是IPv4還是IPv6）

這兒有一個(gè)C#的參考

我給改寫成了VB.net?看看你能用上不？

Imports System.Diagnostics

Imports System.Text.RegularExpressions

Module mdlIpDns

Public Function RunCMD(ByVal FileName As String, ByVal Arguments As String, ByVal RecordLog As Boolean) As String

REM 運(yùn)行一個(gè)控制臺(tái)程序并返回其輸出參數(shù)

Try

If RecordLog = True Then Trace.WriteLine(FileName + " " + Arguments)

Dim myProc As Process = New Process

myProc.StartInfo.FileName = FileName

myProc.StartInfo.CreateNoWindow = True

myProc.StartInfo.Arguments = Arguments

myProc.StartInfo.RedirectStandardOutput = True

myProc.StartInfo.UseShellExecute = False

myProc.Start()

Dim myStreamReader As System.IO.StreamReader = New System.IO.StreamReader(myProc.StandardOutput.BaseStream, System.Text.Encoding.Default)

Dim myText As String = myStreamReader.ReadToEnd

myStreamReader.Close()

If RecordLog = True Then Trace.WriteLine(myText)

If Not myProc.HasExited Then myProc.Kill()

Return myText

Catch ex As Exception

Trace.WriteLine(ex.ToString)

Return vbNull

End Try

End Function

Public Function GetAllIp() As String

REM 獲取本機(jī)全部網(wǎng)卡的IP地址

GetAllIp = ""

Dim Address() As System.Net.IPAddress

Dim i As Integer

Address = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList

For i = 0 To UBound(Address)

GetAllIp = GetAllIp (Chr(13) Address(i).ToString())

Next

End Function

Public Function GetPrimaryDNS() As String

REM 獲取本機(jī)主DNS

GetPrimaryDNS = ""

Dim m As System.Text.RegularExpressions.Match

Dim myResult As String = RunCMD("nslookup", "", True) '需要RunCMD.mdl

m = Regex.Match(myResult, "\d+\.\d+\.\d+\.\d+")

If m.Success Then

Return m.Value

Else

Return vbNull

End If

End Function

Public Function GetLocalIP() As String

REM 獲取本機(jī)正在使用的IPv4地址

REM 1.一個(gè)電腦有多個(gè)網(wǎng)卡，有線的、無(wú)線的、還有VMare虛擬的兩個(gè)網(wǎng)卡。

REM 2.就算只有一個(gè)網(wǎng)卡，但是該網(wǎng)卡配置了N個(gè)IP地址.其中還包括IPv6地址。

REM 3.下面通過(guò)查詢本機(jī)路由表，獲取訪問(wèn)默認(rèn)網(wǎng)關(guān)時(shí)使用的網(wǎng)卡IP。

Dim m As System.Text.RegularExpressions.Match

Dim myResult As String = RunCMD("route", "print", True) '需要RunCMD.mdl

m = Regex.Match(myResult, "0.0.0.0\s+0.0.0.0\s+(\d+.\d+.\d+.\d+)\s+(\d+.\d+.\d+.\d+)")

If m.Success Then

Return m.Groups(2).Value

Else

Try

Dim myTcpClient As System.Net.Sockets.TcpClient = New System.Net.Sockets.TcpClient

myTcpClient.Connect("", 80) '連接百度判斷IP

Dim myIpPoint As System.Net.IPEndPoint = myTcpClient.Client.LocalEndPoint

Dim myIp As String = myIpPoint.Address.ToString

myTcpClient.Close()

Return myIp

Catch ex As Exception

Return vbNull

End Try

End If

End Function

End Module

怎樣使用vb.net獲取IP地址？請(qǐng)高手幫忙……

MsgBox(System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList(0).ToString)這是vb2008里面的格式，這是顯示自己的IP，不知你是想要獲取哪些IP 呢

400分求vb.net,求一個(gè)socket的編程實(shí)例，詳細(xì)見(jiàn)問(wèn)題補(bǔ)充：

至少需要

Imports?System

Imports?System.Net

Imports?System.Net.Sockets

Imports?System.Threading

Imports?System.Text

還要了解異步與委托

簡(jiǎn)單點(diǎn)的話

sub?tcplisten()?'監(jiān)聽(tīng)過(guò)程

Const?LPort?As?Integer?=?6850?'本地監(jiān)聽(tīng)端口

Dim?IPadd?As?IPAddress?=?Dns.GetHostEntry(Dns.GetHostName()).AddressList(1)?’本地IP

'addresslist里面包括IPV6和IPV4

Dim?IPEP?As?New?IPEndPoint(IPadd,?LPort)?'結(jié)點(diǎn)

TCPL?=?New?TcpListener(IPEP)?’建立監(jiān)聽(tīng)實(shí)例

TCPL.Start()?'開(kāi)始監(jiān)聽(tīng)

If?TCPL.Pending?=?True?Then?'如果有連接接入

Dim?TCPLX?As?New?Socket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp)?'建立一個(gè)新的SOCKET

TCPLX=TCPL.Accept()?’將第一個(gè)接入掛起的連接傳給新建SOCKET，因?yàn)楸O(jiān)聽(tīng)的SOCKET還要繼續(xù)監(jiān)聽(tīng)

dim?Ripep?as??new?ipendpoint=TCPLX.RemoteEndPoint?'此時(shí)獲得遠(yuǎn)程的ip與端口號(hào)

listbox.add(ripep.ip)

dim?buff?as?byte()

buff=TCPLX.Receive()?'listenacceptrecieve這時(shí)候可以接受數(shù)據(jù)了

dim?s?as?string=Encoding.Default.GetString(buff)?'轉(zhuǎn)換成文本

msg?"s"

TCPLX.send(buff)?'這個(gè)是發(fā)送

end?if

End?Sub

長(zhǎng)時(shí)間沒(méi)寫，可能有點(diǎn)小錯(cuò)誤，你自己調(diào)試調(diào)試，大概步驟就是listenacceptrecieve，最好看看msdn，那個(gè)學(xué)起來(lái)才系統(tǒng)

名稱欄目：vb.netipv6 vb·net
文章出自：http://chinadenli.net/article24/hihcje.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、網(wǎng)站策劃、網(wǎng)站設(shè)計(jì)公司、服務(wù)器托管、網(wǎng)站營(yíng)銷、網(wǎng)站設(shè)計(jì)

廣告

聲明：本網(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)