程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 在VB中如何得到網絡中某一台電腦(電腦名)的網卡地址?

在VB中如何得到網絡中某一台電腦(電腦名)的網卡地址?

編輯:VB綜合教程
[程序語言]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。注意,網卡地址將在一信息框中顯示出來。->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved