处女作--自动安装OFFICE2000中的五笔86版

6vvvvvv

处女作(感谢kakinkgb的ControlClick例子)
run ("d:\wb86-98.EXE")
winwaitactive("微软拼音输入法（2.0）","请仔细阅读")
ControlClick("微软拼音输入法（2.0）","请仔细阅读","[class:Button;INSTANCE:2]")
winwaitactive("中文输入法组件安装程序","请从选项列表")
ControlClick("中文输入法组件安装程序","请从选项列表",'ListBox1',"left",1,10,25)
winwaitactive("中文输入法组件安装程序","请从选项列表")
ControlClick("中文输入法组件安装程序","请从选项列表","[class:Button;INSTANCE:1]")
winwaitactive("王码五笔型输入法","请仔细阅读")
ControlClick("王码五笔型输入法","请仔细阅读","[class:Button;INSTANCE:1]")
winwaitactive("中文输入法组件安装程序","中文输入法组件安装程序执行结束")
send("{enter}")

雨林GG

哈哈^~^ 好好学习 天天向上~

cham

MsgBox(64, "欢迎", "欢迎使用下小雨工作室软件自动安装程序 威海30元上门修电脑 Tel：0631-3978121")
Run("dreamplayer.exe")
WinWaitActive("鼎点梦幻媒体播放器[精简版]安装程序","许可证协议")
Send("!Y")
WinWaitActive("鼎点梦幻媒体播放器[精简版]安装程序","关于本软件的说明")
Send("!N")
WinWaitActive("鼎点梦幻媒体播放器[精简版]安装程序","选择目的地位置")
Send("!N")
WinWaitActive("鼎点梦幻媒体播放器[精简版]安装程序","选择功能")
Send("!N")
WinWaitActive("鼎点梦幻媒体播放器[精简版]安装程序","选择程序文件夹")
Send("!N")
WinWaitActive("播放器设置","选择关联的文件类型")
;,三下tab，回车，然后四下tab，回车，取消万恶的鼎点文件关联。
Send("{TAB 3}") ;
Send("{ENTER}") ;
Send("{TAB 4}") ;
Send("{ENTER}") ;

我的比你简单多了。。

6vvvvvv

五笔安装用SEND TAB无法实现的 自己试试就知道了 (OFFICE2000自带的五笔安装)

bob

用下变量
就不用打这么多汉字了

dimy110

[au3]MsgBox(64, "欢迎", "欢迎使用下小雨工作室软件自动安装程序 威海30元上门修电脑 Tel：0631-3978121")
Run("dreamplayer.exe")
WinWaitActive("鼎点梦幻媒体播放器[精简版]安装程序","许可证协议")
Send("!Y ...
cham 发表于 2008-7-15 15:19

做广告的话不如用SplashTextOn好点，贯穿安装过程始终，而且不用点击确定