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

获取本地MAC地址模块：

Option Explicit

Public Const NCBASTAT = &H33

Public Const NCBNAMSZ = 16

Public Const HEAP_ZERO_MEMORY = &H8

Public Const HEAP_GENERATE_EXCEPTIONS = &H4

Public Const NCBRESET = &H32

Public 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 Long

End Type

Public 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 Integer

End Type

Public Type NAME_BUFFER

Name As String * NCBNAMSZ

name_num As Integer

name_flags As Integer

End Type

Public Type ASTAT

adapt As ADAPTER_STATUS

NameBuff(30) As NAME_BUFFER

End Type

Public Declare Function Netbios Lib "netapi32.dll" (pncb As NCB) As Byte

Public 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 Long

Public Declare Function HeapAlloc Lib "kernel32" _

(ByVal hHeap As Long,ByVal dwFlags As Long,_

ByVal dwBytes As Long) As Long

Public 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(),pASTAT

End Function

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

Public Declare Function inet_addr Lib "wsock32.dll" (ByVal s As String) As Long

Public Declare Function SendARP Lib "iphlpapi.dll" (ByVal DestIP As Long,ByVal SrcIP As Long,pMacAddr As Long,PhyAddrLen As Long) As Long

Public 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 'dwRemoteIP

End Function

对来源进行修改了部分：

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

总结

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

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。