PPTV 安装最后一步脚本怎么写好？

linzhuantu

下面是我参照其它脚本写的PPTV的安装脚本，卡在最后一步


就是上图两个√要点掉，关键是两个选项的控件ID都一样，整个安装过程的标题和可见文本都一样，所以从图1到图2都不知道怎么来控制安装，另外像图1的安装路径最好用什么办法改装D盘好呢？

Opt("MustDeclareVars",1)

_Main()
Exit

Func _Main()

Run(@ScriptDir & "\soft\PPTV.exe")
Local $Title= "PPTV网络电视 V3.1.5.0065 安装"
Local $Text1= "PPTV subwindow"
SendKeepActive($Title,$Text1)
WinWait($Title,$Text1)
WinActivate($Title,$Text1)
Send("{SPACE}")
WinWait($Title,$Text1)
WinActivate($Title,$Text1)
Send("{SPACE}")

Local $SystemDrive = EnvGet("SystemDrive")
If FileExists($SystemDrive &"\Users\Public\Desktop\PPTV在线影视.lnk") Then FileDelete($SystemDrive &"\Users\Public\Desktop\PPTV在线影视.lnk")
If FileExists($SystemDrive &"\Users\Public\Desktop\PP游戏世界.lnk") Then FileDelete($SystemDrive &"\Users\Public\Desktop\PP游戏世界.lnk")
If FileExists($SystemDrive &"\Users\Administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\PPTV 每个人的网络电视.lnk") Then FileDelete($SystemDrive &"\Users\Administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\PPTV 每个人的网络电视.lnk")
Sleep(200)
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","UUSeeMediaCenter")
EndFunc

ajian55

1.图一的安装路径应该是个输入框吧，直接设置控件文本是否可行？
2.图二的两个checkbox难道控件id会一样？楼主查看有误吧？
3.难道图一跟图二的窗口可见文本一样？
不想装pptv,没法测试整个安装过程，只能凭猜测。

linzhuantu

回复 2# ajian55


   安装全程标题文本全一样

xlj310

可以参考鄙人的帖子，早在很久以前就研究过这个问题。虽然版本更新了，不过我猜安装方法应该不会有太大的改变！
http://www.autoitx.com/thread-32947-1-1.html

linzhuantu

回复 4# xlj310


    你的帖子早前有拜读过，但用鼠标点，在不同分辨率下似乎不可行哦。然后请教你一个问题，如何将默认的安装地址改为D盘

xlj310

回复 5# linzhuantu

   
    不同的屏幕分辨率准不准，你可以运行一次试一下呀，在脚本里修改文件名，并将版本号全部替换。我发现你的这个版本比我在脚本中引用的版本还要低。

ControlSetText('PPTV网络电视 V3.1.5.0065 安装','PPTV subwindow','ATL:Edit1','E:\Program Files\pplive')

这个可以修改路径


PPTV网络电视 V3.1.5.0065 已经打包上传
http://dl.vmall.com/c0mpb5b5k5

dmqhcx88

刚好也在弄这个脚本，给你试试看合不合用！
用的PPTV最新版下载地址：http://download.pplive.com/pptvsetup_3.1.9.0042_forbd.exe

HotKeySet('{F4}','MyExit')
Opt("MouseCoordMode", 0)
run("pptvsetup_3.1.9.0042_forbd.exe")
TrayTip('温馨提示','如果自动安装出现异常'&@crlf&'按一下F4退出脚本！',5)
WinWait("PPTV网络电视 V3.1.9.0042 安装","")
Sleep(100)
WinActivate("PPTV网络电视 V3.1.9.0042 安装","")
WinWaitActive("PPTV网络电视 V3.1.9.0042 安装","")
ControlClick("PPTV网络电视 V3.1.9.0042 安装","","ATL:Edit1","left",1,174,7)
ControlSetText("PPTV网络电视 V3.1.9.0042 安装","","ATL:Edit1","D:\Program Files\PPLive\PPTV")
WinActivate("PPTV网络电视 V3.1.9.0042 安装","")
WinWaitActive("PPTV网络电视 V3.1.9.0042 安装","")
MouseClick("left",364,338,1)
WinWait("PPTV网络电视 V3.1.9.0042 安装","")
$kj="PPGuiFoundationPPGuiFoundationATL:EditPPGuiFoundationSysTreeView32PPGuiFoundation"
Do
Sleep(50)
$kj02=WinGetClassList ("PPTV网络电视 V3.1.9.0042 安装","")
$kj2=StringStripWS ($kj02 ,8)
Until $kj=$kj2
WinActivate("PPTV网络电视 V3.1.9.0042 安装","")
WinWaitActive("PPTV网络电视 V3.1.9.0042 安装","")
ProcessClose('pptvsetup_3.1.9.0042_forbd.exe')
ProcessClose('pptvsetup_3.1.9.0042_forbd.tmp')
If FileExists(@DesktopCommonDir&'\PPTV在线影视.lnk') Then FileDelete(@DesktopCommonDir&'\PPTV在线影视.lnk')
If FileExists(@DesktopCommonDir&'\PP游戏世界.lnk') Then FileDelete(@DesktopCommonDir&'\PP游戏世界.lnk')
Run(@ComSpec & ' /c ping 127.0.0.1 -n 5&del /q /f "'&@DesktopDir&'"\PP年度必看.lnk', @DesktopDir, @SW_HIDE)
Func MyExit()
        Exit
EndFunc
Opt("MouseCoordMode", 1)

linzhuantu

回复 7# dmqhcx88


    真是牛人，强，太好了

linzhuantu

回复 7# dmqhcx88

大侠，向你请教一下，看很多源码最后都有这么一句，具体是实现怎样的功能，尤其是
@ComSpec & ' /c ping 127.0.0.1 -n 5&del /q /f是什么意思呢？
Run(@ComSpec & ' /c ping 127.0.0.1 -n 5&del /q /f "'&@DesktopDir&'"\PP年度必看.lnk', @DesktopDir, @SW_HIDE)

dmqhcx88

回复 9# linzhuantu



调用CMD命令5秒后删除PP年度必看快捷方式。

linzhuantu

回复 10# dmqhcx88


    谢谢你哦，再请教一个哦，如果我们要让客人选择C盘或D盘为安装路径要怎么写比较好呢？

魔导

回复 11# linzhuantu


    这个   

Local $input = InputBox("盘符选择", "装哪里呢？请写下：", "", " m16", 260, 130)

然后    自己写点判断，比如说   客户输入“我也不知道”的时候该怎么处理