找回密码
 加入
搜索
查看: 8613|回复: 10

[原创] 最新版PPS 影音V2.7.0.1515官方原版自动安装,au3脚本

[复制链接]
发表于 2013-1-15 22:37:04 | 显示全部楼层 |阅读模式
最新版PPS 影音V2.7.0.1515官方原版自动安装,au3脚本
;PPS 影音V2.7.0.1515官方正式原版安装
#region ---Au3Recorder generated code Start ---
Opt("WinWaitDelay",100)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)


Run('PPS 影音V2.7.0.1515.exe')
Sleep(500)
_WinWaitActivate("PPS影音 V2.7.0.1515 正式版","选中你想要安装的组件,并取消勾选你不希望")
WinActivate("PPS影音 V2.7.0.1515 正式版","选中你想要安装的组件,并取消勾选你不希望")
WinWaitActive("PPS影音 V2.7.0.1515 正式版","选中你想要安装的组件,并取消勾选你不希望")
MouseClick("left",227,301,1)
Sleep(500)
MouseClick("left",435,365,1)
WinActivate("PPS影音 V2.7.0.1515 正式版","< 上一步(&P)")
WinWaitActive("PPS影音 V2.7.0.1515 正式版","< 上一步(&P)")
MouseMove(77,141)
MouseDown("left")
MouseMove(70,142)
MouseUp("left")
Send("d")
MouseClick("left",64,218,1)
MouseClick("left",64,244,1)
MouseClick("left",230,194,1)
MouseClick("left",230,219,1)
MouseClick("left",436,365,1)
Sleep(300)
MouseClick("left",437,366,1)
WinWait("PPS影音 V2.7.0.1515 正式版","关闭(&L)")
WinActivate("PPS影音 V2.7.0.1515 正式版","关闭(&L)")
WinWaitActive("PPS影音 V2.7.0.1515 正式版","关闭(&L)")
MouseClick("left",76,133,1)
MouseClick("left",236,134,1)
MouseClick("left",76,186,1)
MouseClick("left",76,208,1)
MouseClick("left",76,230,1)
MouseClick("left",76,252,1)
MouseClick("left",533,366,1)
FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\PPS影音.lnk")
Sleep(20000)
$file='C:\Program Files\PPSGame\unppsgame.exe'
If Not FileExists($file) Then Exit
Run($file)
If WinWait("卸载 PPS游戏") Then
        WinActivate("卸载 PPS游戏")
        WinWaitActive("卸载 PPS游戏")
        MouseClick("left",122,96,1)
                winWait("卸载 PPS游戏", "是否清空账户信息?") 
        WinActivate("卸载 PPS游戏", "是否清空账户信息?")
        WinWaitActive("卸载 PPS游戏", "是否清空账户信息?")
        MouseClick("left",48,97,1)
                winWait("卸载 PPS游戏", "提交") 
        WinActivate("卸载 PPS游戏", "提交")
        WinWaitActive("卸载 PPS游戏", "提交")
        MouseClick("left",364,368,1)
                winWait("卸载 PPS游戏", "已成功地从您的计算机卸载") 
        WinActivate("卸载 PPS游戏", "已成功地从您的计算机卸载")
        WinWaitActive("卸载 PPS游戏", "已成功地从您的计算机卸载")
        MouseClick("left",139,97,1)
EndIf

#region --- Internal functions Au3Recorder Start ---
Func _WinWaitActivate($title,$text,$timeout=0)
        WinWait($title,$text,$timeout)
        If Not WinActive($title,$text) Then WinActivate($title,$text)
        WinWaitActive($title,$text,$timeout)
EndFunc
#endregion --- Internal functions Au3Recorder End ---

#endregion --- Au3Recorder generated code End ---

FileSetAttrib(@ProgramsDir & "\PPS 影音.lnk", "-R-S", 1)
FileSetAttrib(@ProgramsCommonDir & "\PPS 影音.lnk", "-R-S", 1)
FileDelete(@ProgramsDir & "\PPS 影音.lnk");删除当前用户中的
FileDelete(@ProgramsCommonDir & "\PPS 影音.lnk");删除所有用户中的
FileDelete("C:\Documents and Settings\All Users\「开始」菜单\PPS影音.lnk");删除所有用户中的



Sleep(20000)


;不管你选还是不选安装pps游戏,它都会强制给你安装上的,所以附带了下面的卸载脚本
;PPS游戏卸载
#region ---Au3Recorder generated code Start ---
Opt("WinWaitDelay",100)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

$file='C:\Program Files\PPSGame\unppsgame.exe'
If Not FileExists($file) Then Exit
Run($file)
If WinWait("卸载 PPS游戏") Then
        WinActivate("卸载 PPS游戏")
        WinWaitActive("卸载 PPS游戏")
        MouseClick("left",122,96,1)
                winWait("卸载 PPS游戏", "是否清空账户信息?") 
        WinActivate("卸载 PPS游戏", "是否清空账户信息?")
        WinWaitActive("卸载 PPS游戏", "是否清空账户信息?")
        MouseClick("left",48,97,1)
                winWait("卸载 PPS游戏", "提交") 
        WinActivate("卸载 PPS游戏", "提交")
        WinWaitActive("卸载 PPS游戏", "提交")
        MouseClick("left",364,368,1)
                winWait("卸载 PPS游戏", "已成功地从您的计算机卸载") 
        WinActivate("卸载 PPS游戏", "已成功地从您的计算机卸载")
        WinWaitActive("卸载 PPS游戏", "已成功地从您的计算机卸载")
        MouseClick("left",139,97,1)
EndIf

#region --- Internal functions Au3Recorder Start ---

#endregion --- Internal functions Au3Recorder End ---

#endregion --- Au3Recorder generated code End ---
发表于 2013-2-8 08:52:20 | 显示全部楼层
感觉代码冗长,处理方式一般!
发表于 2013-2-14 15:53:29 | 显示全部楼层
不管你选还是不选安装pps游戏,它都会强制给你安装上的,所以附带了下面的卸载脚本


这个安装结束后直接杀进程即可!不需要这么麻烦!2345的PPS安装包不包含游戏,你可以去下载看看。
发表于 2013-2-25 13:16:09 | 显示全部楼层
mouseclick支持各种电脑的分辨率安装吗?
发表于 2013-3-7 18:18:50 | 显示全部楼层
回复 3# chishingchan


    2345的不给结算了、、、
发表于 2013-3-7 18:19:31 | 显示全部楼层
。。。。。。。。。。。。。。。。。。。。。。。。。。
发表于 2013-3-7 19:33:27 | 显示全部楼层
回复  chishingchan


    2345的不给结算了、、、
dncsk 发表于 2013-3-7 18:18


送一个官方自动安装版给你!不含垃圾的。
    http://update.ppstream.com/produ ... up-update120814.exe
发表于 2013-9-21 13:49:14 | 显示全部楼层
精神上支持一下
发表于 2013-9-24 08:56:46 | 显示全部楼层
鼠标操作太多了,能用函数去完成就好了!
发表于 2013-9-27 13:30:54 | 显示全部楼层
mouseclick支持各种电脑的分辨率安装吗?
m765555 发表于 2013-2-25 13:16



    我也有这种困惑, 分辨率不同的时候你的脚本就没用了.
发表于 2014-3-2 00:00:41 | 显示全部楼层
代码很长啊
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-19 17:47 , Processed in 0.073856 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表