Mensajes

[ekrn32.exe]

como te dice r.n.a el proceso es ekrn32.exe

el otro proceso puede ser alguno del sistema, o si no tienes suerte, otro malware :S

eso si es interesante al menos pero esto no lo veo salida

diran lo que quieran, que sera un tema chorra pero mira que pila respuestas :/

no lo veo salida la verdad jeje, solo como practica en casa

solo lo puse para ver si funcionaba, no funciona

al iniciar el proyecto se crea un bucle que dice" apretaste1"

esto en el form load:

Código (vb) [Seleccionar] Expandir

    If RegisterHotKey(hWnd, 1, MOD_CONTROL Or MOD_ALT, VK_1) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 2, MOD_CONTROL Or MOD_ALT, VK_2) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 3, MOD_CONTROL Or MOD_ALT, VK_3) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 4, MOD_CONTROL Or MOD_ALT, VK_4) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 5, MOD_CONTROL Or MOD_ALT, VK_5) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 6, MOD_CONTROL Or MOD_ALT, VK_6) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 7, MOD_CONTROL Or MOD_ALT, VK_7) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 8, MOD_CONTROL Or MOD_ALT, VK_8) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
     
    WinProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf NewWindowProc)

esto en el modulo:

Código (vb) [Seleccionar] Expandir

Public Function NewWindowProc( _
                ByVal hWnd As Long, _
                ByVal Msg As Long, _
                ByVal wParam As Long, _
                ByVal lParam As Long) As Long

    If Msg = &H82 Then
       
       Call SetWindowLong(hWnd, GWL_WNDPROC, WinProc)
       Call UnregisterHotKey(hWnd, 1)
   
    End If

if wparam = 1 then msgbox "apretaste 1"
if wparam = 2 then msgbox "apretaste 2"
if wparam = 3 then msgbox "apretaste 3"
if wparam = 4 then msgbox "apretaste 4"
if wparam = 5 then msgbox "apretaste 5"
if wparam = 6 then msgbox "apretaste 6"
if wparam = 7 then msgbox "apretaste 7"
if wparam = 8 then msgbox "apretaste 8"

   
    NewWindowProc = CallWindowProc(WinProc, hWnd, Msg, wParam, lParam)

End Function



ok gracias sea123neo, ahora si lo entendi

pretendo sacar una nueva version, pero me he quedado atascado en eso de la multiconexion y transferencia de archivos, lo he intentado hacer varias veces pero me quedo atascado jaja

no te entendi muy bien

en el tutorial que te pase viene casi todo y esta muy completo, servicios, valores del registro, inyeccion para procesos (Solo la idea)...etc

ok muchas gracias

mira tengo otra duda, el proceso para ello es el sigueinte

Código (vb) [Seleccionar] Expandir

If RegisterHotKey(hWnd, 1, MOD_CONTROL Or MOD_ALT, VK_1) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 1, MOD_CONTROL Or MOD_ALT, VK_2) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 1, MOD_CONTROL Or MOD_ALT, VK_3) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 1, MOD_CONTROL Or MOD_ALT, VK_4) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 1, MOD_CONTROL Or MOD_ALT, VK_5) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 1, MOD_CONTROL Or MOD_ALT, VK_6) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 1, MOD_CONTROL Or MOD_ALT, VK_7) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
    If RegisterHotKey(hWnd, 1, MOD_CONTROL Or MOD_ALT, VK_8) = 0 Then
    MsgBox " Hubo un error ", vbCritical
    Exit Sub
    End If
     
    WinProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf NewWindowProc)


y en el modulo es asi:

Código (vb) [Seleccionar] Expandir

Public Function NewWindowProc( _
                ByVal hWnd As Long, _
                ByVal Msg As Long, _
                ByVal wParam As Long, _
                ByVal lParam As Long) As Long

    If Msg = &H82 Then
       
       Call SetWindowLong(hWnd, GWL_WNDPROC, WinProc)
       Call UnregisterHotKey(hWnd, 1)
   
    End If

   
    If Msg = WM_HOTKEY Then
       MsgBox "atajos dados"
    End If
    NewWindowProc = CallWindowProc(WinProc, hWnd, Msg, wParam, lParam)

End Function

como hago para identificar si se ha dado a ctrl + alt + 2 en vez  de a ctrl + alt + 7 por ejemplo? ya que para identificarlo usan la constante msg y devuelve unicamente el valor de que se ha ejecutado la pulsacion de teclas, una cualquiera

saludos

pues puedes inyectar tu programa en un proceso residente o que se inicie cuando abras sesion, aunque eso ya es mas manejo de procesos con apis y rollos

te dejo un buen tutorial:

http://foro.elhacker.net/tutoriales_documentacion/manual_de_procesos_que_se_ejecutan_al_inicio_de_windows_xp-t146876.0.html