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 MOUSELEF*** = &H2 ' left button down /This is actually MOUSEEVENTF_LEF***
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 MOUSELEF***, 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

Fuentes de Información - Como crear un autoclick avanzado con Visual basic 6.0

Dar puntos
0 Puntos
Votos: 0 - T!score: 0/10
  • 1 Seguidores
  • 5.310 Visitas
  • 1 Favoritos

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

@joorge07 Hace más de 3 años
Esta muy bien pero no me funciona poniendole f1 y f2
@joorge07 Hace más de 3 años
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 MOUSELEF*** = &H2 ' left button down /This is actually MOUSEEVENTF_LEF***
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 Hace más de 3 años
y para poner una velocidad personalizada podrias poner una HScroll usando este codigo:
Timer1.Interval = HScroll1.Vaule

si te interesa ponerlo xD
@yousef123 Hace más de 3 años
Olle Amigo por que no pusiste el link de descarga para conocer tu autoclick
@mandarina90 Hace más de 3 años
yousef123 dijo:Olle Amigo por que no pusiste el link de descarga para conocer tu autoclick

Ok te paso uno creado ya en vb2008 pero es para un juego llamado boombang pero es rapido
http://www.mediafire.com/?8t8f61n28fpuq7q
@Atzen Hace más de 3 años
oye me puedes pasar ese que pusiste en la foto? me harias un favor! Me gustan asi
@ESTROIDER Hace más de 3 años
Gracias me sirvio..
@ThedjaugustoD Hace más de 3 años
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 Hace más de 2 años
TODAVIA ESPERANDO LOS CODIGOS PARA VISUAL BASIC 2010!
@danielagudeloigl Hace más de 2 años
has 6 autoclicks k se activen con F1 y se desactiven con F2
eso forma un autazo
@ThefenixMM Hace más de 2 años
me gusto mucho tu post ay ban 10 puntos
@ThefenixMM Hace más de 2 años
me dejarias hacer repost pero mejor explicado para ke entiendan mejor
@napter_09 Hace más de 1 año
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