找回密码
 加入
搜索
查看: 4277|回复: 6

[AU3基础] 关于或许网卡上子网掩码信息的问题

  [复制链接]
发表于 2015-8-4 14:27:00 | 显示全部楼层 |阅读模式
我想获取电脑网卡的信息代码如下:
GUICtrlSetData($bjxx_pc_nae, "计算机名称 : " & @ComputerName)

GUICtrlSetData($bjxx_ip, "本  机  IP : " & @IPAddress1)

GUICtrlSetData($bjxx_ym, "子网掩码 : ")

GUICtrlSetData($bjxx_wg, "默 认 网 关 :" & _Gateway())

Func _Gateway()
        Dim $IPGateway
        Dim $objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
        Dim $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL", 0x10 + 0x20)
        For $objItem In $colItems
                $IPGateway = $objItem.DefaultIPGateway(0)
                If StringInStr($IPGateway, ".") > 0 Then ExitLoop
        Next
        Return StringRegExpReplace($IPGateway, '(\d+\.){12}', '')
EndFunc   ;==>_Gateway

GUICtrlSetData($bjxx_mac_address, "本 机 MAC : " & _API_Get_NetworkAdapterMAC(@IPAddress1))

GUICtrlSetData($bjxx_pub_ip, "公网IP地址: " & _qqip())

Func _qqip()
        Local $source = _INetGetSource("http://ip.qq.com")
        Local $aIP = StringRegExp($source, '您当前的IP为.*?(\d[\d.]+)', 3, 1)
        If Not @error Then
                Return $aIP[0]
        Else
                Return 0
        EndIf
EndFunc   ;==>_qqip

GUICtrlSetData($bjxx_info_get_time, "当前时间:" & @YEAR & "-" & @MON & "-" & @MDAY & "  " & @HOUR & ":" & @MIN & ":" & @SEC)

有哪位大神 可以指导下 那个子网掩码 怎么写哦,跪谢
发表于 2015-8-4 17:52:30 | 显示全部楼层
命令行cmd/k ipconfig/all>1.txt 然后提取文本就可以了
发表于 2015-8-4 18:47:39 | 显示全部楼层
直接读取注册表,结果应该不会错的,不过需要枚举所有网卡。HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\services\Tcpip\Parameters\Interfaces\
发表于 2015-8-4 22:24:57 | 显示全部楼层
回复 1# sky8512
Local $net
_Gateway()
MsgBox(64, "结果", $net)
Func _Gateway()
        Dim $IPGateway
        Dim $objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
        Dim $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL", 0x10 + 0x20)
        For $objItem In $colItems
                $IPGateway = $objItem.DefaultIPGateway(0)
                               
                                $net = "子网掩码:" & $objItem.IPSubnet(0) & "”" & @CRLF
        Next
        Return StringRegExpReplace($IPGateway, '(\d+\.){12}', '')
EndFunc   ;==>_Gateway
GUICtrlSetData($bjxx_ym, $net)
发表于 2015-8-8 15:16:23 | 显示全部楼层
回复 4# chzj589

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2015-8-11 09:44:42 | 显示全部楼层
学习学习。
发表于 2015-8-13 14:43:22 | 显示全部楼层
直接读取注册表,结果应该不会错的,不过需要枚举所有网卡。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-14 14:53 , Processed in 0.080628 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表