[VB6] Autoclick

[Exego]

Iniciado por franko1809

Si es asi, es como pedirle a un cocinero que me repare el auto jajaja.

El 1er codigo es de C++ si no me falla la memoria y el 2do no lo entiendo del todo.
A que cosa le quieres hacer click? un boton, un link, especifica lo que deseas hacer

Bajale el tamaño de letra del post anterior que cansa la vista

saludos

Hay cocinero que son buenos mecánicos :D
Quiero que autoclicke en la pantalla, creo que se llama entorno gráfico.
Cambiado.

Iniciado por FTech

Mira te dejo un code que hizo un primo hace poco:

Código vb:

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 Form_Load()
Text1.Text = "" 'Para configurar los intervalos de clicks
Timer1.Enabled = False
Timer2.Enabled = True
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(vbKeyF10) And KEY_PRESSED Then
    MsgBox "Apretaste f10!"
    Timer1.Interval = Val(Text1.Text)'Lee el valor del textbox en MS
    Timer1.Enabled = True
ElseIf GetKeyState(vbKeyF11) And KEY_PRESSED Then
    MsgBox "Apretaste f11!"
    Timer1.Enabled = False
End If
End Sub
 

¿Eso lo tengo que poner donde pone 'General' o algo así?

Gracias por todo.