6vvvvvv 发表于 2008-7-14 22:12:02

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

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

雨林GG 发表于 2008-7-15 08:52:57

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

cham 发表于 2008-7-15 15:19:08

我的第一次

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 发表于 2008-7-15 16:36:01

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

bob 发表于 2008-7-22 16:28:47

用下变量
就不用打这么多汉字了
:face (33):

dimy110 发表于 2009-5-9 10:01:20

MsgBox(64, "欢迎", "欢迎使用下小雨工作室软件自动安装程序 威海30元上门修电脑 Tel：0631-3978121")
Run("dreamplayer.exe")
WinWaitActive("鼎点梦幻媒体播放器[精简版]安装程序","许可证协议")
Send("!Y ...
cham 发表于 2008-7-15 15:19 http://www.autoitx.com/images/common/back.gif做广告的话不如用SplashTextOn好点，贯穿安装过程始终，而且不用点击确定
页: [1]
查看完整版本: 处女作--自动安装OFFICE2000中的五笔86版