VB.NET获取局域网IP和MAC地址

概述方法很简单，而且适用于windows xp/2003/vista/7/2008。 运行效果如下： 众所周知，在windows下的命令行程序arp能给我们返回ARP表，那么一切问题就迎刃而解了。在调用arp前，我们只需要做的就是ping 局域网内的ip，最后通过调用arp指令即可获取全部的ip和mac信息了 １首先简历一个bat批处理文件，当然，你可以在调用前动态创建 在C:\创建一个a.bat,其

方法很简单，而且适用于windows xp/2003/vista/7/2008。

运行效果如下：

众所周知，在windows下的命令行程序arp能给我们返回ARP表，那么一切问题就迎刃而解了。在调用arp前，我们只需要做的就是Ping 局域网内的ip，最后通过调用arp指令即可获取全部的ip和mac信息了

１首先简历一个bat批处理文件，当然，你可以在调用前动态创建

在C:\创建一个a.bat,其内容如下：

del C:\a.txt
arp -a > c:\a.txt

２现在我们来运行一下a.bat，看到的结果其实并不是完全如我们所愿（如下），所以我们需要使用正则表达式来捕获所需要的数据。

接口: 192.168.1.4 --- 0xd
Internet 地址 物理地址 类型
192.168.1.1 48-5b-39-db-d5-c8 动态
192.168.1.8 20-7c-8f-2f-be-18 动态
192.168.1.255 ff-ff-ff-ff-ff-ff 静态
224.0.0.22 01-00-5e-00-00-16 静态
224.0.0.100 01-00-5e-00-00-64 静态
224.0.0.252 01-00-5e-00-00-fc 静态
239.255.255.250 01-00-5e-7f-ff-fa 静态
255.255.255.255 ff-ff-ff-ff-ff-ff 静态

３创建windows应用程序，并在窗口上创建一个Progress　button　ListVIEw控件，双击button输入代码如下：

Public Class Form1

Private Sub button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles button1.Click
For i = 1 To 10
My.Computer.Network.Ping("192.168.1." & i,5)
Me.Progressbar1.Value = i / 10 * 100
Application.DoEvents()
Next
Shell("C:\a.bat",AppWinStyle.HIDe,True,1000)
Dim regex As New System.Text.RegularExpressions.Regex("(\d{1,3}.\d{1,3}) +(\w\w-\w\w-\w\w-\w\w-\w\w-\w\w)")
Dim mach As System.Text.RegularExpressions.MatchCollection
While True
If My.Computer.fileSystem.fileExists("C:\a.txt") Then
Exit While
End If
End While
Dim tmp As String = My.Computer.fileSystem.ReadAllText("C:\a.txt")
mach = regex.Matches(tmp)
Me.ListVIEw1.Items.Clear()
Dim lsv As ListVIEwItem
For Each x As System.Text.RegularExpressions.Match In mach
Dim z As System.Text.RegularExpressions.Group
z = x.Groups(1)
lsv = New ListVIEwItem()
lsv.Text = z.Value
z = x.Groups(2)
lsv.SubItems.Add(z.Value)
Me.ListVIEw1.Items.Add(lsv)
Next
End Sub

End Class

总结

以上是内存溢出为你收集整理的VB.NET获取局域网IP和MAC地址全部内容，希望文章能够帮你解决VB.NET获取局域网IP和MAC地址所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。