Help move mouse in circle?

[X-sploiT]

can anyone helpo make my mouse move in a small circle ,like really small

[Xenobiologist]

can anyone helpo make my mouse move in a small circle ,like really small

Hi,

have a look at MouseGetPos and MouseMove and build a loop around it. That should do the trick.

Or search the Scripts & Scraps Forum, there are a few scripts moving the mouse in some specific ways.

So long,

Mega

[X-sploiT]

Thnaks i have the concept but how would you do it in a circle?

[Xenobiologist]

expandcollapse popup

HotKeySet ("{ESC}", "quitme")
; command line param: beep (0 = off, 1 = on)
Global $MakeNoise = 0
If $CmdLine[0] = 0 Then
    $MakeNoise = 0
ElseIf $CmdLine[1] = 1 Then
    $MakeNoise = 1
EndIf

Global Const $PI = 3.1415926535897932384626433832795
Global $Width = @DesktopWidth, $Height = @DesktopHeight, $MidX = $Width/2, $MidY = $Height/2
Global $Radius = 5
Global $Step = $PI/6
ToolTip ("Mouse Mover!!", $MidX, $MidY)
While 1
    Do
        For $angle = 0 To 2*$PI Step $Step
            $Radius += 5
            MouseMove ($MidX - (Cos ($angle) * $Radius), $MidY - (Sin ($angle) * $Radius), 0)
            If $MakeNoise = 1 Then
                Beep ($Radius*5, 2)
            EndIf
        Next
    Until $Radius >= $MidY
    Do
        For $angle = 0 To 2*$PI Step $Step
            $Radius -= 5
            MouseMove ($MidX - (Cos ($angle) * $Radius), $MidY - (Sin ($angle) * $Radius), 0)
            If $MakeNoise = 1 Then
                Beep ($Radius*5, 2)
            EndIf
        Next
    Until $Radius <= 5
WEnd

Func quitme()
    Exit
EndFunc

So long,

Mega

[X-sploiT]

Sorry but iam not good with math but how can i just keep it from expanding and just keep it in one size?

Edited August 9, 2006 by X-sploiT

[Lakes]

Sorry but iam not good with math but how can i just keep it from expanding and just keep it in one size?

#include <GUIConstants.au3>
#include <Math.au3>

HotKeySet ("{ESC}", "quitme")

$Stp = 10;     Defines the smoothness of the circle and mouse speed
While 1
$X = 400 ;X co-ord for center of circle
$Y = 400 ;Y co-ord  "    "     "   "
$Size = 10 ;Size of Circle

        For $R = 360 to 0 step -$Stp
            $Rad = _Radian ($R)
            $X = Sin($Rad)*$Size + $X
            $Y= Cos($Rad)*$Size + $Y
        MouseMove($X,$Y,1) 
        Next
WEnd

Func quitme()
    Exit
EndFunc

[X-sploiT]

thanks thats one step close now i just have to make it were ever my mouse is

well i got this

#include <GUIConstants.au3>
#include <Math.au3>
$Stp = 20;   Defines the smoothness of the circle and mouse speed
$Size = 1;Size of Circle
HotKeySet ("{ESC}", "quitme")
HotKeySet ("{SPACE}", "On")
while 1
sleep(10)
WEnd

func On()
While 1
$pos = MouseGetPos()
$X = $pos[0];X co-ord for center of circle
$Y = $pos[1];Y co-ord 
        For $R = 360 to 0 step -$Stp
            $Rad = _Radian ($R)
            $X = Sin($Rad)*$Size + $X
            $Y= Cos($Rad)*$Size + $Y
        MouseMove($X,$Y,1)
        Next
    WEnd
    EndFunc

Func quitme()
    Exit
EndFunc

it doesnt work very good plus it moves tothe left? any help

Edited August 9, 2006 by X-sploiT

[martin]

try this, which is a correction to Lakes' code

#include <GUIConstants.au3>
#include <Math.au3>
$Stp = 5;    Defines the smoothness of the circle and mouse speed
$Size = 20;Size of Circle
HotKeySet ("{ESC}", "quitme")
HotKeySet ("{SPACE}", "On")
While 1
Sleep(10)
WEnd

Func On()

$Pos = MouseGetPos()
$X = $Pos[0];X co-ord for center of circle
$Y = $Pos[1];Y co-ord
While 1             ;this line was moved from before $X=..
        For $R = 360 to 0 step -$Stp
            $Rad = _Radian ($R)
; next 3 lines are corrected
            $XX = Sin($Rad)*$Size + $X
            $YY= Cos($Rad)*$Size + $Y
            MouseMove($XX,$YY,1)

;add delay so the circle is not drawn too fast to see
               Sleep(20)

        Next
    WEnd
    EndFunc

Func quitme()
    Exit
EndFunc

Edited August 9, 2006 by martin

[Lakes]

try this, which is a correction to Lakes' code

#include <GUIConstants.au3>
#include <Math.au3>
$Stp = 5;    Defines the smoothness of the circle and mouse speed
$Size = 20;Size of Circle
HotKeySet ("{ESC}", "quitme")
HotKeySet ("{SPACE}", "On")
While 1
Sleep(10)
WEnd

Func On()

$Pos = MouseGetPos()
$X = $Pos[0];X co-ord for center of circle
$Y = $Pos[1];Y co-ord
While 1         ;this line was moved from before $X=..
        For $R = 360 to 0 step -$Stp
            $Rad = _Radian ($R)
; next 3 lines are corrected
            $XX = Sin($Rad)*$Size + $X
            $YY= Cos($Rad)*$Size + $Y
            MouseMove($XX,$YY,1)

;add delay so the circle is not drawn too fast to see
               Sleep(20)

        Next
    WEnd
    EndFunc

Func quitme()
    Exit
EndFunc

I dashed it off in about 10mins or so, did`nt notice that the X and Y variables were in the loop...

You can also control the speed with the $Stp variable.

[X-sploiT]

There supposed to be in the loop becuase i want the circle to move with the mouse if it is possible..i think iam going 2 have to make it have random little move moments..movements that are that big

[Lakes]

There supposed to be in the loop becuase i want the circle to move with the mouse if it is possible..i think iam going 2 have to make it have random little move moments..movements that are that big

I mean`t this

While 1
$X = 400;X co-ord for center of circle
$Y = 400;Y co-ord  "    "    "   "

before it was corrected...

[X-sploiT]

it works now...i just have to convert it too vb 6

#include <GUIConstants.au3>
#include <Math.au3>
$Stp =70;    Defines the smoothness of the circle and mouse speed
$Size = 3;Size of Circle
HotKeySet ("{ESC}", "quitme")
HotKeySet ("{SPACE}", "On")
While 1
Sleep(10)
WEnd

Func On()

$Pos = MouseGetPos()
While 1   
$X = $Pos[0];X co-ord for center of circle
$Y = $Pos[1];Y co-ord   
        For $R = 360 to 0 step -$Stp
            $Rad = _Radian ($R)
; next 3 lines are corrected
            $XX = Sin($Rad)*$Size + $X
            $YY= Cos($Rad)*$Size + $Y
            MouseMove($XX,$YY,1)

;add delay so the circle is not drawn too fast to see
               Sleep(20)

        Next
    WEnd
    EndFunc

Func quitme()
    Exit
EndFunc

[Bert]

why vb6? If you have code that works, just make it a exe, and make a call to it.

[X-sploiT]

Cuz iam adding sumthing to my anti recoil program

[Bert]

ummm...well, why bother coding at all in AutoIt if you are simply going to convert it to VB later? Seems like a waste of time. I don't code in VB, but if there is a snippit of code that moves the mouse pointer, I would start there.

Also, try this link: http://www.vbcity.com/forums/faq.asp?fid=38&cat=MouseIt may be of some help

Cheers!

[X-sploiT]

i just needed the concept of how yo get a circle

[Bert]

ok, hope we were able to help

[Lakes]

ok, hope we were able to help

Oh!, I feel all dirty and used now...

[Bert]

[bluebearr]

Well, let's distract ourselves from that interesting use of Autoit resources by considering this:

Global Const $PI = 3.1415926535897932384626433832795

Nice constant I think, though, that if you have a somewhat normal screen size that 3.1416 should be of significant precision.

960 pixels x 3.1416 = 3015.936

960 pixels x 3.14159 = 3015.926

Reminded me of this: The absurdity of calculating Pi to trillions of digits.