宽带连接创建程序[已添加图标文件][7.26更新]

bsplin

我明白你的意思，但我也是这样做的，还是不成功，建议楼主自己尝试下看能否成功？

jyj0732

;#NoTrayIcon
#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=LAN.ico
#AutoIt3Wrapper_outfile=宽带连接创建程序.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Comment=宽带连接创建程序
#AutoIt3Wrapper_Res_Description=宽带连接创建程序
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_LegalCopyright=GCH
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
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, "LAN")
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("", "宽带连接LAN已存在！", 15, 1)
        Sleep(2000)
        Exit
EndIf
TrayTip("", "宽带连接LAN已成功创建！", 15, 1)
Sleep(3000)
Exit
EndFunc

=======================================
以上代码可以达到目的。

bsplin

现在好使了，多谢你啊jyj0732！

浪子丹

哈哈 正是我蒙昧以求的东西呀 能不能与楼主细谈下哦 呵呵

浪子丹

哈哈 谢谢大侠们 不过还有个问题想请 比如在VPN里要更改安全设置这方面又怎么修改呢？

浪子丹

哈哈 谢谢大侠们 不过还有个问题想请 比如在VPN里要更改安全设置这方面又怎么修改呢？

浪子丹

俺是新手 想问下ControlSetText("[LAST]", "", 1433, "60.60.60.8")这句中 1433代表的是什么 还有能不能详细解答下这语句表达的意思呢 谢了

jyj0732

原帖由 浪子丹 于 2008-7-13 01:06 发表
俺是新手 想问下ControlSetText("[LAST]", "", 1433, "60.60.60.8")这句中 1433代表的是什么 还有能不能详细解答下这语句表达的意思呢 谢了

1433是控件ID ，这句话的意思是设置该控件的文本为60.60.60.8

建议你多看看帮助文件。

至于VPN的安全设置要更改注册表及拨号电话簿文件，需要借助Total Uninstall的监视安装功能。详细请到网络上搜索。

浪子丹

哈哈 谢谢了

浪子丹

问问 那里有这方面的书吗 想学学

jyj0732

汉化版本自带的帮助文件和例子很不错(虽然我没全看过)。帮助文件就是最好的教程。

cham

在我2k3下没有成功。

浪子丹

原帖由 jyj0732 于 2008-7-13 10:46 发表

1433是控件ID ，这句话的意思是设置该控件的文本为60.60.60.8

建议你多看看帮助文件。

至于VPN的安全设置要更改注册表及拨号电话簿文件，需要借助Total Uninstall的监视安装功能。详细请到网络上搜索。

能否代劳下呢？ 只要在安全设置里面修改风项就行 请大侠指点呀

jyj0732

2008年7月26日：更新了默认创建快捷方式的脚本，使整体运行更流畅。

浪子丹

jyj0732 哈哈 这个专题想与你谈谈呀