本帖最后由 ila 于 2016-1-1 23:32 编辑
遇到了无控件信息和一丁点控件信息的安装包,咋办?
不重新封装的前提下,也无法使用快捷键。
发现安装kugou7.6.80.17065时:
在这个安装中第一个和第二个界面,找到相对坐标,用鼠标点击。
然后在安装进度条过后,最后一个安装成功界面里,取个区别前面界面的独特颜色来判断是否到达安装成功的界面,再次根据相对坐标点击。
取色还在学习中。
第一个和第二个安装界面我搞定了,在等待别人的无聊时间内慢慢猜相对值^_^
回家后不停思考:找个能够计算控件某点的相对坐标的软件^_^
无意中用以前的截图软件FastStone Capture,发现这个软件能够即时显示鼠标指针的绝对坐标,
减去用这软件读出来的控件左上角绝对坐标,这下相对坐标就得到了。
附上简单粗暴不完整的脚本。
源于论坛,回归论坛;
Run(".\kugou7680.1422496759.exe")
If @error = 0 Then
Dim $hwnd = WinWait("酷狗音乐安装程序")
WinActivate($hwnd)
WinWaitActive($hwnd)
Opt('MouseCoordMode', 2)
$a = ControlGetPos("酷狗音乐安装程序","","")
MouseClick('left', $a[0]+500, $a[1]+360, 1, 0);自定义安装按钮相对坐标
Sleep(1000)
MouseClick('left', $a[0]+34, $a[1]+318, 1, 0);添加快捷方式到桌面选择
Sleep(1000)
MouseClick('left', $a[0]+179, $a[1]+318, 1, 0);锁定到任务栏
Sleep(1000)
MouseClick('left', $a[0]+287, $a[1]+318, 1, 0);设为默认播放器
Sleep(1000)
MouseClick('left', $a[0]+375, $a[1]+348, 1, 0);选择后点击安装
;;取色没写完,其实不会写
MouseClick('left', $a[0]+351, $a[1]+332, 1, 0);最后点击安装完成
Else
MsgBox(0,"安装出错","找不到安装文件kugou7680.1422496759.exe,请把安装文件放在本程序同个文件夹",3)
EndIf
|