[已解决]请论坛前辈帮忙解决一下关于最新版暴风影音安装脚本的问题

wangzihe

我刚刚接触au3，借助别人的脚本，照猫画虎，自己弄了一个暴风影音5.21.0115.1111（目前官方最新版）的au3自动安装脚本，可是有两个小问题不很满意，希望得到论坛前辈的指教。
问题1：这个脚本原来到了“立即体验”按钮出现的时候就会停止，无法进行下面的了。于是我试着在第28行加了Sleep(17000)，测试了一下，如果安装进度条在17秒内能跑到头，那么脚本就可以顺利进行到底；如果电脑是老机器运行慢，安装进度条在17秒内不能跑到头，那么脚本同样还是会停止。我想能不能加个什么函数，让它自己判断，当“立即体验”按钮出现的时候，自动点击“立即体验”按钮继续进行下面的脚本呢？
问题2：如果电脑里以前安装过暴风影音，就会出现"暴风影音安装提示"对话框，这样脚本就能顺利的覆盖安装；但如果系统是第一次安装暴风影音，那么这个提示框就不会出现，而是直接出现'安装 暴风影音5 正式版' ， 此时脚本也就卡在这里了。能不能改一下代码，让它自动判断，如果出现第一个窗口，就进行第一个窗口的操作，如果第一个窗口不出现，就直接跳到第二个窗口操作呢？
感谢坛友们的帮助，代码如下：

1. $file='暴风影音5.21.0115.1111.exe'
   
2. If Not FileExists($file) Then Exit
   
3. Run($file)
   
4. If WinWait("暴风影音安装提示") Then ;如果已经安装过暴风影音，确认覆盖安装
   
5.         WinActivate("暴风影音安装提示")
   
6.         WinWaitActive("暴风影音安装提示")
   
7.         ControlClick("暴风影音安装提示", "", "Button1")
   
8. EndIf
   
9. $Hwnd=WinWait('安装 暴风影音5 正式版')
   
10. ;等待欢迎界面控件可见
    
11. Do
    
12.         Sleep(300)
    
13. Until ControlCommand($Hwnd,'','SkinWindow1','IsVisible')
    
14. ;点击下一步
    
15. ControlClick($Hwnd,'','SkinWindow1','',1,478,376)
    
16. ;等待选项界面控件可见
    
17. Do
    
18.         Sleep(300)
    
19. Until ControlCommand($Hwnd,'','SkinWindow2','IsVisible')
    
20. ;点击附加的广告选项
    
21. ControlClick($Hwnd,'','SkinWindow2','',1,142,231)
    
22. ControlClick($Hwnd,'','SkinWindow2','',1,142,256)
    
23. ControlClick($Hwnd,'','SkinWindow2','',1,142,280)
    
24. ControlClick($Hwnd,'','SkinWindow2','',1,142,302)
    
25. ;点击下一步
    
26. Sleep(500)
    
27. ControlClick($Hwnd,'','SkinWindow2','',1,473,373)
    
28. Sleep(17000)
    
29. Do
    
30.         Sleep(300)
    
31.         Until ControlCommand($Hwnd,'','SkinWindow4','IsVisible')
    
32. 
    
33. WinActivate($Hwnd,'')
    
34. WinWaitActive($Hwnd,'')
    
35. ControlClick($Hwnd,'','SkinWindow4','',1,473,373)
    
36. 
    
37. 
    
38. Sleep(1000)
    
39. WinWait('新功能推荐-暴风影音')
    
40. Sleep(100)
    
41. ProcessClose("Welcome.exe")
    
42. ProcessClose("StormPlayer.exe")
    
43. ProcessClose("baofengplatform.exe")
    
44. RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","BaofengPlatform")
    
45. FileDelete(@AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\暴风影音5.lnk")
    
46. Opt('TrayIconHide',1);刷新一下
    
47. Opt('TrayIconHide',0)

复制代码

afan

立即体验 按钮有控件ID吗，建议用窗口信息工具查看它，贴个图

afan

针对第2个问题，4-9行替换为以下试试~

1. $Hwnd = WinWait('[REGEXPTITLE:暴风影音安装提示|安装 暴风影音5 正式版]')
   
2. If StringInStr(WinGetTitle($Hwnd), '提示') Then ;如果已经安装过暴风影音，确认覆盖安装
   
3.         WinActivate("暴风影音安装提示")
   
4.         WinWaitActive("暴风影音安装提示")
   
5.         ControlClick("暴风影音安装提示", "", "Button1")
   
6.         $Hwnd = WinWait('安装 暴风影音5 正式版')
   
7. EndIf

复制代码

wangzihe

afan超版的方法解决了第二个问题，javascript:;可以跳过第一个对话框了。谢谢超版。下面是鼠标放在”立即体验“按钮上的截图，


工具得到的内容是：

>>>> 窗口 <<<<   
标题:        安装 暴风影音5 正式版
类名:        SkinWindow
坐标:        450, 277
大小:        540, 400
样式:        0x960A0000
扩展样式:0x00000004
句柄:        0x009306CE

>>>> 控件信息 <<<<   
类名:        SkinWindow
接口:        4
类别名:        SkinWindow4
名称:       
高级模式(类):[CLASS:SkinWindow; INSTANCE:4]
ID:        84481620
文本:       
坐标:        0, 0
大小:        540, 400
控件点击坐标:        479, 376
样式:        0x56010000
扩展样式:0x00000000
句柄:        0x0015075A

>>>> 鼠标信息 <<<<
坐标:        929, 653
光标 ID:        0
颜色:        0xB7DCFF

>>>> 状态栏信息 <<<<   

>>>> 工具栏信息 <<<<

>>>> 可见文本 <<<<


>>>> 隐藏文本 <<<<
C:\Program Files\Baofeng\StormPlayer\

afan

回复 4# wangzihe


    这个按钮没有独立的控件ID，但应该还是可以关闭之的，比如你的第35行代码。关键是判断该窗口的出现。它的上一个窗口信息呢？没有按钮的界面？请贴图

zch11230

不是标准的控件 不好判断 在不调用外部插件的情况下 我觉得要不就判断 立即体验 这几个字的颜色吧。而且最好多判断几个点保证准确性 或者在 立即体验 出来之前那个位置是什么东西 如果没有其它按钮影响的话就一直循环点击那个位置

wangzihe

运行程序后，第一个界面是这样的：



信息：

>>>> 窗口 <<<<   
标题:        安装 暴风影音5 正式版
类名:        SkinWindow
坐标:        450, 275
大小:        540, 400
样式:        0x960A0000
扩展样式:0x00000004
句柄:        0x00210FE6

>>>> 控件信息 <<<<   
类名:        SkinWindow
接口:        1
类别名:        SkinWindow1
名称:       
高级模式(类):[CLASS:SkinWindow; INSTANCE:1]
ID:        52537764
文本:       
坐标:        0, 0
大小:        540, 400
控件点击坐标:        474, 375
样式:        0x56010000
扩展样式:0x00000000
句柄:        0x00160FC0

>>>> 鼠标信息 <<<<
坐标:        924, 650
光标 ID:        0
颜色:        0xBADDFF

>>>> 状态栏信息 <<<<   

>>>> 工具栏信息 <<<<

>>>> 可见文本 <<<<


>>>> 隐藏文本 <<<<
C:\Program Files\Baofeng\StormPlayer\


点击”开始安装“按钮，第二个界面这样：



信息是：

>>>> 窗口 <<<<   
标题:        安装 暴风影音5 正式版
类名:        SkinWindow
坐标:        450, 275
大小:        540, 400
样式:        0x960A0000
扩展样式:0x00000004
句柄:        0x00150816

>>>> 控件信息 <<<<   
类名:        SkinWindow
接口:        2
类别名:        SkinWindow2
名称:       
高级模式(类):[CLASS:SkinWindow; INSTANCE:2]
ID:        52541180
文本:       
坐标:        0, 0
大小:        540, 400
控件点击坐标:        474, 373
样式:        0x56010000
扩展样式:0x00000000
句柄:        0x0016080E

>>>> 鼠标信息 <<<<
坐标:        924, 648
光标 ID:        0
颜色:        0x000000

>>>> 状态栏信息 <<<<   

>>>> 工具栏信息 <<<<

>>>> 可见文本 <<<<
C:\Program Files\Baofeng\StormPlayer\


>>>> 隐藏文本 <<<<



点击“下一步”，第三个窗口如下：



窗口信息是：

>>>> 窗口 <<<<   
标题:        安装 暴风影音5 正式版
类名:        SkinWindow
坐标:        450, 275
大小:        540, 400
样式:        0x960A0000
扩展样式:0x00000004
句柄:        0x00150816

>>>> 控件信息 <<<<   
类名:        SkinWindow
接口:        4
类别名:        SkinWindow4
名称:       
高级模式(类):[CLASS:SkinWindow; INSTANCE:4]
ID:        84481620
文本:       
坐标:        0, 0
大小:        540, 400
控件点击坐标:        475, 374
样式:        0x56010000
扩展样式:0x00000000
句柄:        0x000A0FCE

>>>> 鼠标信息 <<<<
坐标:        925, 649
光标 ID:        2
颜色:        0xCFDDE9

>>>> 状态栏信息 <<<<   

>>>> 工具栏信息 <<<<

>>>> 可见文本 <<<<


>>>> 隐藏文本 <<<<
C:\Program Files\Baofeng\StormPlayer\


此时的”正在安装“按钮是灰色不可点击状态，扥安装进度条跑到头，就变成了可点击的”立即体验“按钮了。就是我在4楼发的那个图和信息。
具体怎么做，请前辈们指教一二，先谢谢楼上的几位热心坛友了。

haijie1223

还是自己重新打包一下，再写au3不久简单多了~

yinbinly

楼主为何不尝试结束进程呢？

afan

暂且用学习操作的态度来搞吧，毕竟楼主已经很用心在研究了

28-31行替换为以下试试：

1. Opt('PixelCoordMode', 0)
   
2. Do
   
3.         Sleep(10)
   
4. Until WinActive($Hwnd) And (PixelGetColor(440, 366, $Hwnd) <> PixelGetColor(440, 385, $Hwnd))

复制代码

;
另一种方式，可以试试将以下脚本单独保存，分别在“正在安装…”及“开始体验”界面时执行一次

1. $Hwnd=WinWait('安装 暴风影音5 正式版')
   
2. Opt('PixelCoordMode', 0)
   
3. $v = PixelGetColor(440, 366, $Hwnd)
   
4. FileWrite('色值.txt', $v & @CRLF)

复制代码

之后打开“色值.txt”取用第一行和第二行的值，比如分别为“55555555”和“12345678”。同样替换28-31行。

1. Opt('PixelCoordMode', 0)
   
2. Do
   
3.         Sleep(10)
   
4. Until PixelGetColor(440, 366, $Hwnd) = 55555555
   
5. Do
   
6.         Sleep(10)
   
7. Until PixelGetColor(440, 366, $Hwnd) = 12345678

复制代码

如果界面不依赖系统主题的话这种取色方式可能更加保险。

wangzihe

多谢afan超版，你的第一种方法就解决问题了。
我也测试了你给我的第二种方法，试了好几次，可是取得的值都是一样的。我又换了坐标取那个绿色进度条的值测试，结果取得的色值也都一样。不知道是什么原因。留待以后慢慢研究吧，反正日子还长着呢。

总之在各位坛友的帮助下，问题终于解决了。再次谢谢各位坛友，尤其是afan超版的耐心解答，非常非常感谢！我觉得重要的不是结果，而是在追求结果的过程中得到的那种心情才是值得珍惜的。

chishingchan

楼主为何不尝试结束进程呢？
yinbinly 发表于 2013-1-23 08:51

    同意此说法！

1. ProcessWait("MediaLibraryUpdate.exe")
   
2. ProcessWaitClose("MediaLibraryUpdate.exe")
   
3. ProcessClose("Baofeng5-5.21.0131.exe")
   

复制代码

梦の达

获益匪浅~~