论坛 › 『 软件安装 』 › 将鼠标移动到“控件”上的方法，笔者自己研究的！

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 & " " & $WPos & " " & $WPos & " " & $WPos)
$Pos=ControlGetPos($TT1,$TX1,1039)
;~ MsgBox(0, "窗口状态：", "位置： " & $pos & "," & $pos & " 大小： " & $pos & "," & $pos )
MouseMove($WPos+$pos+Int($Pos/2),$WPos+$pos+Int($Pos/2),0);最后一个参数0表示瞬间移动，这个参数比较好，用户看不到鼠标移动的痕迹！
ControlClick($TT1,$TX1,"Static6")
MouseMove($mousPos,$mousPos,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

谢谢分享{:face (411):}

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

谢谢你的分享，学习了

查看完整版本: 将鼠标移动到“控件”上的方法，笔者自己研究的！