Help move mouse in circle?

[X-sploiT]

lol you guys helped alot..but i dont thinkvb6 has a radiant function?..im not good with math at all so im stuck lol

does this _Radian has a formula

Edited August 10, 2006 by X-sploiT

[bluebearr]

You betcha:

360 degrees in Radians

Radian at Wikipedia

Or, you can search the file "C:\Program Files\AutoIt3\beta\Include\Math.au3" for the text "Func _Radian".

[X-sploiT]

Thanks this is the most helpful forum ever..thanks ..but now what would i do with rad=®?

Edited August 10, 2006 by X-sploiT

[Lakes]

Thanks this is the most helpful forum ever..thanks ..but now what would i do with rad=®?

Maybe you should be posting this in a VB forum?

[bluebearr]

I suggest that you brush up on some algebra before going to a VB forum. You've been given all the info you should need, you just need to do a little work to use it.

If you followed the Google link I gave you, you saw that:

360 degrees = 6.28318531 radians

Or

360 degrees = 6.2832 radians
----          --------
360          360

1 degree = 0.0174528 radians

So

$Rad = 0.0174528 * $R

[X-sploiT]

Done Thanks for everyone input

expandcollapse popup

Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_END = &H23
Private Const VK_HOME = &H24

Private Type POINTAPI
        x As Long
        y As Long
End Type

Dim a As POINTAPI
Dim b As Long
Dim c As Long
Dim Stp As Integer
Dim Size As Integer
Dim Pos
Dim x As Integer
Dim y As Integer
Dim r As Integer
Dim Rad As Integer
Dim xx As Integer
Dim yy As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_HOME) = -32767 Then
If Timer2.Enabled = True Then
Timer2.Enabled = False
Else
Stp = 90
Size = 3
Pos = GetCursorPos(a)
x = a.x
y = a.y
Timer2.Enabled = True
End If
End If
End Sub

Private Sub Timer2_Timer()
For r = 360 To 0 Step -Stp
Rad = 0.0174528 * r
xx = Sin(Rad) * Size + x
yy = Cos(Rad) * Size + y
SetCursorPos xx, yy
DoEvents
Sleep (50)
Next
End Sub

Edited August 10, 2006 by X-sploiT

[X-sploiT]

Sumthing is a lil off becuase this one moves to the left and the ao one moves up?

[trung]

can the maker of this help me make the bot stop if a color pops up on the screen and clickmouse (doesnthave to b under the mouse)

[Xenobiologist]

can the maker of this help me make the bot stop if a color pops up on the screen and clickmouse (doesnthave to b under the mouse)

HI,

make a new thread and give more details. Game, color, and so on. As much as possible.

Maybe even your script you tried.

Thanks!

So long,

Mega