这个新建宽带连接的脚本如何全静默运行？谢谢

59406

这个新建宽带连接的脚本让他如何全静默运行？谢谢大家
----------------------------------------------------------------

;#NoTrayIcon
Opt("WinWaitDelay", 100)
Opt("TrayAutoPause", 0)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)
Opt("WinSearchChildren", 1)
Opt("WinTextMatchMode", 2)
Run("rundll32.exe netshell.dll,StartNCW")
WinWait("新建连接向导", "欢迎使用新建连接向导")
WinActivate("新建连接向导", "")
WinSetState("[LAST]", "", @SW_HIDE)
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "连接到我的工作场所")
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "手动设置我的连接")
ControlClick("[LAST]", "", 22129)
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "用拨号调制解调器连接")
ControlClick("[LAST]", "", 22121)
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "ISP 名称")
ControlSetText("[LAST]", "", 1680, "宽带连接")
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "任何用户从这台计算机")
ControlSetText("[LAST]", "", 1614, "");用户名
ControlSetText("[LAST]", "", 1615, "");密码
ControlSetText("[LAST]", "", 1616, "");确认密码
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "正在完成新建连接向导")
WinSetState("[LAST]", "", @SW_SHOW)
;ControlClick("[LAST]", "", 21005)
ControlCommand("[LAST]", "", 21005, "Check")
Sleep(50)
If ControlCommand("[LAST]", "", 21005, "IsChecked", "") Then
ControlClick("[LAST]", "", 12325)
TrayTip("", "创建桌面快捷方式！", 15, 1)
Sleep(1000)
Call("_Exist")
EndIf
ControlClick("[LAST]", "", 12325)
TrayTip("", "未创建桌面快捷方式！", 15, 1)
Sleep(1000)
Call("_Exist")

Func _Exist()
Sleep(50)
If ControlCommand("网络配置", "", 65535, "IsVisible") Then
        WinSetState("[LAST]", "", @SW_HIDE)
        ;WinSetState("网络配置", "连接已存在", @SW_HIDE)
        ControlClick("[LAST]", "", 2)
        ControlClick("新建连接向导", "正在完成新建连接向导", 2)
        TrayTip("", "宽带连接已存在！", 15, 1)
        Sleep(2000)
        Exit
EndIf
TrayTip("", "宽带连接已成功创建！", 15, 1)
Sleep(3000)
Exit
EndFunc

-------------------------------------------------------------------------

都市浪子666

无界面创建一个宽带连接 (不是模拟按键的那种)
http://www.autoitx.com/forum.php ... D%B4%F8%C1%AC%BD%D3

楼主看这贴