Htaed auto clicker.

Hey, i put together this little auto clicker today as i was bored, its not meant to be much compared to some i've seen released already, but it works

I used cruel lib to help me make this autoclicker.


http://shellmodule.net/Htaedautoclicker.rar

Edit:
Updated with a new GUI, easier on the eyes

shellmodule.net/Htaedclicker.rar

 

Not bad at all, but autoclickers are to popular to get rep off of.

Nice prog tho

6/10

 

I know i didn't get many replies, so i guess not that many people were interested, but i decided to release the new version i made, i changed the wait time to be in seconds not milliseconds, and removed advanced settings as they werent really that useful, so it is a smaller program now.


www.shellmodule.net/HtaedAutoclickerV3.rar

 

good job nice interface 10/10

 

nice program
but u should make it color full u know
change the shell color from gray to sumthing else
change the text design lol
it looks cool

 

CruelLib is outdated (I think).

Take it a step further and make your own functions An autoclicker is a simple program.

 

You should change it back, having it in a smaller measurement allows for more flexibility.

Only the OCR and some other features are outdated, his mouse movements are still some of the most advanced and undetectable that I've seen released for VB6. Nonetheless, there's no reason to not at least attempt making your own functions.

 

Thanks for the comments guys, ill have ago at it now, i have no idea really how to start making the oldschool kinda rs bots where you select the window, select a colour with a picker and start, can't find any resources anywhere, without cruellib (even the documentation on that is a bit confusing)

 

Copy and paste this into a module. Old function.

Code:

Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

Public Const Pi = 3.141592654

Public Type POINTAPI

   X As Long

   Y As Long

End Type

Public Function Wait(TimeOut)

   Dim TimeNow As Long

   On Error Resume Next
  
   TimeNow = timeGetTime()
  
   Do
  
      DoEvents
    
   Loop While TimeNow + TimeOut > timeGetTime()
  
End Function

'MoveMouseCurve
'Written by: Terrankiller
'[email protected]

Public Function MoveMouseCurve(X As Long, Y As Long, Steps As Long, Arch As Long)

   Dim TmpX As Long, TmpY As Long, Step As Long, MP As POINTAPI

   GetCursorPos MP

   Randomize Timer: X = X + 5 * Rnd - 2

   Randomize Timer: Y = Y + 5 * Rnd - 2

   Randomize Timer: r1 = Round(5 * Rnd)

   Randomize Timer: r2 = Round(5 * Rnd)

   Randomize Timer: Arch1 = Round(Arch * Rnd)

   Randomize Timer: Arch2 = Round(Arch * Rnd)

   If MP.X > X Then w = 1 Else w = -1

   If MP.Y > Y Then q = 1 Else q = -1

   For i = 1 To Steps

      CP = (i / Steps)

      TmpX = MP.X + (X - MP.X) * CP + (w * Sin(Pi * r1 * CP) * Arch1)

      TmpY = MP.Y + (Y - MP.Y) * CP + (q * Sin(Pi * r2 * CP) * Arch2)

      SetCursorPos TmpX, TmpY

      Wait (1)

   Next i

End Function

Sub Main()

   MoveMouseCurve 1, 1, 100, 90

End Sub

 

Thanks This Really Helped!

 

It's to do with window handles / DCs. There are APIs like GetWindRect(), GetDC(), etc which do this, but may require a certain amount of studying before you understand what they do at your level.

I recommend moving on to .Net if you want to do stuff like that - the classes included in the .Net framework make it a shitload easier on newer people.

 

Thank you mate, i'm not really that interested in rs really, but it was just an idea at the time I've been on/off vb6 for a few years and when i use .net occasionally i find it lacks some of the things im used to in vb6 like inet/winsock etc, it seems like i can use the 6.0 controls of these but i wasn't sure if that was a good idea. I'm sure theres alternatives but i haven't found much i understand.