实例458 获取网卡的物理地址

Private Declare Function Netbios Lib "netapi32.dll" (pncb As NET_CONTROL_BLOCK) As Byte

Option Explicit
Const NCBASTAT As Long = &H33  '获得网卡的状态
Const NCBNAMSZ As Long = 16  '程序名称长度
Const HEAP_ZERO_MEMORY As Long = &H8  '指定分配内存区首先初始化为0
Const HEAP_GENERATE_EXCEPTIONS As Long = &H4  '当函数执行失败时，系统将产生一个意外
Const NCBRESET As Long = &H32'重新设置网卡，当执行网卡控制块中的任何命令前必须重新设置网卡
Private Type NET_CONTROL_BLOCK
ncb_command    As Byte  '指定执行的命令代码
ncb_buffer     As Long  '指向信息缓冲区的指针
ncb_length     As Integer '指向消息缓冲区的大小
ncb_callname   As String * NCBNAMSZ  '指定控制程序的名称
ncb_name       As String * NCBNAMSZ  '指定当前程序的名称
ncb_lana_num   As Byte  '指定网卡数字编号
ncb_cmd_cplt   As Byte  '指定命令完成标志
End Type
Private Type ADAPTER_STATUS  '网卡状态信息数据结构，由Netbios函数返回
adapter_address(5) As Byte
adapter_type      As Byte
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 NET_CONTROL_BLOCK) 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 Sub Command1_Click()   '获得网卡的物理地址
Dim i As Integer
Dim pASTAT As Long
Dim NCB As NET_CONTROL_BLOCK
Dim AST As ASTAT
NCB.ncb_command = NCBRESET
Call Netbios(NCB)
NCB.ncb_callname = "*               "
NCB.ncb_command = NCBASTAT
NCB.ncb_lana_num = 0
NCB.ncb_length = Len(AST)
pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS _
Or HEAP_ZERO_MEMORY, NCB.ncb_length)
NCB.ncb_buffer = pASTAT
Call Netbios(NCB)
CopyMemory AST, NCB.ncb_buffer, Len(AST)
For i = 0 To 5    '显示网卡物理地址
Text1.Text = Text1.Text & Format$(Hex(AST.adapt.adapter_address(i)), "00") & "  "
Next i
HeapFree GetProcessHeap(), 0, pASTAT
End Sub