返回列表 发帖
谢谢楼主了

TOP

多谢分享!谢谢

TOP

支持一下~~

TOP

我电脑有一个情况就是这样,我有一个虚拟网卡,但是MAC地址是跟物理地址相同的,结果就导致了这个情况
图1、图2为软件检测网卡信息及MAC地址



图3、图4为已编译过的软件检测的信息



图5为 ipconfig命令检测的IP



请LZ看一下。
这是当时的代码片段:
  1. Func du()
  2.         If $pan = 1 Then
  3.                 GUICtrlSetState($Group33, $GUI_FOCUS)
  4.                 GUICtrlSetState($Group33, $gui_show)
  5.                 $you = 0
  6.                 $sComboRead = GUICtrlRead($Input7)
  7.                 For $i = 0 To UBound($wangka1) - 1
  8.                         For $o = 0 To UBound($mac) - 1
  9.                                 If $sComboRead == $wangka1[$i] Then
  10.                                         GUICtrlSetData($Label10, "  " & $lianjie1[$i])
  11.                                         If StringTrimLeft($mac1[$i], 1) = "" Then
  12.                                                 yin()
  13.                                                 GUICtrlSetData($Label11, "  " & StringTrimLeft($mac1[$i], 1))
  14.                                                 GUICtrlSetData($xinxi, "当前网卡被禁用")
  15.                                                 GUICtrlSetState($button1, $GUI_DISABLE)
  16.                                                 GUICtrlSetState($button2, $GUI_DISABLE)
  17.                                                 GUICtrlSetState($button3, $GUI_DISABLE)
  18.                                                 GUICtrlSetState($button4, $GUI_DISABLE)
  19.                                                 GUICtrlSetData($Group22, "当前计算机配置信息")
  20.                                                 GUICtrlSetState($xinxi, $gui_show)
  21.                                                 GUICtrlSetImage($ico, "", 2)
  22.                                         Else
  23.                                                 GUICtrlSetState($button1, $GUI_ENABLE)
  24.                                                 GUICtrlSetState($button2, $GUI_ENABLE)
  25.                                                 GUICtrlSetState($button3, $GUI_ENABLE)
  26.                                                 GUICtrlSetState($button4, $GUI_ENABLE)
  27.                                                 GUICtrlSetState($xinxi, $gui_hide)
  28.                                                 GUICtrlSetData($Label11, "  " & StringTrimLeft($mac1[$i], 1))
  29.                                                 xian()
  30.                                         EndIf
  31.                                         ;MsgBox(0,0,UBound($mac))
  32.                                         ;_ArrayDisplay($mac)
  33.                                         If $mac[$o] == StringTrimLeft($mac1[$i], 1) Then ;Exit ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  34.                                                 $dhcp = StringTrimLeft($dhcpserver[$o], 1)
  35.                                                 If Not $dhcp = "" Then
  36.                                                         GUICtrlSetData($Group22, "当前计算机配置信息 “DHCP” ")
  37.                                                 Else
  38.                                                         GUICtrlSetData($Group22, "当前计算机配置信息")
  39.                                                 EndIf
  40.                                                 ;If $zhuangtai[$i] == "2" Then GUICtrlSetImage($ico, @TempDir & "\line.ico", 2)
  41.                                                 If $zhuangtai[$i] == "7" Then
  42.                                                         GUICtrlSetImage($ico, @TempDir & "\noline.ico", 2)
  43.                                                         GUICtrlSetData($Input66, $computer[0])
  44.                                                         _GUICtrlIpAddress_ClearAddress($Input11)
  45.                                                         _GUICtrlIpAddress_ClearAddress($Input22)
  46.                                                         _GUICtrlIpAddress_ClearAddress($Input33)
  47.                                                         _GUICtrlIpAddress_ClearAddress($Input44)
  48.                                                         _GUICtrlIpAddress_ClearAddress($Input55)
  49.                                                         _GUICtrlIpAddress_Set($Input11, RegRead('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\Tcpip\Parameters\Interfaces\' & $id[$i], "IPAddress"))
  50.                                                         _GUICtrlIpAddress_Set($Input22, RegRead('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\Tcpip\Parameters\Interfaces\' & $id[$i], "SubnetMask"))
  51.                                                         _GUICtrlIpAddress_Set($Input33, RegRead('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\Tcpip\Parameters\Interfaces\' & $id[$i], "DefaultGateway"))
  52.                                                         _GUICtrlIpAddress_Set($Input44, StringTrimLeft($DNS1[$o], 1))
  53.                                                         _GUICtrlIpAddress_Set($Input55, StringTrimLeft($DNS2[$o], 1))
  54.                                                 Else
  55.                                                         GUICtrlSetImage($ico, @TempDir & "\line.ico", 2)
  56.                                                         GUICtrlSetData($Input66, $computer[0])
  57.                                                         _GUICtrlIpAddress_ClearAddress($Input11)
  58.                                                         _GUICtrlIpAddress_ClearAddress($Input22)
  59.                                                         _GUICtrlIpAddress_ClearAddress($Input33)
  60.                                                         _GUICtrlIpAddress_ClearAddress($Input44)
  61.                                                         _GUICtrlIpAddress_ClearAddress($Input55)
  62.                                                         _GUICtrlIpAddress_Set($Input11, StringTrimLeft($IP[$o], 1))
  63.                                                         _GUICtrlIpAddress_Set($Input22, StringTrimLeft($MAST[$o], 1))
  64.                                                         _GUICtrlIpAddress_Set($Input33, StringTrimLeft($GATEWAY[$o], 1))
  65.                                                         _GUICtrlIpAddress_Set($Input44, StringTrimLeft($DNS1[$o], 1))
  66.                                                         _GUICtrlIpAddress_Set($Input55, StringTrimLeft($DNS2[$o], 1))
  67.                                                 EndIf
  68.                                         EndIf
  69.                                 EndIf
  70.                         Next
  71.                 Next
  72.         ElseIf $pan = 0 Then
  73.                 GUICtrlSetState($Group33, $GUI_FOCUS)
  74.                 GUICtrlSetState($Group33, $gui_show)
  75.                 $you = 0
  76.                 ;GUICtrlSetState($xinxi, $gui_hide)If StringTrimLeft($mac1[$i], 1) = "" Then
  77.                 If StringTrimLeft($mac1[0], 1) = "" Then
  78.                         yin()
  79.                         ;GUICtrlSetData($Label11, "  " & StringTrimLeft($mac1[0], 1))
  80.                         GUICtrlSetData($xinxi, "当前网卡被禁用")
  81.                         GUICtrlSetState($button1, $GUI_DISABLE)
  82.                         GUICtrlSetState($button2, $GUI_DISABLE)
  83.                         GUICtrlSetState($button3, $GUI_DISABLE)
  84.                         GUICtrlSetState($button4, $GUI_DISABLE)
  85.                         GUICtrlSetData($Group22, "当前计算机配置信息")
  86.                         GUICtrlSetState($xinxi, $gui_show)
  87.                         GUICtrlSetImage($ico, "", 2)
  88.                 Else
  89.                         GUICtrlSetState($button1, $GUI_ENABLE)
  90.                         GUICtrlSetState($button2, $GUI_ENABLE)
  91.                         GUICtrlSetState($button3, $GUI_ENABLE)
  92.                         GUICtrlSetState($button4, $GUI_ENABLE)
  93.                         GUICtrlSetState($xinxi, $gui_hide)
  94.                         GUICtrlSetData($Label11, "  " & StringTrimLeft($mac1[0], 1))
  95.                         xian()
  96.                         GUICtrlSetData($Label10, "  " & $lianjie1[0])
  97.                         $dhcp = StringTrimLeft($dhcpserver[0], 1)
  98.                         If Not $dhcp = "" Then
  99.                                 GUICtrlSetData($Group22, "当前计算机配置信息 “DHCP” ")
  100.                         Else
  101.                                 GUICtrlSetData($Group22, "当前计算机配置信息")
  102.                         EndIf
  103.                         If $zhuangtai[0] == "7" Then
  104.                                 GUICtrlSetImage($ico, @TempDir & "\noline.ico", 2)
  105.                                 GUICtrlSetData($Input66, $computer[0])
  106.                                 _GUICtrlIpAddress_ClearAddress($Input11)
  107.                                 _GUICtrlIpAddress_ClearAddress($Input22)
  108.                                 _GUICtrlIpAddress_ClearAddress($Input33)
  109.                                 _GUICtrlIpAddress_ClearAddress($Input44)
  110.                                 _GUICtrlIpAddress_ClearAddress($Input55)
  111.                                 _GUICtrlIpAddress_Set($Input11, RegRead('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\Tcpip\Parameters\Interfaces\' & $id[0], "IPAddress"))
  112.                                 _GUICtrlIpAddress_Set($Input22, RegRead('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\Tcpip\Parameters\Interfaces\' & $id[0], "SubnetMask"))
  113.                                 _GUICtrlIpAddress_Set($Input33, RegRead('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\Tcpip\Parameters\Interfaces\' & $id[0], "DefaultGateway"))
  114.                                 _GUICtrlIpAddress_Set($Input44, StringTrimLeft($DNS1[0], 1))
  115.                                 _GUICtrlIpAddress_Set($Input55, StringTrimLeft($DNS2[0], 1))
  116.                         Else
  117.                                 GUICtrlSetImage($ico, @TempDir & "\line.ico", 2)
  118.                                 GUICtrlSetData($Input66, $computer[0])
  119.                                 _GUICtrlIpAddress_ClearAddress($Input11)
  120.                                 _GUICtrlIpAddress_ClearAddress($Input22)
  121.                                 _GUICtrlIpAddress_ClearAddress($Input33)
  122.                                 _GUICtrlIpAddress_ClearAddress($Input44)
  123.                                 _GUICtrlIpAddress_ClearAddress($Input55)
  124.                                 _GUICtrlIpAddress_Set($Input11, StringTrimLeft($IP[0], 1))
  125.                                 _GUICtrlIpAddress_Set($Input22, StringTrimLeft($MAST[0], 1))
  126.                                 _GUICtrlIpAddress_Set($Input33, StringTrimLeft($GATEWAY[0], 1))
  127.                                 _GUICtrlIpAddress_Set($Input44, StringTrimLeft($DNS1[0], 1))
  128.                                 _GUICtrlIpAddress_Set($Input55, StringTrimLeft($DNS2[0], 1))
  129.                         EndIf
  130.                 EndIf
  131.         Else
  132.                 GUICtrlSetData($xinxi, "没有检测到网卡!")
  133.                 GUICtrlSetData($Group22, "当前计算机配置信息")
  134.                 GUICtrlSetState($xinxi, $gui_show)
  135.                 GUICtrlSetState($button1, $GUI_DISABLE)
  136.                 GUICtrlSetState($button2, $GUI_DISABLE)
  137.                 GUICtrlSetState($button3, $GUI_DISABLE)
  138.                 GUICtrlSetState($button4, $GUI_DISABLE)
  139.         EndIf
  140. EndFunc   ;==>du
复制代码
附件: 您需要登录才可以下载或查看附件。没有帐号?加入

TOP

正在找这样的程序,谢谢分享

TOP

不知道可有源码

TOP

回复 2# austere

TOP

回复能看到吗

TOP

回复 2# austere


    闪过不停的 ,不能动

TOP

回复 1# austere


    源码用什么版本编译

TOP

很好,下载试试试试如何

TOP

回复 205# cfengah


    3.12以上的版本均可

TOP

回复 199# yuantian


    因为我是根据MAC地址来做判断的,如果两个MAC地址一样的话,那么判断条件就要修改一下

TOP

其实这个想法不错,可以借鉴一下。

TOP

返回列表