在XP或WIN2000中怎样用VB得到计算机的网卡号

wang_qiang

求救:

在XP或WIN2000中怎样用VB得到计算机的网卡号?以前我有一段代码在W98中好使,但在XP或Win2000中运行时,网卡号总是由0组成的,这是为什么?请高手赐教

idoo

关注中，想在VBA中实现——

ngeqt521

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

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
    
     Form1.Text1.Text = (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))
 Dim pangduan As String
     pangduan = "0 17 31 B5 AF C"
 'If Form2.Text1(0).Text = pangduan Then
    ' Form2.Command1.Enabled = True
 'Else
   ' MsgBox "对不起，您的网卡地址有误，请重新获取或检查网络配置"
 'End If

End Sub

wang_qiang

我试了以上代码,但显示的是"0 0 0 0 0 0",我的机子XP系统,请赐教.多谢