获取网关IP和MAC 的VB源码

最新推荐文章于 2013-04-07 12:54:00 发布

miaozk2006

最新推荐文章于 2013-04-07 12:54:00 发布

阅读量213

点赞数

本文链接：https://blog.csdn.net/miaozk2006/article/details/82416957

版权

这篇博客提供了一段VB代码，用于通过执行命令行`arp -a`来获取网关的IP和MAC地址，并显示在消息框中。用户点击窗体上的command1按钮，代码会创建一个DOS窗口，执行命令并将结果保存到文件，然后读取文件内容，提取IP和MAC信息。

摘要由CSDN通过智能技术生成

'窗体上加入控件command1，然后复制下面代码，运行，按command1即可。

Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal _
                          dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
                          ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" _
                          (ByVal hHandle As Long, ByVal dwMilliseconds As Long) _
                          As Long
Private Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000

Private Sub Command1_Click()
    Dim i As Long, S As String, FileName As String, Ip As String, Mac As String
    Dim TaskID As Long    ' Task-ID des DOS-Fensters
    Dim ProcID As Long    ' Prozess-ID des DOS-Fensters
    FileName = "c:/1.txt"
    If Dir(FileName) <> "" Then Kill FileName
    TaskID = Shell("cmd.exe /c arp -a>>c:/1.txt", vbHide)
    DoEvents
    ProcID = OpenProcess(SYNCHRONIZE, False, TaskID)
    Call WaitForSingleObject(ProcID, INFINITE)
    Open FileName For Input As #1
    S = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
    i = InStr(1, S, "type" & vbNewLine, vbTextCompare)
    S = Trim$(Mid$(S, i + 6))
    i = InStr(S, " ")
    Ip = Left$(S, i - 1)
    S = LTrim$(Mid$(S, i))
    i = InStr(S, " ")
    Mac = Left$(S, i - 1)
    MsgBox "IP：" & Ip & vbNewLine & "MAC：" & Mac, vbInformation, "网关参数"