论坛 › 『 提问交流 』 › 鼠标绕圈无法反覆执行

CCM 发表于 2012-11-8 09:24:28

鼠标绕圈无法反覆执行

本帖最后由 CCM 于 2012-11-8 09:27 编辑

我从网路上找到下面这个让鼠标绕圈圈的语句，我自己再加上判断鼠标变化的语句，只要鼠标变化就中断绕圈圈然後执行动作，不过现在遇到个问题，就是该怎么让下面的语句在MSGBOX显示1 2 3後，重复执行？
HotKeySet("^c", "MyExit")

Dim $flPI = 3.14159
Dim $iTime = 360 * 9, $iAngleStep = 9, $iR = 100, $iX, $iY
Dim $iCenterX = @DesktopWidth / 2, $iCenterY = @DesktopHeight / 2

For $i = 0 To $iTime Step $iAngleStep
        $iX = Cos(($i + 90) / 360 * 2 * $flPI) * $iR
        $iY = Sin(($i + 90) / 360 * 2 * $flPI) * $iR

        $iR = Sin((90 - $iAngleStep) / 360 * 2 * $flPI) * $iR / Sin(90 / 360 * 2 * $flPI)
        MouseMove($iX + $iCenterX, $iY + $iCenterY, 3)

        $cursor = MouseGetCursor()
        If $cursor = 16 Then ExitLoop

Next

$cursor = MouseGetCursor()
If $cursor = 16 Then
        MsgBox(0, "", "1", 1)
        sleep(1000)
                MsgBox(0, "", "2", 1)
                sleep(1000)
                        MsgBox(0, "", "3", 1)
                        sleep(1000)
EndIf

Func MyExit()
        Exit
EndFunc   ;==>MyExit
我尝试过用while但放在for上面会造成鼠标最後在画面中间晃动，必须强制结束。
请各位大侠修改下，谢谢。

netegg 发表于 2012-11-8 10:08:08

adlibregister，做同步

查看完整版本: 鼠标绕圈无法反覆执行