楼主不厚道, 解决了问题, 没给答案, 开新帖收费..
那我只有把那边的源码帖到这边来了!
;~ ;安装PPTV----By 逗你玩! 生活就是玩呀玩!
;~ ;安装PPTV过程中不要随意增添TrayTip之类的语句,否则安装会出意外!
HotKeySet('{F4}','MyExit')
TrayTip('温馨提示','如果程序出现异常'&@crlf&'只需轻轻的按一下F4脚本就会退出!',5)
Run("pptvsetup_3.1.6.0056.exe")
Sleep(1500)
TrayTip('清除提示','',0);提示不清除会影响后面的操作!
WinWait('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow')
WinActivate('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow')
ControlSetText('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow','ATL:Edit1','E:\Program Files\pplive')
Opt('MouseCoordMode', 0)
Do
BlockInput(1)
$pos=MouseGetPos()
WinActivate('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow')
MouseClick('left', 360, 330, 1, 0) ; 测试中, 发现 发送回车等按键无效, 折中做法.
MouseMove($pos[0],$pos[1],0)
BlockInput(0)
Sleep(2500);这个两秒是有必要的,万一出现意外,2秒钟的时间可以让人关闭本脚本。否则可能会死循环,我自己测试时就死过机,只能强制重启电脑!
Until ControlCommand('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow','PPGuiFoundation2',"IsVisible", "")=0
Do
Sleep(100)
Until ControlCommand('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow','PPGuiFoundation4',"IsVisible", "")=1
WinActivate('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow')
ControlClick('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow','PPGuiFoundation4','',1,37, 67);去掉立即运行PPTV
ControlClick('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow','PPGuiFoundation4','',1,262, 67);去掉启动windows时自动运行PPTV
ControlClick('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow','PPGuiFoundation4','',1,37, 210);点一下全选按钮,效果是都不选
Do
BlockInput(1)
$pos=MouseGetPos()
WinActivate('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow')
Sleep(150)
MouseClick('left', 360, 330, 1, 0) ; 测试中, 发现 发送回车等按键无效, 折中做法.
MouseMove($pos[0],$pos[1],0)
BlockInput(0)
Until ControlCommand('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow','PPGuiFoundation4',"IsVisible", "")=0
Do
Sleep(100)
Until ControlCommand('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow','PPGuiFoundation5',"IsVisible", "")=1
WinActivate('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow')
ControlClick('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow','PPGuiFoundation5','',1,202, 190);去掉安装百度工具栏
Do
BlockInput(1)
$pos=MouseGetPos()
WinActivate('PPTV网络电视 V3.1.6.0056 安装','PPTV subwindow')
MouseClick('left', 360, 330, 1, 0) ; 测试中, 发现 发送回车等按键无效, 折中做法.
MouseMove($pos[0],$pos[1],0)
BlockInput(0)
Until Not WinExists('PPTV网络电视 V3.1.6.0056 安装','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秒后再删除一次
$i=5
Do
TrayTip('安装完成!','感谢您使用逗你玩!脚本安装'&@CRLF&$i,5)
sleep(1000)
$i-=1
Until $i<0
Func MyExit()
Exit
EndFunc
|