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.net 怎么判断 网络是否连接 和取本机局域网IP和互联网IP

你这段代码可以获得该主机名下的所有ip，每个ip地址都是有类型簇的，可以区别本地地址和网络地址、ip6地址。

你获取索引为0的ip，不一定是正确的网络地址，它有时顺序在中间，在后面。

应该获取所有ip，再通过ip地址簇类型区分

判断连接本身有一个函数，不过有时没联网也是真。

可以用ping，ping百度、ping访问速度快、不经常维护断线的网络主机。

vb.net 怎么获取客户端ip地址？

你最好可以换台电脑访问网址看获取IP地址状况。

如果你测试访问的时候,使用的是 localhost 进行访问的,那么服务器端获得的也就是127.0.0.1，因为localhost是一个环路地址,特殊的.如果你是通过你的ip地址进行访问的,那么获得的IP地址就会是正确的了. 要通过自己本地的IP进行访问,在控制面板的网络连接里找到本地连接,查看它的属性,并找到"详细信息"按钮,点击后弹出的对话框中IPV4地址就是本地地址.或打开命令行,输入 ipconfig /all 即可找到本地地址.在浏览器中通过这个IP地址访问,就不会是127.0.0.1了.

用vb.net取得IP重复问题（如何判断是IPv4还是IPv6）

这儿有一个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 运行一个控制台程序并返回其输出参数

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 获取本机全部网卡的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 获取本机主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 获取本机正在使用的IPv4地址

REM 1.一个电脑有多个网卡，有线的、无线的、还有VMare虚拟的两个网卡。

REM 2.就算只有一个网卡，但是该网卡配置了N个IP地址.其中还包括IPv6地址。

REM 3.下面通过查询本机路由表，获取访问默认网关时使用的网卡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地址？请高手帮忙……

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

400分求vb.net,求一个socket的编程实例，详细见问题补充：

至少需要

Imports System

Imports System.Net

Imports System.Net.Sockets

Imports System.Threading

Imports System.Text

还要了解异步与委托

简单点的话

sub tcplisten() '监听过程

Const LPort As Integer = 6850 '本地监听端口

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

'addresslist里面包括IPV6和IPV4

Dim IPEP As New IPEndPoint(IPadd, LPort) '结点

TCPL = New TcpListener(IPEP) ’建立监听实例

TCPL.Start() '开始监听

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

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

TCPLX=TCPL.Accept() ’将第一个接入挂起的连接传给新建SOCKET，因为监听的SOCKET还要继续监听

dim Ripep as  new ipendpoint=TCPLX.RemoteEndPoint '此时获得远程的ip与端口号

listbox.add(ripep.ip)

dim buff as byte()

buff=TCPLX.Receive() 'listenacceptrecieve这时候可以接受数据了

dim s as string=Encoding.Default.GetString(buff) '转换成文本

msg "s"

TCPLX.send(buff) '这个是发送

end if

End Sub

长时间没写，可能有点小错误，你自己调试调试，大概步骤就是listenacceptrecieve，最好看看msdn，那个学起来才系统

名称栏目：vb.netipv6 vb·net
文章转载：http://myzitong.com/article/hihcje.html