｛求助｝软件自动安装

包谷面

想要自己写个自动安装可是写到这里不知道怎么写插件的啦
run("I:\客户常用\C\ttpsetup.exe")
WinWaitActive("千千静听 5.7正式版 安装程序 Unicode","访问官方主页")
ControlClick("千千静听 5.7正式版 安装程序 Unicode","","Button2")
WinWaitActive("千千静听 5.7正式版 安装程序 Unicode","访问官方主页")
ControlClick("千千静听 5.7正式版 安装程序 Unicode","","Button2")
WinWaitActive("千千静听 5.7正式版 安装程序 Unicode","访问官方主页")
ControlClick("千千静听 5.7正式版 安装程序 Unicode","","Button2")
WinWaitActive("千千静听 5.7正式版 安装程序 Unicode","指定安装本软件的目标文件夹:")
ControlClick("千千静听 5.7正式版 安装程序 Unicode","","Button4")
        要我选择   不知道怎么写啊
      大大帮帮忙

zhangchongzhi

你看看，相互学习。

#requireadmin

$title="千千静听 5.7正式版 安装程序 Unicode"

Run("ttpsetup.exe")
;欢迎
WinWait($title,"欢迎使用 千千静听 5.7正式版 安装程序")
Send("!s")
;请仔细阅读以下的"软件使用协议":
WinWait($title,"请仔细阅读以下的")
Send("!a")
;选择要安装的组件:
WinWait($title,"选择要安装的组件:")
Send("!n")
;指定安装本软件的目标文件夹:
WinWait($title,"指定安装本软件的目标文件夹:")
ControlSetText($title,"指定安装本软件的目标文件夹:","Edit1","C:\Program Files\TTPlayer")
Send("!n")
;创建快捷方式
WinWait($title,"创建快捷方式")
ControlCommand($title,"免费安装“百度工具栏”，轻松搜索，拦截广告！","Button7","UnCheck")
Send("!n")
;完成 千千静听 5.7正式版 安装向导
WinWait($title,"完成 千千静听 5.7正式版 安装向导")
ControlCommand($title,"立即运行 千千静听 5.7正式版","Button1","UnCheck")
ControlClick($title,"完成","Button17","left",1)

包谷面

回复 2# zhangchongzhi


    收下了    谢谢

xxt_ck

偶也想学习写这种东西，刚起步，支持下！

北流书生

你看看，相互学习。
zhangchongzhi 发表于 2011-4-25 11:58

    眼花了....

勇者不坏

其实就是那么回事 自己认真写完一个后 其他都差不多 自动安装的

flyself

学习学习，研究一下软件自动安装