找回密码
 加入
搜索
查看: 5704|回复: 11

[AU3基础] PPTV 安装最后一步脚本怎么写好?

[复制链接]
发表于 2012-8-18 12:37:29 | 显示全部楼层 |阅读模式
下面是我参照其它脚本写的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

本帖子中包含更多资源

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

×
发表于 2012-8-18 13:11:32 | 显示全部楼层
1.图一的安装路径应该是个输入框吧,直接设置控件文本是否可行?
2.图二的两个checkbox难道控件id会一样?楼主查看有误吧?
3.难道图一跟图二的窗口可见文本一样?
不想装pptv,没法测试整个安装过程,只能凭猜测。
 楼主| 发表于 2012-8-18 13:28:17 | 显示全部楼层
回复 2# ajian55


   安装全程标题文本全一样
发表于 2012-8-18 15:41:44 | 显示全部楼层
可以参考鄙人的帖子,早在很久以前就研究过这个问题。虽然版本更新了,不过我猜安装方法应该不会有太大的改变!
http://www.autoitx.com/thread-32947-1-1.html
 楼主| 发表于 2012-8-18 16:02:26 | 显示全部楼层
回复 4# xlj310


    你的帖子早前有拜读过,但用鼠标点,在不同分辨率下似乎不可行哦。然后请教你一个问题,如何将默认的安装地址改为D盘
发表于 2012-8-18 16:37:11 | 显示全部楼层
本帖最后由 xlj310 于 2012-8-18 16:58 编辑

回复 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
发表于 2012-8-18 16:49:23 | 显示全部楼层
刚好也在弄这个脚本,给你试试看合不合用!
用的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)
 楼主| 发表于 2012-8-18 17:41:57 | 显示全部楼层
回复 7# dmqhcx88


    真是牛人,强,太好了
 楼主| 发表于 2012-8-18 18:04:35 | 显示全部楼层
回复 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)
发表于 2012-8-18 19:00:02 | 显示全部楼层
本帖最后由 dmqhcx88 于 2012-8-18 19:13 编辑

回复 9# linzhuantu



调用CMD命令5秒后删除PP年度必看快捷方式。
 楼主| 发表于 2012-8-18 19:56:27 | 显示全部楼层
回复 10# dmqhcx88


    谢谢你哦,再请教一个哦,如果我们要让客人选择C盘或D盘为安装路径要怎么写比较好呢?
发表于 2012-8-20 10:13:13 | 显示全部楼层
回复 11# linzhuantu


    这个   
Local $input = InputBox("盘符选择", "装哪里呢?请写下:", "", " m16", 260, 130)

然后    自己写点判断,比如说   客户输入“我也不知道”的时候该怎么处理
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-3-29 08:01 , Processed in 0.083081 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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