VB获取本地或远程计算机MAC[vb模块]

概述获取本地MAC地址模块： Option ExplicitPublic Const NCBASTAT = &H33Public Const NCBNAMSZ = 16Public Const HEAP_ZERO_MEMORY = &H8Public Const HEAP_GENERATE_EXCEPTIONS = &H4Public Const NCBRESET = &H32

获取本地MAC地址模块：

Option ExplicitPublic Const NCBASTAT = &H33Public Const NCBNAMSZ = 16Public Const HEAP_ZERO_MEMORY = &H8Public Const HEAP_GENERATE_EXCEPTIONS = &H4Public Const NCBreset = &H32Public Type NCB ncb_command As Byte 'Integer ncb_retcode As Byte 'Integer ncb_lsn As Byte 'Integer ncb_num As Byte ' Integer ncb_buffer As Long 'String ncb_length As Integer ncb_callname As String * NCBNAMSZ ncb_name As String * NCBNAMSZ ncb_rto As Byte 'Integer ncb_sto As Byte ' Integer ncb_post As Long ncb_lana_num As Byte 'Integer ncb_cmd_cplt As Byte 'Integer ncb_reserve(9) As Byte ' Reserved,must be 0 ncb_event As LongEnd TypePublic Type ADAPTER_STATUS adapter_address(5) As Byte 'As String * 6 rev_major As Byte 'Integer reserved0 As Byte 'Integer adapter_type As Byte 'Integer rev_minor As Byte 'Integer 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 IntegerEnd TypePublic Type name_BUFFER name As String * NCBNAMSZ name_num As Integer name_flags As IntegerEnd TypePublic Type ASTAT adapt As ADAPTER_STATUS nameBuff(30) As name_BUFFEREnd TypePublic Declare Function Netbios lib "netAPI32.dll" (pncb As NCB) As BytePublic Declare Sub copyMemory lib "kernel32" Alias "RtlMoveMemory" _ (hpvDest As Any,ByVal hpvSource As Long,ByVal cbcopy As Long)Public Declare Function GetProcessHeap lib "kernel32" () As LongPublic Declare Function HeapAlloc lib "kernel32" _ (ByVal hHeap As Long,ByVal DWFlags As Long,_ ByVal DWBytes As Long) As LongPublic Declare Function HeapFree lib "kernel32" (ByVal hHeap As Long,_ ByVal DWFlags As Long,lpMem As Any) As Long'把下面的代码放入Command1_Click的事件中:Public Function GetMac() Dim myNcb As NCB Dim bRet As Byte myNcb.ncb_command = NCBreset bRet = Netbios(myNcb) myNcb.ncb_command = NCBASTAT myNcb.ncb_lana_num = 0 myNcb.ncb_callname = "*　　　　　　 " Dim myASTAT As ASTAT,tempASTAT As ASTAT Dim pASTAT As Long myNcb.ncb_length = Len(myASTAT) DeBUG.Print Err.LastDllError pASTAT = HeapAlloc(GetProcessHeap(),HEAP_GENERATE_EXCEPTIONS _ Or HEAP_ZERO_MEMORY,myNcb.ncb_length) If pASTAT = 0 Then DeBUG.Print "memory allcoation Failed!" Exit Function End If myNcb.ncb_buffer = pASTAT bRet = Netbios(myNcb) DeBUG.Print Err.LastDllError copyMemory myASTAT,myNcb.ncb_buffer,Len(myASTAT) Dim cnt,tmp For cnt = 0 To UBound(myASTAT.adapt.adapter_address) If Len(Hex(myASTAT.adapt.adapter_address(cnt))) = 1 Then tmp = tmp & "0" & Hex(myASTAT.adapt.adapter_address(cnt)) & "-" Else tmp = tmp & Hex(myASTAT.adapt.adapter_address(cnt)) & "-" End If Next GetMac = left$(tmp,Len(tmp) - 1) HeapFree GetProcessHeap(),pASTATEnd Function

根据IP获取远程MAC地址模块：

Public Declare Function inet_addr lib "wsock32.dll" (ByVal s As String) As LongPublic Declare Function SendARP lib "iphlpAPI.dll" (ByVal DestIP As Long,ByVal SrcIP As Long,pMacAddr As Long,PhyAddrLen As Long) As LongPublic Declare Sub copyMemory1 lib "kernel32" Alias "RtlMoveMemory" (dst As Any,src As Any,ByVal bcount As Long)Public Function GetRemoteMACAddress(ByVal sRemoteIP As String) Dim DWRemoteIP As Long Dim pMacAddr As Long Dim bpMacAddr() As Byte Dim PhyAddrLen As Long Dim cnt As Long Dim tmp As String DWRemoteIP = inet_addr(sRemoteIP) If DWRemoteIP <> 0 Then PhyAddrLen = 6 On Error Resume Next If SendARP(DWRemoteIP,0&,pMacAddr,PhyAddrLen) = 0 Then If pMacAddr <> 0 And PhyAddrLen <> 0 Then ReDim bpMacAddr(0 To PhyAddrLen - 1) copyMemory1 bpMacAddr(0),ByVal PhyAddrLen For cnt = 0 To PhyAddrLen - 1 If bpMacAddr(cnt) = 0 Then tmp = tmp & "00-" Else If Len(Hex$(bpMacAddr(cnt))) = 1 Then tmp = tmp & "0" & Hex$(bpMacAddr(cnt)) & "-" Else tmp = tmp & Hex$(bpMacAddr(cnt)) & "-" End If End If Next If Len(tmp) > 0 Then GetRemoteMACAddress = left$(tmp,Len(tmp) - 1) End If Exit Function Else GetRemoteMACAddress = False End If Else GetRemoteMACAddress = False End If 'SendARP Else GetRemoteMACAddress = False End If 'DWRemoteIPEnd Function

对来源进行修改了部分：

For cnt = 0 To UBound(myASTAT.adapt.adapter_address) - 1

http://trqlzj.blog.163.com/blog/static/22618715200831483355858/

总结

以上是内存溢出为你收集整理的VB获取本地或远程计算机MAC[vb模块]全部内容，希望文章能够帮你解决VB获取本地或远程计算机MAC[vb模块]所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。