HOLA!!!

Encontre una pagina con unos ejemplos, esta en ingles, no creo que sea problema no?

http://www.vbforums.com/showthread.php?t=322261

http://www.vbforums.com/showthread.php?t=357051

Espero que te sirva, sino mi busqueda en Dios GOOGLE fue "VB6 HOOK APIHOOKING" sin comillas.

Sino escribe aca, igual no se casi nada del tema  .

En fin quise ayudar
 


GRACIAS POR LEER!!!

Hola, y gracias a los dos,

yo lo que necesito es hecer un hook a una aplicacion (saber cuando se ejecuta, que parametros le pasan, etc).

detodas maneras, ahora que venga del cole reviso los link's de nuevo gracias

Saludos.

Dificilmente encuentres exactamente lo que necesites, deberas adaptar el code que mas se ajeste a tus necesidades, saludos




@ Psyky :   , no seas malo Psyky ... o te denunciaré ya sabes ante quien ...      

para saber si una aplicacion externa está corriendo o no lo podes saber por intermedio del Hwnd de la su ventana o enumerando los procesos (EnumProcesses) , fijate en este link se habla de eso.

http://www.vbforums.com/showthread.php?p=3231419





No sé si te puedo ayudar en el tema de saber que parametros se le pasan, a que parametros te referis exactamente ?

.

Hace tiempo vi u codigo fuente que te devolvia los parametros con los que fueron ejecutados los ejecutables... no se donde esta ahora xD, pero no era un Hook.

---

Hace un tiempo vinieron preguntando como interceptar parametros de una aplicacion X
Lo mas facil pero cutre fue hacer un...

Solo renombre la aplicación, en este ejemplo utilice el Notepad.exe y lo renombre a "Notepad0.exe", y esta aplicacion le puse el nombre del proceso original.

 
Option Explicit
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
 
Sub main()
    Open "Registro.txt" For Binary As 1
        Put 1, , Command$ & vbcr
    Close 1
    ShellExecute &H0, "Open", App.Path & "\Notepad0.exe", Command$, App.Path, SW_SHOWNORMAL
End Sub
 
 

Dulce Infierno Lunar!¡.
.