Evento durante ventana activa

[Craxer]

hola a todos... estoy desarrollando un keylogeren VB, y de pronto quiero darle la funcion de  q solo capture las teclas cuando las esten escribiendo en un determinado proceso, como el de Internet Explorer, Mozilla, MSN, Yahoo, ....
...
xq mi keyloger me esta gravando todo minuciosamente .... pero el log es demasiado grande cuando lo intente subir x FTP.. y demoraria una eternidad, x eso solo quiero q funcione cuando la ventana (de los procesos especificos) este activa....!

...
agradeceria su ayuda
--
Craxer

[ranefi]

hola a todos... estoy desarrollando un keylogeren VB, y de pronto quiero darle la funcion de  q solo capture las teclas cuando las esten escribiendo en un determinado proceso, como el de Internet Explorer, Mozilla, MSN, Yahoo, ....
...
xq mi keyloger me esta gravando todo minuciosamente .... pero el log es demasiado grande cuando lo intente subir x FTP.. y demoraria una eternidad, x eso solo quiero q funcione cuando la ventana (de los procesos especificos) este activa....!

...
agradeceria su ayuda
--
Craxer

Hola Craxer, bienvenido al foro. Puedes utilizar la API FindWindow, aquí te dejo un ejemplo de API-Guide.

Insertar el siguiente código en...

Un formulario

Código:

Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Private Declare Function PostMessage Lib "user32" _
    Alias "PostMessageA" (ByVal hwnd As Long, _
    ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long

Private Declare Function GetClassName Lib "user32" _
    Alias "GetClassNameA" (ByVal hwnd As Long, _
    ByVal lpClassName As String, _
    ByVal nMaxCount As Long) As Long

Private Declare Function ShowWindow Lib "user32" _
    (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Const SW_SHOWNORMAL = 1
Const WM_CLOSE = &H10
Const gcClassnameMSWord = "OpusApp"
Const gcClassnameMSExcel = "XLMAIN"
Const gcClassnameMSIExplorer = "IEFrame"
Const gcClassnameMSVBasic = "wndclass_desked_gsk"
Const gcClassnameNotePad = "Notepad"
Const gcClassnameMyVBApp = "ThunderForm"

Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String
    'Ask for a Window title
    Ret = InputBox("Enter the exact window title:" + _
        Chr$(13) + Chr$(10) + "Note: must be an exact match")
    'Search the window
    WinWnd = FindWindow(vbNullString, Ret)
    If WinWnd = 0 Then MsgBox "Couldn't find the window ...": Exit Sub
    'Show the window
    ShowWindow WinWnd, SW_SHOWNORMAL
    'Create a buffer
    lpClassName = Space(256)
    'retrieve the class name
    RetVal = GetClassName(WinWnd, lpClassName, 256)
    'Show the classname
    MsgBox "Classname: " + Left$(lpClassName, RetVal)
    'Post a message to the window to close itself
    PostMessage WinWnd, WM_CLOSE, 0&, 0&
End Sub

Ahora sólo resta que adaptes el código a tus necesidades. Nos vemos.