El post que buscas se encuentra eliminado, pero este también te puede interesar

Como crear un autoclick avanzado con Visual basic 6.0

Lo necesario
2 timers
2 buttons
3 optionbuttons
(Se activa a f1 y se desactiva a f2)
Codigo
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private 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)
Private Const MOUSELEFTDOWN = &H2 ' left button down /This is actually MOUSEEVENTF_LEFTDOWN
Private Const MOUSELEFTUP = &H4 ' left button up /This is actually MOUSEEVENTF_LEFTUP
Private Const KEY_TOGGLED As Integer = &H1
Private Const KEY_PRESSED As Integer = &H1000

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()

Timer1.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Option1_Click()
Timer1.Interval = (150)
End Sub

Private Sub Option2_Click()
Timer1.Interval = (50)
End Sub

Private Sub Option3_Click()
Timer1.Interval = (1)
End Sub

Private Sub Timer1_Timer()
mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
End Sub

Private Sub Timer2_Timer()
If GetKeyState (vbKeyF1) And KEY_PRESSED Then
Timer1.Enabled = True
ElseIf GetKeyState (vbKeyF2) And KEY_PRESSED Then
Timer1.Enabled = False
End If
End Sub
Ejemplo De autoclick echo por mi configurado a medida
https://www.picasaweb.google.com/109099385965406307463/Cats5000?authkey=Gv1sRgCPyHg-P71NKJGA#5611404519145598050

Este autoclick es escho para boombang pero con unos conocimientos basicos de ingles puedes ponerlo a medida


PD: Es mi primer post

16 comentarios - Como crear un autoclick avanzado con Visual basic 6.0

@joorge07
Esta muy bien pero no me funciona poniendole f1 y f2
@joorge07
mandarinita90 dijo:
joorge07 dijo:Esta muy bien pero no me funciona poniendole f1 y f2

esque aveces falla tienes que ir codigo por codigo Porque como es una version muy antigua pero no te preocupes are otro post para visual basic 2010 o 2008

Lo que podes hacer es poner el codigo de cada objeto Por ejemplo:
Form1:
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private 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)
Private Const MOUSELEFTDOWN = &H2 ' left button down /This is actually MOUSEEVENTF_LEFTDOWN
Private Const MOUSELEFTUP = &H4 ' left button up /This is actually MOUSEEVENTF_LEFTUP
Private Const KEY_TOGGLED As Integer = &H1
Private Const KEY_PRESSED As Integer = &H1000

y Asi para poder entender mejor
@joorge07
y para poner una velocidad personalizada podrias poner una HScroll usando este codigo:
Timer1.Interval = HScroll1.Vaule

si te interesa ponerlo xD
@yousef123
Olle Amigo por que no pusiste el link de descarga para conocer tu autoclick
@Atzen
oye me puedes pasar ese que pusiste en la foto? me harias un favor! Me gustan asi
@ThedjaugustoD
oie crea un video porfa
a oie me puedes crear un video para rear un hack para boombang porfa a agregame soy ronaldo91
@Nico_juegos
TODAVIA ESPERANDO LOS CODIGOS PARA VISUAL BASIC 2010!
@danielagudeloigl
has 6 autoclicks k se activen con F1 y se desactiven con F2
eso forma un autazo
@ThefenixMM
me gusto mucho tu post ay ban 10 puntos
@ThefenixMM
me dejarias hacer repost pero mejor explicado para ke entiendan mejor
@napter_09
HOLA MEN ME AYUDAS A HACER UN AUTO CLICK QUE AGA CLICK EN UN BOTON PONGA UN NUMERO Y LUEGO AGA CLICK EN OTRO BOTON PLIS