Creen que existen los extraterrestres??

alguien me podria echar una mano??? no creo que sea muy dificil...

Muchas gracias!

Utilizo esto:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim x As Integer
 
Private Sub Timer1_Timer()
 
    If GetAsyncKeyState(1) = -32767 Then
          x = x +1
    End If
 
End Sub

Pero quiero hacer que si lo mantengo pulsado sume 1 a x varias veces , entiendes??

Salu2!

HOola, miren que facil se lo voy a poner con una duda tan sencilla, necesito saber como hago para que si pulso el boton derecho del raton salga un msgbox, por ejemplo... Tienen que tener en cuenta que no es sobre un formulario, que seria asi:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    MsgBox "hola"
End sub
 

Gracias!!

Muy buen trabajo ssccaann43 estoy viendo el SRC y estoy aprendiendo mucho, ya sabes q todo lo que sea aprender no lo desecho, y si es un genial ejemplo como este mejor que mejor, no??
La interfaz grafica brutal, auque he de admitir que estoy de acuerdo con lo que dice BlackZeroX▓▓▒▒░░ de los Scroll...

Gracias por el SRC, sigue asi!!!

Hola, echenme una mano, miren lo que hago:

-utilizo el cheat engine y lo pongo a 0.75
-utilizo el hlves y me hice la configuracion minima

bien, con todo esto consigo reducir el ping hasta 80 mas o menos...
pero va todo lentisimo y no pudeo correr con soltura a causa de q estoy realentizando la lllgada de paketes con el cheat engine...He estado buscando por muchos sitios, y ya no se me ocurre nada mas...
Ayudenme!!

gracias

No funciona...

Muchisimas gracias, me lo han explicado muy bien!!!
agradezco su ayuda de verdad!!!

Tendo un duda mas:
¿que tiene Tor que no tenga otro proxy cualquiera?
gracias!

OK, muchas gracias, voy a probarlo...