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

熱點內容
廢棄電腦無線網卡 瀏覽:303
榮耀瀏覽器設置電腦版 瀏覽:161
如何給電腦裝驅動程序 瀏覽:339
電腦硬碟驅動模塊怎樣接線 瀏覽:566
散光軸位電腦和插片哪個准 瀏覽:563
一般電腦多少年才算老 瀏覽:332
截音樂軟體手機版 瀏覽:413
蘋果六下載的軟體閃退 瀏覽:155
電腦怎麼顯示拼接屏幕 瀏覽:912
dell筆記本電腦觸摸板驅動 瀏覽:256
電腦復制刪除文件很慢 瀏覽:673
學電腦軟體技術 瀏覽:132
為什麼我家電腦開機之後要很久 瀏覽:895
新電腦怎麼搜索不到wifi 瀏覽:232
閱漫免費網站 瀏覽:151
電腦上安裝軟體要多少錢 瀏覽:886
新電腦剛開機閃屏一會就好 瀏覽:844
電腦開機都要按f1 瀏覽:919
win10怎麼禁止電腦更新補丁 瀏覽:698
電腦的硬碟外接usb 瀏覽:915