VB获取MAC地址

 

1. Private Const NCBASTAT As Long = 
2. Private Const NCBNAMSZ As Long = 16
3. Private Const HEAP_ZERO_MEMORY As Long = 
4. Private Const HEAP_GENERATE_EXCEPTIONS As Long = 
5. Private Const NCBRESET As Long = 
6. Private Const NCBENUM As Long = 
7. Private Const MAX_LANA As Long = 254
9. Private Type LANA_ENUM
10.     Length As Byte
11.     Lana(MAX_LANA) As Byte
12. End Type
14. Private Type NET_CONTROL_BLOCK
15. ncb_command As Byte
16. ncb_retcode As Byte
17. ncb_lsn As Byte
18. ncb_num As Byte
19. ncb_buffer As Long
20. ncb_length As Integer
21. ncb_callname As String * NCBNAMSZ
22. ncb_name As String * NCBNAMSZ
23. ncb_rto As Byte
24. ncb_sto As Byte
25. ncb_post As Long
26. ncb_lana_num As Byte
27. ncb_cmd_cplt As Byte
28. ncb_reserve(9) As Byte
29. ncb_event As Long
30. End Type
32. Private Type ADAPTER_STATUS
33. adapter_address(5) As Byte
34. rev_major As Byte
35. reserved0 As Byte
36. adapter_type As Byte
37. rev_minor As Byte
38. duration As Integer
39. frmr_recv As Integer
40. frmr_xmit As Integer
41. iframe_recv_err As Integer
42. xmit_aborts As Integer
43. xmit_success As Long
44. recv_success As Long
45. iframe_xmit_err As Integer
46. recv_buff_unavail As Integer
47. t1_timeouts As Integer
48. ti_timeouts As Integer
49. Reserved1 As Long
50. free_ncbs As Integer
51. max_cfg_ncbs As Integer
52. max_ncbs As Integer
53. xmit_buf_unavail As Integer
54. max_dgram_size As Integer
55. pending_sess As Integer
56. max_cfg_sess As Integer
57. max_sess As Integer
58. max_sess_pkt_size As Integer
59. name_count As Integer
60. End Type
61.      
62. Private Type NAME_BUFFER
63. name As String * NCBNAMSZ
64. name_num As Integer
65. name_flags As Integer
66. End Type
68. Private Type ASTAT
69. adapt As ADAPTER_STATUS
70. NameBuff(30) As NAME_BUFFER
71. End Type
73. Private Declare Function Netbios Lib "netapi32.dll" (pncb As NET_CONTROL_BLOCK) As Byte
74.        
75. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
76.        
77. Private Declare Function GetProcessHeap Lib "kernel32" () As Long
79. Private Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long
80.        
81. Private Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long
83. Public Function GetMACAddress(ID As Long) As String
84.    Dim Lana As LANA_ENUM
85.    Dim NCB As NET_CONTROL_BLOCK
86.    Dim i As Integer
87.    Dim pASTAT As Long
88.    
89.    NCB.ncb_buffer = VarPtr(Lana)
90.    NCB.ncb_length = Len(Lana)
91.    NCB.ncb_command = NCBENUM
92.    pASTAT = Netbios(NCB)
93.    GetMACAddress = disp(Lana.Lana(ID))
94. End Function
96. Private Function disp(ByVal num As Long) As String
97.    Dim tmp As String
98.    Dim pASTAT As Long
99.    Dim LngBuff As Long
100.    Dim NCB As NET_CONTROL_BLOCK
101.    Dim AST As ASTAT
102.    
103.    NCB.ncb_command = NCBRESET
104.    NCB.ncb_lana_num = num
105.    Call Netbios(NCB)
106.    NCB.ncb_callname = "*"
107.    NCB.ncb_command = NCBASTAT
108.    NCB.ncb_lana_num = num
109.    NCB.ncb_length = Len(AST)
110.      
111.    pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS Or HEAP_ZERO_MEMORY, NCB.ncb_length)
112.               
113.    If pASTAT = 0 Then
114.       Exit Function
115.    End If
116.      
117.    NCB.ncb_buffer = pASTAT
118.    Call Netbios(NCB)
119.      
120.    CopyMemory AST, NCB.ncb_buffer, Len(AST)
121.      
122. tmp = Hex(AST.adapt.adapter_address(0)) & Hex(AST.adapt.adapter_address(1)) & Hex(AST.adapt.adapter_address(2)) & _
123.    Hex(AST.adapt.adapter_address(3)) & Hex(AST.adapt.adapter_address(4)) & Hex(AST.adapt.adapter_address(5))
125.    
128.                
129.    HeapFree GetProcessHeap(), 0, pASTAT
130.    disp = tmp
131. End Function