请高手指导下怎么做按键精灵脚本？

显示全部楼层 · 2012-5-1 20:59:43

Dim a,b,c,dClick=WaitClick If Click=32769
GetCursorPos x1,y1
Delay 100End IfDelay 100Click=WaitClickIf Click=32769
GetCursorPos x2,y2
Delay 100EndIf a = x1 - x2b = y1 - y2c = (a * a) + (b * b)d = c ^ (1 / 2)MessageBox d按键精灵9 鼠标点一下，确定第一点，再点一下，确定第二点。你可以自己改下快捷键启动。或者对于鼠标确定点不适用的话...

千问 · 2012-5-1 20:59:43

获取第一个点的坐标X1 Y1获取第一个点的坐标X2 Y2(X2-X1)*(Y2-Y1)不就是了如果是负数的话再转换成正数...