wurich614 发表于 2011-5-6 14:19:10

i-Aotit 自动安装 一键GHOST硬盘版2010.10.10

本帖最后由 wurich614 于 2011-5-15 16:03 编辑

i-Aotit 后修改添加 有什么不对的地方给下提示 谢谢
5月9日增加win_lan.exe - 应用程序错误判断
5月15日修改win_lan.exe的判断方法;本脚本由i-Autoit-1.01 正式版 生成 ,非常感谢您的使用,请保留此脚本声明!2011年05月06日

;--------------------------------------------------------------;脚本开始
Opt("TrayIconDebug", 1) ;0=无信息, 1=调试信息                   ;托盘代码提示
Opt("WinTextMatchMode", 1) ;1=完全匹配, 2=快速匹配            ;文字匹配方式
Opt("WinTitleMatchMode", 1) ;1=开头, 2=子串, 3=完全, 4=高级   ;标题匹配方式
Opt("WinSearchChildren", 1) ;0=不搜索, 1=搜索子窗口             ;检测子窗口
Opt("WinDetectHiddenText", 1) ;0=不检测, 1=检测               ;检测隐藏文字
;--------------------------------------------------------------;设置脚本参数
Opt("MouseCoordMode", 0)   ;相对激活窗口的坐标

$WinTitle_1= "一键GHOST 安装程序"
$WinTitle_2= "win_lan.exe - 应用程序错误"
$Wintxt_1= "下一步(&N) >"
$Wintxt_2= "许可协议:"
$Wintxt_3= "安装百度工具栏"
$Wintxt_4= "下一步(&N) >"
$Wintxt_5= "确定"
$Wintxt_6= "设置“doshome.com 网址导航”为主页"
;--------------------------------------------------------------;窗口元素变量声明

TrayTip ( "温馨提示", "正在自动安装请不要动鼠标键盘"&@CRLF&"反馈http://www.joz7.com",5,4)
;--------------------------------------------------------------;右下角气泡提示

$Exe = '一键GHOST硬盘版2010.10.10.exe'
If ProcessExists($Exe) Then ProcessClose($Exe)
If Run($Exe) = 0 Then ShellExecute($Exe)

Do
      Sleep(10);
Until WinExists($Wintitle_1)
;WinMove($Wintitle_1, "", -1000, -1000)
;--------------------------------------------------------------;程序启动,显示界面

WinWaitActive($WinTitle_1, $Wintxt_1)
ControlClick($WinTitle_1, $Wintxt_1, "Button3")   ;下一步(&N) >

WinWaitActive($WinTitle_1, $Wintxt_2)
ControlClick($WinTitle_1, $Wintxt_2, "Button1")   ;许可协议:

WinWaitActive($WinTitle_1, $Wintxt_3)
ControlClick($WinTitle_1, $Wintxt_3, "Button33")   ;百度工具栏
ControlClick($WinTitle_1, $Wintxt_3, "Button1")   ;下一步(&N) >

WinWaitActive($WinTitle_1, $Wintxt_4)
ControlClick($WinTitle_1, $Wintxt_4, "Button1")   ;下一步(&N) >

Do
If WinExists($WinTitle_2, $Wintxt_5) Then            ;如果发现win_lan.exe - 应用程序错误 则
   ControlClick($WinTitle_2, $Wintxt_5, "Button1")   ;点确定
   FileSetAttrib ( "C:\dosh", "+H")                  ;win_lan.exe错误会导致C:\dosh不隐藏 这里加隐藏
Else
   sleep(1000)
EndIf
Until ProcessExists("IEXPLORE.EXE")

;[查杀进程]
ProcessClose("IEXPLORE.EXE")


WinWaitActive($WinTitle_1, $Wintxt_6)
ControlClick($WinTitle_1, $Wintxt_6, "Button32")   ;立即运行 一键GHOST
ControlClick($WinTitle_1, $Wintxt_6, "Button34")   ;设置“doshome.com 网址导航”为主页
ControlClick($WinTitle_1, $Wintxt_6, "Button1")   ;完成(&F)

;FileCopy ( "1KG_su.exe", "C:\dosh\ghos\",1)
;FileCopy ( "gho_run.exe", "C:\dosh\ghos\",1)
;--------------------------------------------------------------;两个破解文件 可复制进去


;[删除文件]
FileDelete (""&@DesktopDir&"\一键GHOST.lnk") ;--------删除文件--------

huoqingpo 发表于 2011-5-6 15:01:37

好猛好厉害·

beyotang 发表于 2011-6-9 17:54:47

本帖最后由 beyotang 于 2011-6-9 17:56 编辑

楼主麻烦帮我看看，我用了你的代码，直接用编译好的自动安装脚本没问题。可是我用我的软件安装管理器就出问题了，不管怎么弄最后拷贝破解文件都不成功。麻烦帮我看看，我的软件安装管理器在附件里。谢谢！！！！

wa61123 发表于 2011-6-18 15:54:35

如何知道软件安装界面上的控件是什么名称？

sesun 发表于 2011-7-24 11:25:05

谢谢 我学到了很多

jiandanai121 发表于 2011-8-1 17:53:47

支持一下吧

zhuceyong8888 发表于 2011-12-9 16:49:21

学习啦，谢谢楼主

fangyiliangah 发表于 2011-12-22 11:15:33

AU3功能太强大！！！要加紧学习！

yangyunbo 发表于 2011-12-24 17:27:29

来看下效果！

5366286 发表于 2012-7-30 10:47:32

如何知道软件安装界面上的控件是什么名称？

baozhiwen 发表于 2013-3-26 10:55:06

回复 10# 5366286 jiance
检测不久能看到了啊

q76609288 发表于 2014-7-10 23:27:30

貌似很不错 嘿嘿

q76609288 发表于 2014-7-10 23:27:44

有没有附件

vpxp 发表于 2015-11-9 20:20:29

学习。。。。。。。。。。。。

彬烨勇 发表于 2016-1-9 16:10:23

支持~~支持~~











http://www.discuz.net/static/image/common/sigline.gif
生活词典http://www.cidiancn.com
页: [1] 2
查看完整版本: i-Aotit 自动安装 一键GHOST硬盘版2010.10.10