将鼠标移动到“控件”上的方法，笔者自己研究的！

xlj310 · 发表于 2012-8-2 16:46:44

回复 15# whitehead

Static6是这样的来的。

金山毒霸很少安装，不过这个地方倒是有点意思。

楼主有一点没有注意到，做这种脚本程序如果会用到鼠标的话，一定要注意一点，就是要记得归位。

我的建议是在移动鼠标之前记录鼠标的位置，点击之后再移回去！

代码这样写用户几乎感觉不到鼠标移动过!


Dim $TT1="金山毒霸2011 安装向导"
Dim $TX1="我同意金山毒霸授权与隐私协议"
Dim $WPos,$Pos
Run("KIS101113_DOWN_99_10.exe")
WinWait($TT1,$TX1)
WinActivate($TT1,$TX1)
$mousPos=MouseGetPos()
$WPos=WinGetPos($TT1,$TX1)
;~ MsgBox(0, "当前激活窗口的状态（x,y,宽度,高度）：", $WPos[0] & " " & $WPos[1] & " " & $WPos[2] & " " & $WPos[3])
$Pos=ControlGetPos($TT1,$TX1,1039)
;~ MsgBox(0, "窗口状态：", "位置： " & $pos[0] & "," & $pos[1] & " 大小： " & $pos[2] & "," & $pos[3] )
MouseMove($WPos[0]+$pos[0]+Int($Pos[2]/2),$WPos[1]+$pos[1]+Int($Pos[3]/2),0);最后一个参数0表示瞬间移动，这个参数比较好，用户看不到鼠标移动的痕迹！
ControlClick($TT1,$TX1,"Static6")
MouseMove($mousPos[0],$mousPos[1],0);最后一个参数0表示瞬间移动，这个参数比较好，用户看不到鼠标移动的痕迹！

whitehead · 发表于 2012-8-2 16:53:43

谢谢老兄解释

lenlydia · 发表于 2012-8-2 20:54:59

嗯，鼠标移动这个不错。

chchop · 发表于 2012-8-3 06:46:23

好好学习一下！！！！！！！！！

kuku645 · 发表于 2012-8-4 18:12:18

不是很难~~

internethhhh · 发表于 2012-11-7 15:15:23

好好研究一下

chentuyu1203 · 发表于 2012-12-5 19:21:51

学习一下。

chentuyu1203 · 发表于 2012-12-12 10:20:04

学习了。。。

mydead2001 · 发表于 2012-12-14 19:41:25

这样可以解决非标准控件

mydead2001 · 发表于 2012-12-16 10:38:40

像现在的傲游和极速控件ID找不到，不知道如何操作？

w49395950 · 发表于 2013-1-8 13:18:41

谢谢经验分享1 不错1

hncsjj · 发表于 2013-1-10 12:38:26

好东西分享一下

hncsjj · 发表于 2013-1-10 12:40:14

好东西支持一下

hncsjj · 发表于 2013-1-10 12:40:30

谢谢分享

chentuyu1203 · 发表于 2013-2-26 00:24:01

谢谢你的分享，学习了

		自动登录	找回密码
密码			加入

[原创] 将鼠标移动到“控件”上的方法，笔者自己研究的！

本帖子中包含更多资源

评分