Foro de elhacker.net

Quiero realizar un mini proyecto para mi uso personal el cual haga esto

Dejo el programa encendido

Cuando yo presione f10 el programa se encienda y empieze a dar un bucle de clicks de raton

Cuando le de al f11 que se detenga el proyecto


Como haria para poder hacer tal cosa? es decir, el dar clicks izquierdos con un bucle

gracias

Mediante la API mouse_event

Private Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_MOVE = &H1
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

Llamada:

mouse_event MOUSEEVENTF_LEFTDOWN,100,100,0,0

Harías click con el botón izquierdo en la posición (x,y) (100,100)

Saludos

 Const KEYEVENTF_KEYUP = &H2
 Const KEYEVENTF_EXTENDEDKEY = &H1
 
 
 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
     ByVal bScan As Byte, _
     ByVal dwFlags As Long, _
     ByVal dwExtraInfo As Long)
 
 
 
 Sub Pulsar_Tecla(vbKeyLButton As Long)
 
     Call keybd_event(vbKeyLButton, 0, 0, 0)
 
     Call keybd_event(vbKeyLButton, 0, KEYEVENTF_KEYUP, 0)
 
End Sub
 
 
Private Sub Timer1_Timer()
Call Pulsar_Tecla
End Sub

Por ahora he hecho eso, pero me da error en el timer cuando llamo a la funcion pulsar tecla

Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
Const WM_NCLBUTTONDOWN = &HA1
 
Private Sub Timer1_Timer()
On Error Resume Next
Dim keystate As Long
 
keystate = Getasynckeystate(vbKeyF10)
If (keystate And &H1) = &H1 Then
    MsgBox "Has pulsado F10"
End If
End Sub

Saludos!

eso seria una parte del codigo pero aun estoy por la pulsacion del mouse:

he cojido este codigo de recursos vb:

' Constantes para las teclas y otros
 
Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1
 
 
'Declaración del Api keybd_event para la presión de tecla
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
 
 
 
Sub Pulsar_Tecla(Tecla As Long)
 
    Call keybd_event(Tecla, 0, 0, 0)
 
    Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
 
End Sub
 
' Presiona la tecla Tab
Private Sub Timer1_Timer()
Call Pulsar_Tecla([b]vbKeyTab[/b])
End Sub

el vbkeytab lo cambio por chr(1) o vbkeylbutton y no me funciona me da este error:

con chr(1): type mysmatch

con vbkeylbutton: no ace nada


ayuda plis

Eh?? Pero estás intentando enviar las pulsaciones del mouse con la API keybd_event???

Esa API es para los eventos del teclado no del ratón :S. Por eso pensé que lo que intentabas era detectar que se había pulsado la tecla F10 :s

Lo del ratón ya te he puesto arriba la API que tienes que usar mouse_event y también te he puesto un ejemplo de uso, que más quieres?  :huh:

PD: vbkeylbutton no es, es vbKeyLeft, y esa es la flechita de dirección izquierda del teclado no del ratón, no puedes usar la api keybd_event para capturar eventos del ratón, no tiene sentido.

Saludos.

okey thanks, me pondre con esa api  :D

Mira este code lo hice recien...  :D
Me hiciste acordar a algo que quería hacer en mis tiempo de juego  :-( y nunca supe como hacerlo, hasta que bueno hoy en día ... :-(

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

Hola, mejor usa RegistrerHotKey y UnRegistrerHotKey asi no usas Timer...busca que hay en internet...

saludos.

Ok me documentaré sobre eso.  ::)

yo necesito el timer ya que mi fin es poder invitar a todos mis amigos de tuenti en menos de 1 segundo sin dar clicks jeje y ya lo consegui, ahora aqui os dejo el code, lo pondre como programa, lo arreglare un poquito y demas jj

Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
Const WM_NCLBUTTONDOWN = &HA1
 
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 MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_MOVE = &H1
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
Private Sub Text1_change()
If Not IsNumeric(Text1.Text) Then MsgBox "solo numeros", vbCritical, "error"
End Sub
 
 
Private Sub Timer1_Timer()
 
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 100, 100, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 100, 100, 0, 0)
 
End Sub
 
Private Sub Timer2_Timer()
On Error Resume Next
Dim keystate As Long
Dim keystate2 As Long
 
keystate = Getasynckeystate(vbKeyF6)
keystate2 = Getasynckeystate(vbKeyF7)
 
If (keystate And &H1) = &H1 Then
Timer1.Interval = Text1.Text
Exit Sub
End If
 
If (keystate2 And &H1) = &H1 Then
Timer1.Interval = 0
Exit Sub
End If
 
 
End Sub
 

Como solo pulsando no hacia la accion, tenia que pulsar y soltar asi que lo agregue en el timer, luego en el mismo programa puedo especificar cada cuanto tiempo quiero hacer el bucle de clicks

por cierto, como se haria para que en vez de estar minimizado pasase a la barra de tareas que es mas comodo?

gracias

Tal vez esto te sirva de ayuda link (http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/81.htm)