如何通过VB获取网卡地址

　2006-02-27 11:55:41　来源：WEB开发网　闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�

闂傚倸鍊风粈渚€骞夐敓鐘插瀭闁汇垹鐏氬畷鏌ユ煙閹殿喖顣奸柛搴＄У閵囧嫰骞掗幋婵冨亾閻㈢ǹ纾婚柟鐐灱濡插牊绻涢崱妤冃℃繛宀婁簽缁辨捇宕掑鎵佹瀸闂佺懓鍤栭幏锟�

濠电姷鏁告慨顓㈠箯閸愵喖宸濇い鎾寸箘閹规洟姊绘笟鈧ḿ褍煤閵堝悿娲Ω閳轰胶鍔﹀銈嗗笂閼冲爼鍩婇弴銏＄厪闁搞儮鏅涙禒褏绱掓潏鈺佷槐闁轰焦鎹囬弫鎾绘晸閿燂拷闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�　　闂傚倸鍊烽懗鑸电仚缂備胶绮〃鍛村煝瀹ュ鍗抽柕蹇曞У閻庮剟姊虹紒妯哄闁诲繑姘ㄩ埀顒佸嚬閸撶喎顫忓ú顏勫瀭妞ゆ洖鎳庨崜浼存⒑闁偛鑻晶顔剧磼婢跺﹦绉虹€殿喖顭锋俊姝岊槷闁稿鎹囧Λ鍐ㄢ槈濞嗗繑娈橀梻浣风串缂嶁偓濞存粠鍓熼崺鈧い鎺戝€归弳顒勬煕鐎ｎ亷韬€规洑鍗冲鍊燁槾闁哄棴绠撻弻銊╂偆閸屾稑顏�

核心提示：[程序语言]MicrosoftVisualBasic4.0,5.0,6.0[运行平台]Windows[功能描述]ipX和NETBIOS接口需要网络地址，该文通过详细的步骤演示了如何通过VB获取网卡地址，如何通过VB获取网卡地址，步骤：1)在VisualBasic生成标准的EXE文件，缺省创建Form1，5)点击Comm

[程序语言]MicrosoftVisualBasic4.0,5.0,6.0
[运行平台]Windows
[功能描述]ipX和NETBIOS接口需要网络地址。该文通过详细的步骤演示了如何通过VB获取网卡地址。

步骤：

1)在VisualBasic生成标准的EXE文件。缺省创建Form1。
2)在Form1中添加一命令按钮，缺省名为Command1。
3)把下列代码放到Form1中说明部分。

OptionExplicit
PRivateConstNCBASTAT=&H33
PrivateConstNCBNAMSZ=16
PrivateConstHEAP_ZERO_MEMORY=&H8
PrivateConstHEAP_GENERATE_EXCEPTIONS=&H4
PrivateConstNCBRESET=&H32

PrivateTypeNCB
　　ncb_commandAsByte'Integer
　　ncb_retcodeAsByte'Integer
　　ncb_lsnAsByte'Integer
　　ncb_numAsByte'Integer
　　ncb_bufferAsLong'String
　　ncb_lengthAsInteger
　　ncb_callnameAsString*NCBNAMSZ
　　ncb_nameAsString*NCBNAMSZ
　　ncb_rtoAsByte'Integer
　　ncb_stoAsByte'Integer
　　ncb_postAsLong
　　ncb_lana_numAsByte'Integer
　　ncb_cmd_cpltAsByte'Integer
　　ncb_reserve(9)AsByte'Reserved,mustbe0
　　ncb_eventAsLong
EndType

PrivateTypeADAPTER_STATUS
　　adapter_address(5)AsByte'AsString*6
　　rev_majorAsByte'Integer
　　reserved0AsByte'Integer
　　adapter_typeAsByte'Integer
　　rev_minorAsByte'Integer
　　durationAsInteger
　　frmr_recvAsInteger
　　frmr_xmitAsInteger
　　iframe_recv_errAsInteger
　　xmit_abortsAsInteger
　　xmit_successAsLong
　　recv_successAsLong
　　iframe_xmit_errAsInteger
　　recv_buff_unavailAsInteger
　　t1_timeoutsAsInteger
　　ti_timeoutsAsInteger
　　Reserved1AsLong
　　free_ncbsAsInteger
　　max_cfg_ncbsAsInteger
　　max_ncbsAsInteger
　　xmit_buf_unavailAsInteger
　　max_dgram_sizeAsInteger
　　pending_sessAsInteger
　　max_cfg_sessAsInteger
　　max_sessAsInteger
　　max_sess_pkt_sizeAsInteger
　　name_countAsInteger
EndType

PrivateTypeNAME_BUFFER
　　nameAsString*NCBNAMSZ
　　name_numAsInteger
　　name_flagsAsInteger
EndType

PrivateTypeASTAT
　　adaptAsADAPTER_STATUS
　　NameBuff(30)AsNAME_BUFFER
EndType

PrivateDeclareFunctionNetbiosLib"netapi32.dll"(pncbAsNCB)AsByte
PrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(hpvDestAsAny,ByValhpvSourceAsLong,ByValcbCopyAsLong)
PrivateDeclareFunctionGetProcessHeapLib"kernel32"()AsLong
PrivateDeclareFunctionHeapAllocLib"kernel32"(ByValhHeapAsLong,ByValdwFlagsAsLong,ByValdwBytesAsLong)AsLong
PrivateDeclareFunctionHeapFreeLib"kernel32"(ByValhHeapAsLong,ByValdwFlagsAsLong,lpMemAsAny)AsLong

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

PrivateSubCommand1_Click()
　　DimmyNcbAsNCB
　　DimbRetAsByte
　　myNcb.ncb_command=NCBRESET
　　bRet=Netbios(myNcb)
　　myNcb.ncb_command=NCBASTAT
　　myNcb.ncb_lana_num=0
　　myNcb.ncb_callname="*　　　　　　"
　　DimmyASTATAsASTAT,tempASTATAsASTAT
　　DimpASTATAsLong
　　myNcb.ncb_length=Len(myASTAT)
　　Debug.PrintErr.LastDllError
　　pASTAT=HeapAlloc(GetProcessHeap(),HEAP_GENERATE_EXCEPTIONSOrHEAP_ZERO_MEMORY,myNcb.ncb_length)
　　IfpASTAT=0Then
　　　　Debug.Print"memoryallcoationfailed!"
　　　　ExitSub
　　EndIf
　　myNcb.ncb_buffer=pASTAT
　　bRet=Netbios(myNcb)
　　Debug.PrintErr.LastDllError
　　CopyMemorymyASTAT,myNcb.ncb_buffer,Len(myASTAT)
　　MsgBoxHex(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))
　　HeapFreeGetProcessHeap(),0,pASTAT
EndSub

4)按F5，运行该程序。
5)点击Command1。注意，网卡地址将在一信息框中显示出来。->