找回密码
 加入
搜索
查看: 9394|回复: 14

[原创] PPTV最新版3.1.7.0033全自动安装 撒手不管,保证完全任务!

  [复制链接]
发表于 2012-6-18 20:20:48 | 显示全部楼层 |阅读模式
本帖最后由 xlj310 于 2012-7-6 10:40 编辑

=-.-=
逗你玩!作品,谢谢您的光临!~ ;安装PPTV----By 逗你玩!   生活就是玩呀玩!
;
;~ ;安装PPTV过程中不要随意增添TrayTip之类的语句,否则安装会出意外!
HotKeySet('{F4}','MyExit')
TrayTip('温馨提示','如果程序出现异常'&@crlf&'只需轻轻的按一下F4脚本就会退出!',5)
Run("pptvsetup_3.1.7.0033.exe")
$ret=WinWait('PPTV网络电视安装向导','',1)
If $ret<>0 Then
        Opt('MouseCoordMode', 0)
        Do
                $pos=MouseGetPos()
                WinSetOnTop('PPTV网络电视安装向导','',1)
        WinActivate('PPTV网络电视安装向导')
        MouseClick('left', 206, 157, 1, 0) ; 测试中, 发现 发送回车等按键无效, 折中做法.
        MouseMove($pos[0],$pos[1],0)
        BlockInput(0)
                ToolTip('检测到PPTV正在运行,正在试图关闭!')
                Sleep(5000)
        Until Not WinExists('PPTV网络电视安装向导')
        ToolTip('')
EndIf
Sleep(1500)
TrayTip('清除提示','',0);提示不清除会影响后面的操作!
WinWait('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
WinActivate('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
ControlSetText('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','ATL:Edit1','E:\Program Files\pplive')
Opt('MouseCoordMode', 0)
Do
        BlockInput(1)
        $pos=MouseGetPos()
        WinActivate('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
        MouseClick('left', 360, 330, 1, 0) ; 测试中, 发现 发送回车等按键无效, 折中做法.
        MouseMove($pos[0],$pos[1],0)
        BlockInput(0)
        Sleep(2500);这个两秒是有必要的,万一出现意外,2秒钟的时间可以让人关闭本脚本。否则可能会死循环,我自己测试时就死过机,只能强制重启电脑!
Until ControlCommand('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation2',"IsVisible", "")=0

Do 
        Sleep(100)
Until ControlCommand('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation4',"IsVisible", "")=1

WinActivate('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
ControlClick('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation4','',1,37, 67);去掉立即运行PPTV
ControlClick('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation4','',1,262, 67);去掉启动windows时自动运行PPTV
ControlClick('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation4','',1,37, 256);点一下全选按钮,效果是都不选 有些机器上的坐标是37, 210

Do        
        BlockInput(1)
        $pos=MouseGetPos()
        WinActivate('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
        Sleep(150)
        MouseClick('left', 360, 330, 1, 0) ; 测试中, 发现 发送回车等按键无效, 折中做法.
        MouseMove($pos[0],$pos[1],0)
        BlockInput(0)
Until ControlCommand('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation4',"IsVisible", "")=0

Do 
        Sleep(100)
Until ControlCommand('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation5',"IsVisible", "")=1

WinActivate('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
ControlClick('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation5','',1,202, 190);去掉安装百度工具栏

Do
        BlockInput(1)
        $pos=MouseGetPos()
        WinActivate('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
        MouseClick('left', 360, 330, 1, 0) ; 测试中, 发现 发送回车等按键无效, 折中做法.
        MouseMove($pos[0],$pos[1],0)
        BlockInput(0)
Until Not WinExists('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')

If FileExists(@DesktopCommonDir&'\PPTV在线影视.lnk') Then FileDelete(@DesktopCommonDir&'\PPTV在线影视.lnk')
If FileExists(@DesktopCommonDir&'\PP游戏世界.lnk') Then FileDelete(@DesktopCommonDir&'\PP游戏世界.lnk')

;经过多次测试,发现PP年度必看.lnk这个文件是在安装完成后约3秒钟才生成的~ 所以我也来个3秒钟后再删除!
Run(@ComSpec & ' /c ping 127.0.0.1 -n 5&del /q /f "'&@DesktopDir&'"\PP年度必看.lnk', @DesktopDir, @SW_HIDE);5秒后再删除一次
WinWait("安装弹出-PPTV",'',5);超时时间5秒
If WinExists("安装弹出-PPTV") Then
        Do
                WinActivate("安装弹出-PPTV")
                SendKeepActive("安装弹出-PPTV")
                Send("^{w}")
                ToolTip('正在试图关闭PPTV网页弹窗')
                Sleep(2000)
        Until Not WinExists('安装弹出-PPTV')
        ToolTip('')
EndIf

$i=5
Do
     TrayTip('安装完成!','感谢您使用逗你玩!脚本安装'&@CRLF&$i,5)
     sleep(1000)
    $i-=1
Until $i<0

Func MyExit()
        Exit
EndFunc
        
其实还有一个问题没有解决,就是安装完成后有一个网页弹窗不知道该如何关闭:
1.不要告诉我用winclose("安装弹出-PPTV"),这样会把浏览器都关掉,因为现在很多人都用的是多选项卡的浏览器!-----已解决! 使用Ctrl+W模拟按键关掉!
2.貌似这个问题有很多人都遇到过,都在期待高手解答,我也在关注着。 遗憾啊!-----折中做法,不过效果是达到了!
 楼主| 发表于 2012-6-18 20:21:46 | 显示全部楼层
期待高手的出现,关闭浏览器多选项卡中指定的选项卡
 楼主| 发表于 2012-6-19 13:40:04 | 显示全部楼层
本帖最后由 xlj310 于 2012-6-19 13:41 编辑
ControlClick('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow','PPGuiFoundation4','',1,37, 210);点一下全选按钮,效果是都不选
我在一台自己的电脑(分辨率1680*1050)上可以,
但换一台电脑(分辨率1440*900)上这个全选复选框的坐标似乎变成了 37,256  
所以大家在使用时请特别留意一下,否则会有至少5种软件会在后台下载并安装!

变换分辨率测试发现这个坐标没有变化,还在测试中……
 楼主| 发表于 2012-6-19 13:44:26 | 显示全部楼层
本帖最后由 xlj310 于 2012-6-19 13:50 编辑
期待高手的出现,关闭浏览器多选项卡中指定的选项卡
xlj310 发表于 2012-6-18 20:21



    如果浏览器是用的IE核心打开的这个PPTV弹窗,则可以使用下面的方法关闭。
#include<IE.au3>;最好是放在文件顶端起始位置,这样规范
$oIE = _IEAttach("http://zt.pptv.com/gamestg/inst_pop2.html?version=3.1.6.0056","URL")
If $oIE <> 0  Then        $oIE.document.parentwindow.execscript('javascript:window.opener=null;window.open("","_self"); self.close();')
<PS>如果有多个窗口(一般是由于安装多次引起,自己加个循环)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2012-6-19 14:20:49 | 显示全部楼层
回复 3# xlj310


    Opt("MouseCoordMode", 0);切换鼠标坐标模式1=绝对坐标,相对屏幕, 0=相对坐标,相对当前激活窗体
 楼主| 发表于 2012-6-19 14:24:33 | 显示全部楼层
回复  5#


    Opt("MouseCoordMode", 0);切换鼠标坐标模式1=绝对坐标,相对屏幕, 0=相对坐标,相 ...
ooxxgod 发表于 2012-6-19 14:20



    问题不是你说的那么简单,我在代码中都有设置Opt("MouseCoordMode", 0)
而且在点那个“全选”的框之前还有另外两个框(立即运行和开机运行),那两个框都可以正常点到。
只有这个全选框会动,目前还没有总结出原因。
发表于 2012-6-19 14:42:03 | 显示全部楼层
指定激活窗体 延时试试
发表于 2012-6-19 15:23:19 | 显示全部楼层
本帖最后由 user3000 于 2012-6-22 14:42 编辑

回复 4# xlj310
关闭这个, 直接发送按键 atl + w

汗, 记错, 应该是 Ctrl + w
发表于 2012-6-19 22:11:22 | 显示全部楼层
本帖最后由 zerobin 于 2012-6-19 23:00 编辑

回复 6# xlj310

切换标签 ctrl+tab
关闭标签 ctrl+w
发表于 2012-6-20 14:27:22 | 显示全部楼层
果然众人拾柴火焰高~
 楼主| 发表于 2012-6-22 10:23:35 | 显示全部楼层
回复  xlj310

切换标签 ctrl+tab
关闭标签 ctrl+w
zerobin 发表于 2012-6-19 22:11



    目前这种办法最佳!  可以参考一下,嘿嘿!
发表于 2012-6-24 01:31:30 | 显示全部楼层
这个也顶上面了.???
 楼主| 发表于 2012-6-24 08:26:38 | 显示全部楼层
本帖最后由 xlj310 于 2012-7-6 10:41 编辑

感谢指导,这是最新版3.1.7.0033的安装程序,嘿嘿!;~ ;安装PPTV----By 逗你玩!   生活就是玩呀玩!

;~ ;安装PPTV过程中不要随意增添TrayTip之类的语句,否则安装会出意外!
HotKeySet('{F4}','MyExit')
TrayTip('温馨提示','如果程序出现异常'&@crlf&'只需轻轻的按一下F4脚本就会退出!',5)
Run("pptvsetup_3.1.7.0033.exe")
$ret=WinWait('PPTV网络电视安装向导','',1)
If $ret<>0 Then
        Opt('MouseCoordMode', 0)
        Do
                $pos=MouseGetPos()
        WinActivate('PPTV网络电视安装向导','PPTV subwindow')
        MouseClick('left', 206, 157, 1, 0) ; 测试中, 发现 发送回车等按键无效, 折中做法.
        MouseMove($pos[0],$pos[1],0)
        BlockInput(0)
                ToolTip('检测到PPTV正在运行,正在试图关闭!')
                Sleep(5000)
        Until Not WinExists('PPTV网络电视安装向导')
        ToolTip('')
EndIf
Sleep(1500)
TrayTip('清除提示','',0);提示不清除会影响后面的操作!
WinWait('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
WinActivate('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
ControlSetText('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','ATL:Edit1','E:\Program Files\pplive')
Opt('MouseCoordMode', 0)
Do
        BlockInput(1)
        $pos=MouseGetPos()
        WinActivate('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
        MouseClick('left', 360, 330, 1, 0) ; 测试中, 发现 发送回车等按键无效, 折中做法.
        MouseMove($pos[0],$pos[1],0)
        BlockInput(0)
        Sleep(2500);这个两秒是有必要的,万一出现意外,2秒钟的时间可以让人关闭本脚本。否则可能会死循环,我自己测试时就死过机,只能强制重启电脑!
Until ControlCommand('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation2',"IsVisible", "")=0

Do 
        Sleep(100)
Until ControlCommand('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation4',"IsVisible", "")=1

WinActivate('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
ControlClick('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation4','',1,37, 67);去掉立即运行PPTV
ControlClick('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation4','',1,262, 67);去掉启动windows时自动运行PPTV
ControlClick('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation4','',1,37, 256);点一下全选按钮,效果是都不选 有些机器上的坐标是37, 210

Do        
        BlockInput(1)
        $pos=MouseGetPos()
        WinActivate('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
        Sleep(150)
        MouseClick('left', 360, 330, 1, 0) ; 测试中, 发现 发送回车等按键无效, 折中做法.
        MouseMove($pos[0],$pos[1],0)
        BlockInput(0)
Until ControlCommand('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation4',"IsVisible", "")=0

Do 
        Sleep(100)
Until ControlCommand('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation5',"IsVisible", "")=1

WinActivate('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
ControlClick('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow','PPGuiFoundation5','',1,202, 190);去掉安装百度工具栏

Do
        BlockInput(1)
        $pos=MouseGetPos()
        WinActivate('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')
        MouseClick('left', 360, 330, 1, 0) ; 测试中, 发现 发送回车等按键无效, 折中做法.
        MouseMove($pos[0],$pos[1],0)
        BlockInput(0)
Until Not WinExists('PPTV网络电视 V3.1.7.0033 安装','PPTV subwindow')

If FileExists(@DesktopCommonDir&'\PPTV在线影视.lnk') Then FileDelete(@DesktopCommonDir&'\PPTV在线影视.lnk')
If FileExists(@DesktopCommonDir&'\PP游戏世界.lnk') Then FileDelete(@DesktopCommonDir&'\PP游戏世界.lnk')

;经过多次测试,发现PP年度必看.lnk这个文件是在安装完成后约3秒钟才生成的~ 所以我也来个3秒钟后再删除!
Run(@ComSpec & ' /c ping 127.0.0.1 -n 5&del /q /f "'&@DesktopDir&'"\PP年度必看.lnk', @DesktopDir, @SW_HIDE);5秒后再删除一次
WinWait("安装弹出-PPTV",'',5);超时时间5秒
If WinExists("安装弹出-PPTV") Then
        Do
                WinActivate("安装弹出-PPTV")
                SendKeepActive("安装弹出-PPTV")
                Send("^{w}")
                ToolTip('正在试图关闭PPTV网页弹窗')
                Sleep(2000)
        Until Not WinExists('安装弹出-PPTV')
        ToolTip('')
EndIf

$i=5
Do
     TrayTip('安装完成!','感谢您使用逗你玩!脚本安装'&@CRLF&$i,5)
     sleep(1000)
    $i-=1
Until $i<0

Func MyExit()
        Exit
EndFunc
        
发表于 2012-8-19 13:07:38 | 显示全部楼层
这个也顶上面了.???
发表于 2012-9-1 12:52:47 | 显示全部楼层
我有静默安装包



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-11-15 04:44 , Processed in 0.078034 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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