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

jyj0732 发表于 2008-6-5 11:02:48

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

;#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("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)
Opt("WinSearchChildren", 1)
Opt("WinTextMatchMode", 2)
Run("rundll32.exe netshell.dll,StartNCW")
WinWait("新建连接向导", "欢迎使用新建连接向导")
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("新建连接向导", "正在完成新建连接向导")
ControlClick("", "", 12325)
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(2000)
Exit

以下是默认创建桌面快捷方式的AU3代码：(2008年7月26日更新)
;#NoTrayIcon
#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=LAN.ico
#AutoIt3Wrapper_outfile=宽带连接创建程序.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Comment=宽带连接创建程序2
#AutoIt3Wrapper_Res_Description=宽带连接创建程序2
#AutoIt3Wrapper_Res_Fileversion=1.0.0.3
#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, "w11p0965")
ControlSetText("", "", 1615, "gch1138942")
ControlSetText("", "", 1616, "gch1138942")
ControlClick("", "", 12324)
WinWait("新建连接向导", "正在完成新建连接向导")
WinSetState("", "", @SW_SHOW)
;ControlClick("", "", 21005)
ControlCommand("", "", 21005, "Check")
Sleep(50)
If ControlCommand("", "", 21005, "IsChecked", "") Then
ControlClick("", "", 12325)
Call("_Exist")
TrayTip("", "已创建桌面快捷方式！", 15, 1)
Sleep(1000)
EndIf
ControlClick("", "", 12325)
Call("_Exist")
TrayTip("", "未创建桌面快捷方式！", 15, 1)
Sleep(1000)

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(2000)
Exit
EndFunc

我个人认为代码是越简单越好。

[ 本帖最后由 jyj0732 于 2008-7-26 10:13 编辑 ]

jhwl 发表于 2008-6-5 14:25:25

原来写了一个发出去了,
程序前面加入判断...判断当前系统是否建立宽带连接...有.退出,没有执行下一步...
有待改进,为增强程序的兼容,最好不要使用鼠标控制

boyhong 发表于 2008-6-5 16:50:10

太感谢了~~公司用了VPN~~~小改一下正好用上这个.全自动配置VPN客户端拨号

bsplin 发表于 2008-6-5 20:35:38

很不错的源码，感谢……

boyhong 发表于 2008-6-6 07:07:28

#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=LAN.ico
#AutoIt3Wrapper_outfile=vpn连接创建程序.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 ****
;#NoTrayIcon
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)
Opt("WinSearchChildren", 1)
Opt("WinTextMatchMode", 2)
AdlibEnable("end")
Func end()
   If WinExists("网络配置", "") Then
      ProcessClose("rundll32.exe")
       TrayTip("", "VPN连接已存在！", 15, 1)
       Sleep(1000)
   Exit
   EndIf
EndFunc
Run("rundll32.exe netshell.dll,StartNCW")
WinWait("新建连接向导", "欢迎使用新建连接向导")
WinSetState("新建连接向导", "欢迎使用新建连接向导", @SW_SHOW)
ControlClick("", "", 12324)
WinWait("新建连接向导", "连接到我的工作场所")
ControlClick("", "", 22126)
ControlClick("", "", 12324)
WinWait("新建连接向导", "虚拟专用网络连接")
ControlClick("", "", 22119)
ControlClick("", "", 12324)
WinWait("新建连接向导", "公司名")
ControlSetText("", "", 1680, "gongsi")
ControlClick("", "", 12324)
If winwait("新建连接向导", "不拨初始连接") then
ControlClick("", "", 1509)
ControlClick("", "", 12324)
EndIf
WinWait("新建连接向导", "输入您正连接的")
ControlSetText("", "", 1433, "60.60.60.8")
ControlClick("", "", 12324)
WinWait("新建连接向导", "在我的桌面上添加一个")
ControlClick("", "", 21005)
ControlClick("", "", 12325)
Sleep(500)
AdlibDisable()
WinWait("连接", "用户名")
ControlSetText("", "", 1104, "zhou")
ControlSetText("", "", 1103, "zhou")
ControlClick("", "", 1101)
ControlClick("", "", 1623)
ControlClick("", "", 1590)
ProcessClose("rundll32.exe")
TrayTip("", "VPN连接已成功创建！", 15, 1)
Sleep(2000)
Exit

我这个调试失败,不知错在哪了.请高手指教一下.

jyj0732 发表于 2008-6-6 11:44:28

#AutoIt3Wrapper_icon=LAN.ico
缺少LAN.ico

boyhong 发表于 2008-6-8 21:41:29

原帖由 jyj0732 于 2008-6-6 11:44 发表 http://www.autoitx.com/images/common/back.gif
#AutoIt3Wrapper_icon=LAN.ico
缺少LAN.ico

我放了~~~调试失败中。。。请高手再看下，谢谢~
我的失败在于：
到后半部分加用户名和密码的时候就执行不下去了。似乎后边那个IF错了？？？实在找不出错在哪了！！肯请高手指点下

[ 本帖最后由 boyhong 于 2008-6-8 21:46 编辑 ]

jyj0732 发表于 2008-6-8 22:18:12

AdlibEnable在这里似乎没有使用的必要吧!~


#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Icon=LAN.ico
#AutoIt3Wrapper_Outfile=vpn连接创建程序.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 ****
;#NoTrayIcon
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)
Opt("WinSearchChildren", 1)
Opt("WinTextMatchMode", 2)
Run("rundll32.exe netshell.dll,StartNCW")
WinWait("新建连接向导", "欢迎使用新建连接向导")
WinSetState("新建连接向导", "欢迎使用新建连接向导", @SW_HIDE)
ControlClick("", "", 12324)
WinWait("新建连接向导", "连接到我的工作场所")
ControlClick("", "", 22126)
ControlClick("", "", 12324)
WinWait("新建连接向导", "虚拟专用网络连接")
ControlClick("", "", 22119)
ControlClick("", "", 12324)
WinWait("新建连接向导", "公司名")
ControlSetText("", "", 1680, "gongsi1")
ControlClick("", "", 12324)
WinWait("新建连接向导", "不拨初始连接")
ControlClick("", "", 1509)
ControlClick("", "", 12324)
WinWait("新建连接向导", "输入您正连接的")
ControlSetText("", "", 1433, "60.60.60.8")
ControlClick("", "", 12324)
WinWait("新建连接向导", "在我的桌面上添加一个")
ControlClick("", "", 21005)
ControlClick("", "", 12325)
Sleep(500)
TrayTip("", "VPN连接已成功创建！", 15, 1)
Sleep(2000)
Exit

jyj0732 发表于 2008-6-8 22:23:26

另外拨号最好使用以下参数
Func IP()
run("Rasdial.exe gongsi /disconnect","",@SW_MINIMIZE) ;挂断
Sleep(2000)
run("Rasdial.exe gongsi zhou zhou","",@SW_MINIMIZE) ;拨号
EndFunc

这个是引用论坛上某位仁兄的建议.

daxinnet 发表于 2008-6-12 09:45:16

不错，学习了。。 谢谢分享

bsplin 发表于 2008-6-30 16:21:43

桌面上无连接显示的快捷方式啊！

jyj0732 发表于 2008-7-3 09:18:56

回复 11# bsplin 的帖子

默认就是不创建的.
若要默认创建则在源码中的如下位置添加相应代码
WinWait("新建连接向导", "正在完成新建连接向导")
ControlClick("", "", 21005) ;默认创建桌面快捷方式
ControlClick("", "", 12325)

daxinnet 发表于 2008-7-4 11:06:32

调试的时候怎么总是出现问题啊。。

bsplin 发表于 2008-7-4 20:46:51

原帖由 jyj0732 于 2008-7-3 09:18 发表 http://www.autoitx.com/images/common/back.gif
默认就是不创建的.
若要默认创建则在源码中的如下位置添加相应代码
WinWait("新建连接向导", "正在完成新建连接向导")
ControlClick("", "", 21005) ;默认创建桌面快捷方式
ControlClick("", "", 12 ...

感谢你的及时回复，但我试用了一下没有成功。
我发现如果将WinSetState("新建连接向导", "欢迎使用新建连接向导", @SW_SHOW)里的＠sw_hide 改成@sw_show就可以了。但会显示界面不隐藏了，不知能否一直隐藏运行呢？

jyj0732 发表于 2008-7-10 17:50:49

我只让你添加
ControlClick("", "", 21005) ;默认创建桌面快捷方式
这一句,其他的只是帮你确定添加的位置.

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