[VB6][AutoClicker]

[vladiii]

Am facut si eu un mic cod in VB, bineinteles, nu foarte complex, dar mi-a fost lene sa-l fac mai bun. Preview:

Codul este:

- Pe form:

Option Explicit
Dim dr As Integer
Dim st As Integer
Dim nrclick As Integer
Dim timp As Integer
Dim gigi As Integer
Private Sub Command1_Click()
On Error GoTo Eroare
nrclick = CInt(Text1.Text)
Timer1.Interval = CInt(Text2.Text)
Timer2.Enabled = True
If (Option1.Value = True) Then dr = 1
If (Option2.Value = True) Then st = 1
Option1.Enabled = False
Option2.Enabled = False
Command1.Enabled = False
Exit Sub
Eroare:
MsgBox "Invalid Data !", vbCritical, "Eroare!"
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Command1.Enabled = True
Option1.Enabled = True
Option2.Enabled = True
st = 0
dr = 0
timp = 0
gigi = 3
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
st = 0
dr = 0
timp = 0
gigi = 3
End Sub
Private Sub Timer1_Timer()
gigi = 3
Dim poz As POINTAPI
Call GetCursorPos(poz)
If (dr = 1) Then
Call mouse_event(MOUSEEVENTF_RIGHTDOWN, poz.X, poz.Y, 0, 0)
Call mouse_event(MOUSEEVENTF_RIGHTUP, poz.X, poz.Y, 0, 0)
Else
If (st = 1) Then
Call mouse_event(MOUSEEVENTF_LEFTDOWN, poz.X, poz.Y, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, poz.X, poz.Y, 0, 0)
End If
End If
timp = timp + 1
ttime.Caption = " [" & CStr(timp) & "] "
If (timp = nrclick) Then
Timer1.Enabled = False
Command1.Enabled = True
Option1.Enabled = True
Option2.Enabled = True
st = 0
dr = 0
timp = 0
End If
End Sub

Private Sub Timer2_Timer()
ttime.Caption = CStr(gigi)
If (gigi = 0) Then
Timer2.Enabled = False
Timer1.Enabled = True
End If
gigi = gigi - 1
End Sub

- In modul:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2          
Public Const MOUSEEVENTF_LEFTUP = &H4            
Public Const MOUSEEVENTF_RIGHTDOWN = &H8         
Public Const MOUSEEVENTF_RIGHTUP = &H10          
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
    X As Long
    Y As Long
End Type

Si arhiva:

[url]http://rapidshare.com/files/65817459/clicker.rar.html[/url]

Am postat asta pentru a avea si voi acces la codul sursa si pentru a-l studia. Poate nu este cel mai bun, dar eu asa l-am gandit !

[LeOCruX]

m'am jucat si eu mai demult in delphi cu un autoclicker si k sa'l testez am pus 10 clikuri...... dar a sarit nush cum la 1000 ( si bine'nteles ca mergea ) moama cat m'am mai chinuit sa'l inchid ...