vb读取计算机mac地址,取得本机所有网卡(网络连接)的MAC地址(VB6.0代码)

Option Explicit

'*************************************************************************

'**模 块 名：ModGetPhysicalAddress

'**说 明：取得本机所有网卡的MAC地址

'**创 建 人：嗷嗷叫的老马

'**日 期：2010年09月28日

'**备 注: 紫水晶工作室 版权所有

'** 更多模块/类模块请访问我站: http://www.m5home.com

'**版 本：V2.0

'**修 正: 发现获取的MAC地址后面多了两位00-00,感谢Wise朋友!

'*************************************************************************

Private Const HEAP_ZERO_MEMORY As Long = &H8&

Private Const ERROR_BUFFER_OVERFLOW As Long = &H6F&

Private Const GAA_FLAG_INCLUDE_PREFIX As Long = &H10&

Private Const MAX_ADAPTER_ADDRESS_LENGTH As Long = &H8&

Private Const MAX_ADAPTER_NAME_LENGTH As Long = &H100&

Private Const AF_UNSPEC As Long = &H0&

Private Const NO_ERROR As Long = &H0&

Private Enum IF_TYPE

IF_TYPE_OTHER = 1

IF_TYPE_ETHERNET_CSMACD = 6

IF_TYPE_ISO88025_TOKENRING = 9

IF_TYPE_PPP = 23

IF_TYPE_SOFTWARE_LOOPBACK = 24

IF_TYPE_ATM = 37

IF_TYPE_IEEE80211 = 71