最新版PPS 影音V2.7.0.1515官方原版自动安装，au3脚本

wangzihe

最新版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 ---

chishingchan

感觉代码冗长，处理方式一般！

chishingchan

不管你选还是不选安装pps游戏，它都会强制给你安装上的，所以附带了下面的卸载脚本

这个安装结束后直接杀进程即可！不需要这么麻烦！2345的PPS安装包不包含游戏，你可以去下载看看。

m765555

mouseclick支持各种电脑的分辨率安装吗？

dncsk

回复 3# chishingchan


    2345的不给结算了、、、

dncsk

。。。。。。。。。。。。。。。。。。。。。。。。。。

chishingchan

回复  chishingchan


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

送一个官方自动安装版给你！不含垃圾的。
    http://update.ppstream.com/produ ... up-update120814.exe

xinhongsen

精神上支持一下

hzxymkb

鼠标操作太多了，能用函数去完成就好了！

sunnyztx

mouseclick支持各种电脑的分辨率安装吗？
m765555 发表于 2013-2-25 13:16

    我也有这种困惑, 分辨率不同的时候你的脚本就没用了.

joyran

代码很长啊