導航:首頁 > 電腦網站 > vb如何獲取電腦mac地址

vb如何獲取電腦mac地址

發布時間:2025-05-17 14:00:10

⑴ vb獲取自己的mac/ip和網關的mac/ip

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

Function LocalIPAddress() As String
Dim cbRequired As Long
Dim buff() As Byte
Dim Adapter As IP_ADAPTER_INFO
Dim AdapterStr As IP_ADDR_STRING
Dim ptr1 As Long
Dim sIPAddr As String
Dim found As Boolean
Call GetAdaptersInfo(ByVal 0&, cbRequired)

If cbRequired > 0 Then
ReDim buff(0 To cbRequired - 1) As Byte

If GetAdaptersInfo(buff(0), cbRequired) = ERROR_SUCCESS Then
'獲取存放在buff()中的數據的指針
ptr1 = VarPtr(buff(0))

Do While (ptr1 <> 0)
'將第一個網卡的數據轉換到IP_ADAPTER_INFO結構中
CopyMemory Adapter, ByVal ptr1, LenB(Adapter)

With Adapter
'IpAddress.IpAddr成員給出了DHCP的IP地址
sIPAddr = TrimNull(StrConv(.IpAddressList.IpAddress.IpAddr, vbUnicode))

If Len(sIPAddr) > 0 Then
found = True
Exit Do
End If

ptr1 = .dwNext
End With 'With Adapter

'不再有網卡時,ptr1的值為0
Loop 'Do While (ptr1 <> 0)

End If 'If GetAdaptersInfo
End If 'If cbRequired > 0

'返回結果字元串
LocalIPAddress = sIPAddr
End Function

Function TrimNull(item As String)
Dim pos As Integer
pos = InStr(item, Chr$(0))

If pos Then
TrimNull = Left$(item, pos - 1)
Else: TrimNull = item
End If

End Function

Private Sub Form_Load()
Text1 = "IP地址:" & LocalIPAddress
Text2 = "MAC地址:" & EthernetAddress(0)
End Sub

閱讀全文

與vb如何獲取電腦mac地址相關的資料

熱點內容
蘋果傳圖片軟體 瀏覽:169
電腦縫紉機跳針怎麼辦 瀏覽:424
為什麼電腦電池會壞 瀏覽:719
宏碁手提電腦觸摸滑鼠怎麼設置 瀏覽:497
電腦升級win10打開辦公軟體 瀏覽:140
電腦更新後共享列印機打不了 瀏覽:537
蘋果電腦換屏幕後白斑 瀏覽:286
蘋果電腦鍵盤調節亮度 瀏覽:736
電腦全屏播放就黑屏 瀏覽:875
電腦怎麼提高網速 瀏覽:738
亞朵酒店電腦怎麼連接wifi 瀏覽:486
wifi萬能查看器電腦版 瀏覽:47
內存還多但是電腦總是黑屏 瀏覽:34
電腦開機顯示windows界面就黑屏 瀏覽:74
蘋果電腦定製機套餐 瀏覽:687
電腦便簽保存軟體有哪些 瀏覽:256
電腦能裝手機系統嗎 瀏覽:501
電腦gta4配置 瀏覽:159
深圳蘋果電腦上門維修 瀏覽:681
如何清除電腦文件 瀏覽:38