找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 软件安装 』 › 批量装机软件安装器-可以选择一键安装配合au3制作 ...
12345678910... 17下一页
返回列表 发新帖
楼主: leiqq

[相关工具] 批量装机软件安装器-可以选择一键安装配合au3制作

 火... [复制链接]
719931662
发表于 2010-4-7 14:40:16 | 显示全部楼层
#RequireAdmin
#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=LAN.ico
#AutoIt3Wrapper_outfile=宽带连接创建程序.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Comment=宽带连接创建程序
#AutoIt3Wrapper_Res_Description=宽带连接创建程序
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_LegalCopyright=GCH
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#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, "宽带连接.")
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
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
719931662
发表于 2010-4-7 14:41:00 | 显示全部楼层
#RequireAdmin
#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=LAN.ico
#AutoIt3Wrapper_outfile=宽带连接创建程序.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Comment=宽带连接创建程序
#AutoIt3Wrapper_Res_Description=宽带连接创建程序
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_LegalCopyright=GCH
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#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, "宽带连接.")
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
回复

举报

tarcy118
发表于 2010-4-8 00:22:39 | 显示全部楼层
太贵了啊没钱下载了!!!
回复

举报

古豆
发表于 2010-4-8 20:23:59 | 显示全部楼层
可惜现在好多Ghost系统已经不提供选择了，都是直接集成……
回复

举报

wfjcckw
发表于 2010-4-9 08:00:02 | 显示全部楼层
这个看来不错，偶刚来，不知能行不
回复

举报

willnot3
发表于 2010-4-9 10:04:49 | 显示全部楼层
都是要收费得成品哦。。。
有没有免费点得教程看看。
回复

举报

evtop
发表于 2010-4-12 15:38:44 | 显示全部楼层
下载，又要钱，没钱哦
回复

举报

evtop
发表于 2010-4-12 15:56:10 | 显示全部楼层
钱那杀人不见血的刀
回复

举报

waxy
发表于 2010-4-12 16:32:28 | 显示全部楼层
可惜没有原码
回复

举报

sjwb826
发表于 2010-4-12 16:46:14 | 显示全部楼层
好东西 但是就是不知道是在哪里下载的呢？
回复

举报

rence
发表于 2010-4-13 14:21:21 | 显示全部楼层
沒有腳本沒法學習~殘念
这个坛子的东西有点儿贵
回复

举报

j34218459
发表于 2010-4-17 18:14:33 | 显示全部楼层
支持！！！
回复

举报

usasft
发表于 2010-4-19 14:42:44 | 显示全部楼层
上当了啊，还以为里面有脚本呢，还这么贵，这管理器到处都有
回复

举报

aresbati
发表于 2010-4-20 12:39:36 | 显示全部楼层
有了这个就可以自定义添加软件了？？
回复

举报

xk_email
发表于 2010-4-21 04:03:05 | 显示全部楼层
谢谢楼主，我也来学习一下
回复

举报

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

本版积分规则

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

GMT+8, 2024-11-21 17:15 , Processed in 0.072106 second(s), 14 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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