導航:首頁 > 電腦網站 > 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地址相關的資料

熱點內容
台式電腦win10管理員 瀏覽:142
手機脫離軟體 瀏覽:194
神行太保支持的平板電腦 瀏覽:272
電腦吃雞配置推薦 瀏覽:354
蘋果電腦百度網盤上傳 瀏覽:331
電腦外接硬碟對電腦有什麼影響 瀏覽:49
電腦磁碟突然只剩c盤win7 瀏覽:635
win10接電後電腦滴滴響 瀏覽:612
電腦無法截圖怎麼回事 瀏覽:688
惠普10870筆記本電腦多少錢 瀏覽:572
怎麼引流免費網站 瀏覽:338
蘋果基站定位軟體 瀏覽:225
雅閣七代車身電腦在哪個位置 瀏覽:303
蘋果看漫畫的軟體 瀏覽:339
電腦黑屏可能原因 瀏覽:653
校園網電腦wifi設置 瀏覽:223
電腦能同時裝3個硬碟嗎 瀏覽:917
設置電腦默認啟動盤 瀏覽:886
一套i7電腦配置要多少錢 瀏覽:834
電腦配鏡和手寫哪個准確 瀏覽:26