找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 软件安装 』 › 宽带连接创建程序[已添加图标文件][7.26更新] ...
123下一页
返回列表 发新帖
查看: 25334|回复: 39

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

 火 [复制链接]
jyj0732
发表于 2008-6-5 11:02:48 | 显示全部楼层 |阅读模式 
;#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("[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("新建连接向导", "正在完成新建连接向导")
ControlClick("[LAST]", "", 12325)
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(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("[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, "w11p0965")
ControlSetText("[LAST]", "", 1615, "gch1138942")
ControlSetText("[LAST]", "", 1616, "gch1138942")
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)
Call("_Exist")
TrayTip("", "已创建桌面快捷方式！", 15, 1)
Sleep(1000)
EndIf
ControlClick("[LAST]", "", 12325)
Call("_Exist")
TrayTip("", "未创建桌面快捷方式！", 15, 1)
Sleep(1000)

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


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

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？加入

×
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
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("[LAST]", "", 12324)
WinWait("新建连接向导", "连接到我的工作场所")
ControlClick("[LAST]", "", 22126)
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "虚拟专用网络连接")
ControlClick("[LAST]", "", 22119)
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "公司名")
ControlSetText("[LAST]", "", 1680, "gongsi")
ControlClick("[LAST]", "", 12324)
If winwait("新建连接向导", "不拨初始连接") then
ControlClick("[LAST]", "", 1509)
ControlClick("[LAST]", "", 12324)
EndIf
WinWait("新建连接向导", "输入您正连接的")
ControlSetText("[LAST]", "", 1433, "60.60.60.8")
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "在我的桌面上添加一个")
ControlClick("[LAST]", "", 21005)
ControlClick("[LAST]", "", 12325)
Sleep(500)
AdlibDisable()
WinWait("连接", "用户名")
ControlSetText("[LAST]", "", 1104, "zhou")
ControlSetText("[LAST]", "", 1103, "zhou")
ControlClick("[LAST]", "", 1101)
ControlClick("[LAST]", "", 1623)
ControlClick("[LAST]", "", 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 发表
#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("[LAST]", "", 12324)
WinWait("新建连接向导", "连接到我的工作场所")
ControlClick("[LAST]", "", 22126)
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "虚拟专用网络连接")
ControlClick("[LAST]", "", 22119)
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "公司名")
ControlSetText("[LAST]", "", 1680, "gongsi1")
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "不拨初始连接")
ControlClick("[LAST]", "", 1509)
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "输入您正连接的")
ControlSetText("[LAST]", "", 1433, "60.60.60.8")
ControlClick("[LAST]", "", 12324)
WinWait("新建连接向导", "在我的桌面上添加一个")
ControlClick("[LAST]", "", 21005)
ControlClick("[LAST]", "", 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("[LAST]", "", 21005) ;默认创建桌面快捷方式
ControlClick("[LAST]", "", 12325)
回复

举报

daxinnet
发表于 2008-7-4 11:06:32 | 显示全部楼层
调试的时候怎么总是出现问题啊。。
回复

举报

bsplin
发表于 2008-7-4 20:46:51 | 显示全部楼层
原帖由 jyj0732 于 2008-7-3 09:18 发表
默认就是不创建的.
若要默认创建则在源码中的如下位置添加相应代码
WinWait("新建连接向导", "正在完成新建连接向导")
ControlClick("[LAST]", "", 21005) ;默认创建桌面快捷方式
ControlClick("[LAST]", "", 12 ...


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

举报

jyj0732
 楼主| 发表于 2008-7-10 17:50:49 | 显示全部楼层
我只让你添加
ControlClick("[LAST]", "", 21005) ;默认创建桌面快捷方式
这一句,其他的只是帮你确定添加的位置.
回复

举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-21 20:12 , Processed in 0.184377 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表