|
第一个:WinRAR_5.01_X64.exe,烈火美化版的,地址:http://hrtsea.com/?p=121,源码如下:#NoTrayIcon
Opt("TrayAutoPause",0)
Run("WinRAR_5.01_X64.exe")
WinWaitActive("WinRAR 5.01 简体中文美化版 (x64)","目标文件夹")
Send("{Enter}")
WinWaitActive("WinRAR 简体中文版安装","WinRAR 关联文件")
Send("!C")
WinWaitActive("关联菜单项目","选择显示在资源管理器右键菜单中的项目")
ControlCommand("关联菜单项目","选择显示在资源管理器右键菜单中的项目","Button9","UnCheck")
ControlCommand("关联菜单项目","选择显示在资源管理器右键菜单中的项目","Button10","UnCheck")
Send("{Enter}")
WinWaitActive("WinRAR 简体中文版安装","WinRAR 关联文件")
Send("{Tab}")
Send("{Tab}")
Send("{Enter}")
WinWaitActive("WinRAR 简体中文版安装","WinRAR 已经成功地安装到文件夹")
Send("{Enter}")
WinWaitActive("","C:\ProgramData\Microsoft\Windows\Start Menu\Programs\WinRAR")
WinActive("","C:\ProgramData\Microsoft\Windows\Start Menu\Programs\WinRAR")
Send("!+{Space}+c")
Exit
求助问题:在正常系统下运行,是能关闭的,但在系统部署中调用,安装完毕后,最后关不了这如下窗口:
-------------------------------------------------------------------------------------------------------------------------
第二个:FreeIme.exe,自动安装极点五笔,官网如右:http://www.freewb.org/##NoTrayIcon
Opt("TrayAutoPause",0)
Run("FreeIme.exe")
$title = "极点五笔 十周年纪念版 安装"
$text1 = "按 [PgDn] 阅读“授权协议”的其余部分。"
$text2 = "请选择极点要安装的文件夹"
$text3 = "请选择你习惯的输入法外观式样"
$text4 = "『五笔拼音模式』可以会五笔打五笔,不会五笔打拼音(如图)"
$text5 = "引号、书名号、……这类配对标点难输?试试极点的智能标点功能吧!"
WinWaitActive($title,$text1)
WinActive($title,$text1)
ControlCommand($title,$text1,"[CLASS:Button;INSTANCE:2]","check")
ControlClick($title,$text1,"[CLASS:Button;INSTANCE:2]")
WinWaitActive($title,$text2)
WinActive($title,$text2)
ControlCommand($title,$text2,"[CLASS:Button;INSTANCE:2]","check")
ControlClick($title,$text2,"[CLASS:Button;INSTANCE:2]")
WinWaitActive($title,$text3)
WinActive($title,$text3)
ControlCommand($title,$text3,"[CLASS:Button;INSTANCE:2]","check")
ControlClick($title,$text3,"[CLASS:Button;INSTANCE:2]")
WinWaitActive($title,$text4)
WinActive($title,$text4)
ControlCommand($title,$text4,"[CLASS:Button;INSTANCE:2]","check")
ControlClick($title,$text4,"[CLASS:Button;INSTANCE:2]")
WinWaitActive($title,$text5)
WinActive($title,$text5)
ControlCommand($title,$text5,"[CLASS:Button;INSTANCE:2]","check")
ControlClick($title,$text5,"[CLASS:Button;INSTANCE:2]")
Exit
求助问题:在最后安装完毕后,弹出如下框, 我不知道,在系统部署中,如何点确定关闭掉:
窗口信息如下:
如上两个问题,烦请老师能小花点儿时间帮我解疑,感激不尽。 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?加入
×
|