snailclimb 发表于 2009-3-31 19:47:43

ppstream自动安装脚本（初学者）

初学者，请大家指教一二
;定义变量
$variable0="PPS v2.6.86.8250 Final"
$variable1="PPS网络电视"
$variable2="选择安装位置"
$variable3="选择文件关联"
$variable4="选择附加任务"
$variable5="精品软件推荐"
$variable6="PPS 完成安装"
$variable7=""
$variable8=""
$variable9=""

$directory="D:\软件\ppstream网络电视"


AdlibEnable("KillIE")
;pps
;主程序
Run("ppstreamsetup.exe")
TrayTip("正在安装","pps网络电视软件",5,1)
WinWaitActive($variable0,$variable1)
Send("!n")
WinWaitActive($variable0,$variable2)
ControlSetText($variable0,$variable2,"Edit1",$directory)
Send("!n")
WinWaitActive($variable0,$variable3)
Send("!n")
WinWaitActive($variable0,$variable4)
ControlClick($variable0,$variable4,"Button5")
ControlClick($variable0,$variable4,"Button7")
ControlClick($variable0,$variable4,"Button8")
Send("!n")
WinWaitActive($variable0,$variable6)
ControlClick($variable0,$variable6,"Button4")
ControlClick($variable0,$variable6,"Button7")
Send("!f")

;循环检测函数，处理意外中断
Func KillIE()
   If ProcessExists("iexplore.exe") Then ProcessClose("iexplore.exe");阻止IE弹出,填写默认浏览器进程即可
      If WinExists("安装Google工具栏","免费的Google工具栏") Then ;阻止google工具栏
                ControlClick("安装Google工具栏","免费的Google工具栏","Button4")
                Send("!i")
      ElseIf WinExists($variable0,$variable5)Then ;阻止精品安装软件推荐
                Send("{space}{tab}{space}")
                Send("!i")
      EndIf
EndFunc

:face (37):

micro_snow 发表于 2009-4-2 10:27:13

怎么樣檢測該軟件有沒有安裝過？

flkxtwrz 发表于 2009-4-2 16:40:02

如果这个成功啦我也上传个作品呵呵

lidenpan 发表于 2009-5-11 10:56:17

不错。下载收藏。。。感谢分享!!

honckly 发表于 2009-5-11 12:20:03

怎么樣檢測該軟件有沒有安裝過？
micro_snow 发表于 2009-4-2 10:27 http://www.autoitx.com/images/common/back.gif
判断安装目录是否存在？

lidenpan 发表于 2009-5-11 16:05:55

测试过。。。有个地方要改一下才能正常安装：
Func KillIE()
   If ProcessExists("iexplore.exe") Then ProcessClose("iexplore.exe");阻止IE弹出,填写默认浏览器进程即可
      If WinExists("安装Google工具栏","免费的Google工具栏") Then ;阻止google工具栏
                ControlClick("安装Google工具栏","免费的Google工具栏","Button4")
                Send("!i")
      ElseIf WinExists($variable5)Then ;一定要删除前面一个定量才行。。兄弟你自己测试一下。
                Send("{space}{tab}{space}")
                Send("!i")
      EndIf
EndFunc

lidenpan 发表于 2009-5-11 16:06:52

不过和兄弟学字不少东西。。。。。按照你的方法很方便。。。
页: [1]
查看完整版本: ppstream自动安装脚本（初学者）