[已解决]查询如何快速获取相对坐标时发现个辅助软件，大家来看看有没有更快捷的
本帖最后由 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+500, $a+360, 1, 0);自定义安装按钮相对坐标
Sleep(1000)
MouseClick('left', $a+34, $a+318, 1, 0);添加快捷方式到桌面选择
Sleep(1000)
MouseClick('left', $a+179, $a+318, 1, 0);锁定到任务栏
Sleep(1000)
MouseClick('left', $a+287, $a+318, 1, 0);设为默认播放器
Sleep(1000)
MouseClick('left', $a+375, $a+348, 1, 0);选择后点击安装
;;取色没写完，其实不会写
MouseClick('left', $a+351, $a+332, 1, 0);最后点击安装完成
Else
MsgBox(0,"安装出错","找不到安装文件kugou7680.1422496759.exe，请把安装文件放在本程序同个文件夹",3)
EndIf Run("calc.exe")
$hwnd=WinWait("计算器","",120)
WinActive($hwnd)
Sleep(1000)
Opt("MouseCoordMode",2);设置鼠标函数的坐标参照,相对当前激活窗口客户区坐标
$a=ControlGetPos("计算器","","Button15");获取指定控件相对其窗口的坐标位置和大小
MouseClick("left",$a,$a)http://autoitx.com/forum.php?mod=viewthread&tid=49279&highlight=%CF%E0%B6%D4%D7%F8%B1%EA
看看这里
页:
[1]