开发学院WEB开发综合 如何通过VB获取网卡地址 阅读

如何通过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。注意,网卡地址将在一信息框中显示出来。->

Tags:如何 通过 VB

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接