Pulsando teclas con visual basic

Iniciado por 50l3r, 6 Junio 2009, 15:02 PM

0 Miembros y 1 Visitante están viendo este tema.

50l3r

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

Código (vb) [Seleccionar]
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

h0oke