论坛 › 『 软件安装 』 › 宽带连接创建程序[已添加图标文件][7.26更新]

bsplin 发表于 2008-7-10 18:44:10

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

jyj0732 发表于 2008-7-12 08:35:01

;#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("", "", @SW_HIDE)
ControlClick("", "", 12324)
WinWait("新建连接向导", "连接到我的工作场所")
ControlClick("", "", 12324)
WinWait("新建连接向导", "手动设置我的连接")
ControlClick("", "", 22129)
ControlClick("", "", 12324)
WinWait("新建连接向导", "用拨号调制解调器连接")
ControlClick("", "", 22121)
ControlClick("", "", 12324)
WinWait("新建连接向导", "ISP 名称")
ControlSetText("", "", 1680, "LAN")
ControlClick("", "", 12324)
WinWait("新建连接向导", "任何用户从这台计算机")
ControlSetText("", "", 1614, "");用户名
ControlSetText("", "", 1615, "");密码
ControlSetText("", "", 1616, "");确认密码
ControlClick("", "", 12324)
WinWait("新建连接向导", "正在完成新建连接向导")
WinSetState("", "", @SW_SHOW)
;ControlClick("", "", 21005)
ControlCommand("", "", 21005, "Check")
Sleep(50)
If ControlCommand("", "", 21005, "IsChecked", "") Then
ControlClick("", "", 12325)
TrayTip("", "创建桌面快捷方式！", 15, 1)
Sleep(1000)
Call("_Exist")
EndIf
ControlClick("", "", 12325)
TrayTip("", "未创建桌面快捷方式！", 15, 1)
Sleep(1000)
Call("_Exist")

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

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

bsplin 发表于 2008-7-12 20:16:18

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

浪子丹 发表于 2008-7-13 00:07:33

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

浪子丹 发表于 2008-7-13 00:34:37

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

浪子丹 发表于 2008-7-13 00:56:17

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

浪子丹 发表于 2008-7-13 01:06:38

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

jyj0732 发表于 2008-7-13 10:46:56

原帖由 浪子丹 于 2008-7-13 01:06 发表 http://www.autoitx.com/images/common/back.gif
俺是新手 想问下ControlSetText("", "", 1433, "60.60.60.8")这句中 1433代表的是什么 还有能不能详细解答下这语句表达的意思呢 谢了
1433是控件ID ，这句话的意思是设置该控件的文本为60.60.60.8

建议你多看看帮助文件。

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

浪子丹 发表于 2008-7-13 19:38:09

哈哈 谢谢了

浪子丹 发表于 2008-7-13 21:58:15

:face (29): 问问 那里有这方面的书吗 想学学

jyj0732 发表于 2008-7-14 10:49:34

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

cham 发表于 2008-7-15 15:27:08

在我2k3下没有成功。

浪子丹 发表于 2008-7-18 18:54:01

原帖由 jyj0732 于 2008-7-13 10:46 发表 http://www.autoitx.com/images/common/back.gif

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

建议你多看看帮助文件。

至于VPN的安全设置要更改注册表及拨号电话簿文件，需要借助Total Uninstall的监视安装功能。详细请到网络上搜索。
能否代劳下呢？ 只要在安全设置里面修改风项就行 请大侠指点呀

jyj0732 发表于 2008-7-26 10:15:29

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

浪子丹 发表于 2008-8-1 07:26:22

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

查看完整版本: 宽带连接创建程序[已添加图标文件][7.26更新]