vb获得本地和远程的MAC地址 (网卡地址)

最新推荐文章于 2023-02-01 07:22:45 发布

3q2008Com

最新推荐文章于 2023-02-01 07:22:45 发布

阅读量4.6k

点赞数 5

文章标签： vb function integer string sockets socket

本文链接：https://blog.csdn.net/hot1kang1/article/details/639713

版权

这篇博客提供了VB代码示例，用于获取本地计算机的MAC地址以及远程设备的MAC地址。通过调用Windows Sockets API和InetAddr、SendARP等函数，实现了从IP地址获取MAC地址的功能。

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

原创: CSDN 许仙 ; qq:19030300 主页:http://hot1kang1.126.com
'转载请保持信息的完整性谢谢

'参考网络代码完成, 获取机器的MAC 网卡地址
VB获取机器的硬盘物理地址和硬盘型号 http://blog.csdn.net/hot1kang1/archive/2006/03/27/639735.aspx

'----------------
'GetMyMAC 获得本机器网卡 MAC地址若无IP 返回空字符
' Print GetMyMAC

'GetRemoteMACAddress IP,strval 获取对应机器的网卡 MAC地址
'dim i
'GetRemoteMACAddress "192.168.0.1",i
'Print i
'
'GetIPAddress 返回给定机器名的Ip地址，机器名为空时返回本机Ip地址
' GetIPAddress 机器名
'----------------
Option Explicit

Private Declare Function gethostname _
               Lib "wsock32.dll" (ByVal szHost As String, _
                                  ByVal dwHostLen As Long) As Long
Private Declare Function gethostbyname _
               Lib "wsock32.dll" (ByVal szHost As String) As Long
Private Declare Function WSAStartup _
               Lib "wsock32.dll" (ByVal wVersionRequired As Long, _
                                  lpWSADATA As WSADATA) As Long
Private Declare Function WSAGetLastError _
               Lib "wsock32.dll" () As Long
Private Declare Function WSACleanup _
               Lib "wsock32.dll" () As Long

Private Declare Sub CopyMemory _
               Lib "kernel32" _
               Alias "RtlMoveMemory" (hpvDest As Any, _
                                      ByVal hpvSource As Long, _
                                      ByVal cbCopy As Long)

' Socket错误常数和版本常数
Private Const SOCKET_ERROR As Long = -1
Private Const MAX_WSADescription = 256
Private Const MAX_WSASYSStatus = 128
Private Const ERROR_SUCCESS As Long = 0
Private Const WS_VERSION_REQD As Long = &H101
Private Const MIN_S