VB.NET中怎么獲取網卡地址

本篇文章給大家分享的是有關VB.NET中怎么獲取網卡地址，小編覺得挺實用的，因此分享給大家學習，希望大家閱讀完這篇文章后可以有所收獲，話不多說，跟著小編一起來看看吧。

VB.NET獲取網卡地址步驟：

1.在Visual Basic生成標準的EXE文件。缺省創建 Form1.

2.在Form1中添加一命令按鈕，缺省名為Command1.

3.把下列代碼放到Form1中說明部分。

Option Explicit   Private Const NCBASTAT = &H33   Private Const NCBNAMSZ = 16   Private Const HEAP_ZERO_MEMORY = &H8   Private Const HEAP_GENERATE_EXCEPTIONS = &H4   Private Const NCBRESET = &H32   Private 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   Private 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    Private Type NAME_BUFFER   name As String * NCBNAMSZ   name_num As Integer   name_flags As Integer   End Type   Private Type ASTAT   adapt As ADAPTER_STATUS   NameBuff(30) As NAME_BUFFER   End Type    Private Declare Function Netbios Lib "netapi32.dll" (pncb As NCB) As Byte   Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _  (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)   Private Declare Function GetProcessHeap Lib "kernel32" () As Long   Private Declare Function HeapAlloc Lib "kernel32" _   (ByVal hHeap As Long, ByVal dwFlags As Long, _   ByVal dwBytes As Long) As Long   Private Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long,_   ByVal dwFlags As Long, lpMem As Any) As Long

把下面的代碼放入Command1_Click的事件中：

Private Sub Command1_Click()   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 Sub   End If   myNcb.ncb_buffer = pASTAT   bRet = Netbios(myNcb)   Debug.Print Err.LastDllError   CopyMemory myASTAT, myNcb.ncb_buffer, Len(myASTAT)   MsgBox Hex(myASTAT.adapt.adapter_address(0)) & " " & _   Hex(myASTAT.adapt.adapter_address(1)) _   & " " & Hex(myASTAT.adapt.adapter_address(2)) & " " _   & Hex(myASTAT.adapt.adapter_address(3)) _   & " " & Hex(myASTAT.adapt.adapter_address(4)) & " " _   & Hex(myASTAT.adapt.adapter_address(5))   HeapFree GetProcessHeap(), 0, pASTAT   End Sub

4.按F5，運行該程序。

5.點擊Command1。注意，VB.NET獲取網卡地址將在一信息框中顯示出來。

以上就是VB.NET中怎么獲取網卡地址，小編相信有部分知識點可能是我們日常工作會見到或用到的。希望你能通過這篇文章學到更多知識。更多詳情敬請關注億速云行業資訊頻道。