vb.net取ip地址 vb获取本机ip地址

怎样使用vb.net获取IP地址？请高手帮忙……

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

VB.NET 获取网关IP MAC地址

我找了一些C# 的VB。NET 貌似很少不过都是。NET 平台。你看看吧都应该通用的。

添加对System.Management的引用

using System.Management;

。。。

//获取IP,子网掩码(subnet mask)和默认网关

ManagementClass mc = new ManagementClass( "Win32_NetworkAdapterConfiguration ");

ManagementObjectCollection nics = mc.GetInstances();

foreach(ManagementObject nic in nics)

{

if(Convert.ToBoolean(nic[ "ipEnabled "]) == true)

{

Console.WriteLine((nic[ "IPAddress "] as String[])[0]);

Console.WriteLine((nic[ "IPSubnet "] as String[])[0]);

Console.WriteLine((nic[ "DefaultIPGateway "] as String[])[0]);

}

}

获取硬件信息源代码：

获取硬件信息演示程序：

汉化

利用using System.Management类来获取相应的硬件知识

其实这类东西很容易找到答案的，方法非常多，最常见的API模式，你去搜索吧，保证一把一把的

vb.net如何获取IP地址?

做exe程序获取本机IP地址用

System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList

做web程序获取客户端的IP地址用

HttpContext.Current.Request.ServerVariables（"REMOTE_ADDR"]）

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

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

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

如何在VB中获得用户的IP地址啊，请指教 0

Private Sub Form_Load()

Dim Cpu, Mer, Disk, Mac, Ip, DiskSerial, PCName

strComputer = "."

Cpu = ""

Mer = ""

Disk = ""

Mac = ""

Ip = ""

DiskSerial = ""

PCName = ""

'密码初始化标签

TePs.Text = ""

'获得CPU信息

Set objWMIService = GetObject("winmgmts:\\" strComputer)

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")

For Each objItem In colItems

Cpu = objItem.Name

Next

TeCpu.Text = Trim(Cpu)

'获得内存信息

Set wbemObjectSet = objWMIService.InstancesOf("Win32_LogicalMemoryConfiguration") 'Win32_LogicalMemoryConfiguration Win32_PhysicalMemory

For Each wbemObject In wbemObjectSet

Mer1 = wbemObject.TotalPhysicalMemory ' "KB"

Next

Mer = Int(((CLng(Mer1)) / 1024 * 10) / 10)

TeMer.Text = CStr(Mer) "MB"

'获得硬盘信息

Set wbemObjectSet = objWMIService.InstancesOf("Win32_DiskDrive")

For Each wbemObject In wbemObjectSet

Disk = wbemObject.Model

Next

TeDisk.Text = Disk

Set wbemObjectSet = objWMIService.InstancesOf("Win32_DiskDrive")

For Each wbemObject In wbemObjectSet

DiskSerial = wbemObject.Signature

Next

TeHd_serial.Text = DiskSerial

'获得MAC信息

Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each objItem In colItems

Mac = Mac + " " + objItem.macaddress

Next

TeMac.Text = Replace(Trim(Mac), ":", "-")

'获得电脑名称

Set colItems = objWMIService.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each objItem In colItems

PCName = objItem.DNSHostName

Next

TePcName.Text = PCName

strComputer = "."

Set objWMI = GetObject("winmgmts://" strComputer "/root/cimv2")

Set colIP = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each Ip In colIP

If Not IsNull(Ip.ipaddress) Then

For I = LBound(Ip.ipaddress) To UBound(Ip.ipaddress)

'Mac = Ip.macaddress(I)objObject.DNSHostName

If Ip.ipaddress(I) = "0.0.0.0" Then

Else

TeIp.Text = Trim(TeIp.Text + " " + Ip.ipaddress(I))

End If

'MsgBox "IP 地址:" IP.ipaddress(I) Chr(10) _

"网卡类型:" IP.Description(I) Chr(10) _

"网卡地址:" IP.macaddress(I)

Next

End If

Next

'Set wbemObjectSet = objWMIService.InstancesOf("Win32_NetworkAdapterConfiguration")

'For Each wbemObject In wbemObjectSet

' Mac = wbemObject.MACAddress

'Next

'TeMac.Text = Mac

'获得ip 及电脑名称信息

'Set winIP = GetObject("Win32_NetworkAdapterConfiguration") 'CreateObject("MSWinsock.Winsock")

'TeIp.Text = winIP.localip

'TePcName.Text = winIP.LocalHostName

End Sub

电脑有两张网卡。如何用vb.net分别获取网卡的IP?求大神明路！

'要使得引用System.Management有效vb.net取ip地址，先通过菜单

'[项目]--[添加引用]vb.net取ip地址，在“.Net”选项卡里vb.net取ip地址，选择“System.Management”vb.net取ip地址，单击[确定]

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

关于vb.net取ip地址和vb获取本机ip地址的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。