AU3-设置IP和DNS

 

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>

#include <File.au3>
#include <date.au3>

Opt("GUIOnEventMode", 1)


$G_bCreate = False;
$G_Config = @WorkingDir & "\config.ini"
$G_Name= ""
$hDlg = GUICreate("修改IP",481,236)

Dim $G_arrCurInfo[8]
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")

guictrlcreatelabel("选择",10,10)
$G_hComb =  GUICtrlCreateCombo("",50,5,300,30)
;GUICtrlSetStyle($G_hComb, 0x0800)
GUICtrlSetOnEvent(-1, "ComboEvent")
InitCombox()
Const $C_Height = 20
$iY =  20+20
$G_check1  = GUICtrlCreateCheckbox("自动获取IP",10,$iY,120,20)
GUICtrlSetStyle($G_check1,$BS_CHECKBOX )
GUICtrlSetState($G_check1,$GUI_DISABLE)

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 11
    评论
命令行改DNS存在一定的BUG,有时候不一定修改成功,论坛用户需要,我特别写了一个。 SETDNS.AU3 #Region ;**** 参数创建于 ACNWrapper_GUI **** #AutoIt3Wrapper_Icon=ip.ico #AutoIt3Wrapper_Outfile=SETDNS.exe #AutoIt3Wrapper_UseAnsi=y #AutoIt3Wrapper_Res_Comment=DNS修改工具 #AutoIt3Wrapper_Res_Description=DNS修改工具 #AutoIt3Wrapper_Res_Fileversion=1.0.0.2 #AutoIt3Wrapper_Res_LegalCopyright=TVZML作品 #AutoIt3Wrapper_Run_Tidy=y #EndRegion ;**** 参数创建于 ACNWrapper_GUI **** Break(0) $g_Tray = "DNS修改工具" If WinExists($g_Tray) = 1 Then Exit AutoItWinSetTitle("DNS修改工具") $dir = (@ScriptDir & "\DNS.ini") $SectionNames = "配置信息" _setip() Exit Func _setip() ;导入IP配置 If Not FileExists($dir) Then MsgBox(16, "错误", "没有找到配置文件" & @CRLF & $dir, 3) Exit EndIf $colItems = "" $objWMIService = ObjGet("winmgmts:\\.\root\CIMV2") Dim $SetDns[2] $SetDns[0] = IniRead($dir, $SectionNames, "首选DNS", "") $SetDns[1] = IniRead($dir, $SectionNames, "备用DNS", "") TrayTip("", "正在设置DNS,请稍等...", 1) $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL", 0x10 + 0x20) $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem") If IsObj($colItems) Then For $objNetAdapter In $colItems $objNetAdapter.SetDNSServerSearchOrder($SetDns) Next EndIf Exit EndFunc ;==>_setip 配置文件样式 DNS.ini [配置信息] 首选DNS=220.189.127.106 备用DNS=220.189.127.108
评论 11
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值