获取网卡物理地址:如何通过VB获取网卡地址

　　[语言] Microsoft Visual Basic 4.0,5.0,6.0

　　[运行平台] WINDOWS

　　[源码来源] http://support.microsoft.com/support/kb/articles/q175/4/72.asp?FR=0

　　[功能描述] IPX和NETBIOS接口需要网络地址该文通过详细步骤演示了如何通过VB获取网卡地址

　　步骤:

　　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
　　 rame_recv_err As Integer
　　 xmit_aborts As Integer
　　 xmit_success As Long
　　 recv_success As Long
　　 rame_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 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.Pr Err.LastDllError
　　 pASTAT = HeapAlloc(GetProcessHeap, HEAP_GENERATE_EXCEPTIONS _
　　　　 Or HEAP_ZERO_MEMORY, myNcb.ncb_length)
　　 If pASTAT = 0 Then
　　　　 Debug.Pr "memory allcoation failed!"
　　　　 Exit Sub
　　 End If
　　 myNcb.ncb_buffer = pASTAT
　　 bRet = Netbios(myNcb)
　　 Debug.Pr 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注意网卡地址将在信息框中显示出来

延伸阅读

• 2009-1-15-- vb5.0:用VB5.0获取正在系统中运行的窗口标题
• 2009-1-15-- vb获取系统时间:VB图像处理的像素的获取和输出
• 2009-1-15-- vb获取系统时间:在VB中获取和修改计算机名字
• 2008-9-25-- 获取网卡物理地址:ASP获取网卡物理地址方法及代码
• 2009-2-12-- vb获取网卡信息:如何通过VB获取网卡地址