方法很简单，而且适用于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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。