获取网卡MAC地址
Option Explicit
Private Const NCBASTAT = &H33 Private Const NCBNAMSZ = 16 Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32
Private Type NCB
ncb_command As Byte
ncb_retcode As Byte
ncb_lsn As Byte
ncb_num As Byte
ncb_buffer As Long
ncb_length As Integer
ncb_callname As String * NCBNAMSZ ncb_name As String * NCBNAMSZ ncb_rto As Byte
ncb_sto As Byte
ncb_post As Long
ncb_lana_num As Byte
ncb_cmd_cplt As Byte
ncb_reserve(9) As Byte ' Reserved, must be 0
ncb_event As Long
End Type
Private Type ADAPTER_STATUS adapter_address(5) As Byte rev_major As Byte
reserved0 As Byte
adapter_type As Byte
rev_minor As Byte
duration As Integer
frmr_recv As Integer
frmr_xmit As Integer
iframe_recv_err As Integer xmit_aborts As Integer
xmit_success As Long
recv_success As Long
iframe_xmit_err As Integer recv_buff_unavail As Integer t1_timeouts As Integer
ti_timeouts As Integer
Reserved1 As Long
free_ncbs As Integer
max_cfg_ncbs As Integer
max_ncbs As Integer
xmit_buf_unavail As Integer
max_dgram_size As Integer
pending_sess As Integer
max_cfg_sess As Integer
max_sess As Integer
max_sess_pkt_size As Integer
name_count As Integer
End Type
Private Type NAME_BUFFER
name As String * NCBNAMSZ
name_num As Integer
name_flags As Integer
End Type
Private Type ASTAT
adapt As ADAPTER_STATUS
NameBuff(30) As NAME_BUFFER
End Type
Private Declare Function Netbios Lib "netapi32.dll" (pncb As NCB) As Byte
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any,
ByVal hpvSource As Long, ByVal cbCopy As Long) Private Declare Function GetProcessHeap Lib "kernel32" () As Long
Private Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags
As Long, ByVal dwBytes As Long) As Long Private Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags
As Long, lpMem As Any) As Long
Private Function EthernetAddress(LanaNumber As Long) As String
Dim udtNCB As NCB
Dim bytResponse As Byte
Dim udtASTAT As ASTAT
Dim udtTempASTAT As ASTAT
Dim lngASTAT As Long
Dim strOut As String
Dim x As Integer
udtNCB.ncb_command = NCBRESET
bytResponse = Netbios(udtNCB)
udtNCB.ncb_command = NCBASTAT
udtNCB.ncb_lana_num = LanaNumber
udtNCB.ncb_callname = "* "
udtNCB.ncb_length = Len(udtASTAT)
lngASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS Or
HEAP_ZERO_MEMORY, udtNCB.ncb_length)
strOut = ""
If lngASTAT Then
udtNCB.ncb_buffer = lngASTAT
bytResponse = Netbios(udtNCB)
CopyMemory udtASTAT, udtNCB.ncb_buffer, Len(udtASTAT) With udtASTAT.adapt
For x = 0 To 5
strOut = strOut & Right$("00" & Hex$(.adapter_address(x)), 2)
Next x
End With
HeapFree GetProcessHeap(), 0, lngASTAT End If
EthernetAddress = strOut
End Function
Private Sub Form_Load()
Text1 = "This machine is Ethernet Address: " & EthernetAddress(0)
End Sub
本文来自CSDN博客,转载请标明出处:
建议不要使用Netbios函数,推荐使用IP助手函数。Netbios函数得到的MAC经常是不准确的。它依赖于机器上安装网络
的顺序。比如先装 IPX协议再装TCP协议,与先装TCP再装IPX所得到的MAC很有可能不一致。这是因为Netbios函数会得到很多的虚拟MAC地址而不是真正的网卡MAC。
IPCONFIG就是使用IP助手函数来做的。以下是我的做法请参考:
#include "iphlpapi.h "
#pragma comment(lib, "iphlpapi.lib ") //---------------------------------------------- //功能:获得网卡物理地址
//参数:strMac 返回网卡物理地址
//返回:TRUE 成功
// FALSE 失败
//---------------------------------------------- BOOL CCApp::GetMacAddress(CString &strMac) {
PIP_ADAPTER_INFO pAdapterInfo;
DWORD AdapterInfoSize;
TCHAR szMac[32] = {0};
DWORD Err;
AdapterInfoSize = 0;
Err = GetAdaptersInfo(NULL, &AdapterInfoSize);
if((Err != 0) && (Err != ERROR_BUFFER_OVERFLOW)){
TRACE( "获得网卡信息失败~ ");
return FALSE;
}
// 分配网卡信息内存
pAdapterInfo = (PIP_ADAPTER_INFO) GlobalAlloc(GPTR, AdapterInfoSize);
if(pAdapterInfo == NULL){
TRACE( "分配网卡信息内存失败 ");
return FALSE;
}
if(GetAdaptersInfo(pAdapterInfo, &AdapterInfoSize) != 0){
TRACE(_T( "获得网卡信息失败~\n "));
GlobalFree(pAdapterInfo);
return FALSE;
}
strMac.Format(_T( "%02X%02X%02X%02X%02X%02X "), pAdapterInfo-> Address[0],
pAdapterInfo-> Address[1],
pAdapterInfo-> Address[2],
pAdapterInfo-> Address[3],
pAdapterInfo-> Address[4],
pAdapterInfo-> Address[5]);
GlobalFree(pAdapterInfo);
return TRUE;
}