网卡mac地址怎么查,网卡无法自动获取ip

2020-10-12 阅读 崔湘灵整理

内容简介:网卡设置在哪1) 在Visual Basic中生成标准的exe文件。默认情况下会创建窗体1。2) 在form1中添加默认名称为command1的命令按钮。3) 在表单1的描网卡查询...

1)在VisualBasic生成标准的EXE文件。

缺省创建Form1。

2)在Form1中添加一命令按钮,缺省名为Command1。

3)把下列代码放到Form1中说明部分。

OptionExplicitPrivateConstNCBASTAT=H33PrivateConstNCBNAMSZ=16PrivateConstHEAP_ZERO_MEMORY=H8PrivateConstHEAP_GENERATE_EXCEPTIONS=H4PrivateConstNCBRESET=H32PrivateTypeNCBncb_commandAsByteIntegerncb_retcodeAsByteIntegerncb_lsnAsByteIntegerncb_numAsByteIntegerncb_bufferAsLongStringncb_lengthAsIntegerncb_callnameAsString*NCBNAMSZncb_nameAsString*NCBNAMSZncb_rtoAsByteIntegerncb_stoAsByteIntegerncb_postAsLongncb_lana_numAsByteIntegerncb_cmd_cpltAsByteIntegerncb_reserve(9)AsByteReserved,mustbe0ncb_eventAsLongEndTypePrivateTypeADAPTER_STATUSadapter_address(5)AsByteAsString*6rev_majorAsByteIntegerreserved0AsByteIntegeradapter_typeAsByteIntegerrev_minorAsByteIntegerdurationAsIntegerfrmr_recvAsIntegerfrmr_xmitAsIntegeriframe_recv_errAsIntegerxmit_abortsAsIntegerxmit_successAsLongrecv_successAsLongiframe_xmit_errAsIntegerrecv_buff_unavailAsIntegert1_timeoutsAsIntegerti_timeoutsAsIntegerReserved1AsLongfree_ncbsAsIntegermax_cfg_ncbsAsIntegermax_ncbsAsIntegerxmit_buf_unavailAsIntegermax_dgram_sizeAsIntegerpending_sessAsIntegermax_cfg_sessAsIntegermax_sessAsIntegermax_sess_pkt_sizeAsIntegername_countAsIntegerEndTypePrivateTypeNAME_BUFFERnameAsString*NCBNAMSZname_numAsIntegername_flagsAsIntegerEndTypePrivateTypeASTATadaptAsADAPTER_STATUSNameBuff(30)AsNAME_BUFFEREndTypePrivateDeclareFunctionNetbiosLibnetapi32.dll(pncbAsNCB)AsBytePrivateDeclareSubCopyMemoryLibkernel32AliasRtlMoveMemory(hpvDestAsAny,ByValhpvSourceAsLong,ByValcbCopyAsLong)PrivateDeclareFunctionGetProcessHeapLibkernel32()AsLongPrivateDeclareFunctionHeapAllocLibkernel32(ByValhHeapAsLong,ByValdwFlagsAsLong,ByValdwBytesAsLong)AsLongPrivateDeclareFunctionHeapFreeLibkernel32(ByValhHeapAsLong,ByValdwFlagsAsLong,lpMemAsAny)AsLong把下面的代码放入Command1_Click的事件中:PrivateSubCommand1_Click()DimmyNcbAsNCBDimbRetAsBytemyNcb.ncb_command=NCBRESETbRet=Netbios(myNcb)myNcb.ncb_command=NCBASTATmyNcb.ncb_lana_num=0myNcb.ncb_callname=*DimmyASTATAsASTAT,tempASTATAsASTATDimpASTATAsLongmyNcb.ncb_length=Len(myASTAT)Debug.PrintErr.LastDllErrorpASTAT=HeapAlloc(GetProcessHeap(),HEAP_GENERATE_EXCEPTIONSorHEAP_ZERO_MEMORY,myNcb.ncb_length)IfpASTAT=0ThenDebug.Printmemoryallcoationfailed!ExitSubEndIfmyNcb.ncb_buffer=pASTATbRet=Netbios(myNcb)Debug.PrintErr.LastDllErrorCopyMemorymyASTAT,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,pASTATEndSu5)点击Command1。

注意,网卡地址将在一信息框中显示出来。

作者给您推荐的内容
  1. 苹果手机软件过多了会卡顿,今天我教大家如何卸载苹果手机软件。01、我们选择要卸载的软件长时间点击,便会出现相应的卸载图标,我们把软件拖到图标哪里即可卸载。02、有些软件是系统自带...

  2. win10虚拟机安装win7很多朋友会用系统做很多事情,但他们不知道如何安装系统文件。实际上,安装系统文件的方法非常简单。今天的版本将讨论Ghost系统文件的安装方法,希望对您有所帮...

  3. 今天就让小编为各位分析一下黄家驹生前算几线歌手?感兴趣的朋友一起来看看吧!黄家驹生前算几线歌手?01、当时为什么会说香港只有娱乐圈没有乐坛?几个日本歌手养活大半个香港歌坛的那个...

  4. 笔记本休眠快捷键当我们不需要使用笔记本时,我们通常选择让笔记本休息。很多朋友也在想,我们选哪一个?笔记本的睡眠键和睡眠键有什么区别?笔记本的睡眠键和睡眠键有什么功...

  5. 在这里,我提供了一种方法来增加大多数NVIDIA卡的电压,但不是以前的TNT和tnt2卡。你所要做的就是轻扫BIOS和一些简单的点击。我在6600gs上做了这个。首先,Nvidia显卡提高电压的一个方法你需要两个...

  6. QQ厘米秀是QQ针对手机QQ所推出的一个人物形象系统,我们怎么更改自己的QQ厘米秀形象呢?01、打开手机QQ,在主界面向右滑,点击左方出现的小人物。02、这里可以看到屏幕中间有三个小胶囊,点击...

  7. win7系统怎么查配置许多人问我,当他们重建系统时,哪种计算机系统是最好的。我的建议一般是安装Win7系统,毕竟使用稳定,漏洞少,但具体安装的Win7是32位还是64位?你知道如何选宏...

  8. 绝地求生刺激战场出现异常怎么办呢?今天小编为大家讲解一下。01、打开手机,找到刺激战场,点击并进入,如图所示。02、进入之后,点击图示位置的小齿轮,进入设置界面,如图所示。03、...

  9. 无他相机怎么解绑微信在iPhone上流行的相机应用程序中,他的相机肯定有一席之地。利他相机是一款免费的p-photos和p-videos相机软件,为用户提供实时p-faces、电影无他相机去除这四个字...

  10. 每次你在虚拟机上启动Ubuntu时,IP都会改变,这很令人沮丧。尤其是在部署了大量的开放服务(如数据库和fastfs)之后,每次都要修改IP配置。接下来,让我们VMware虚拟机中Ubuntu系统设置固定IP的教...