hola amigos tengo un problema al instalar un hook de thread al ejecutarlo me sale con un error aqui os coloco el code, puej basicamente lo que quiero hacer es interceptar los mensajes HCBT_DESTROYWND osea cuando se cierre el notepad me lo notifique ok gracias.
'in a form
Private Sub Form_load()
Hook.lpfn = Adresspackajing(AddressOf Interceptor) 'whao! un puntero a una funcion..hay k hoderse XD
Hook.idHook = WH_CBT
Hook.hmod = App.hInstance
Dim find As Long, fi As Long
Dim a As Long
a = Shell("notepad.exe")
find = FindWindow("Notepad", vbNullString)
Hook.dwThreadId = GetWindowThreadProcessId(find, fi)
Hook.hhooKRET = SetWindowsHookEx(Hook.idHook, Hook.lpfn, Hook.hmod, Hook.dwThreadId)
End Sub
Public Function Adresspackajing(ByVal Add As Long) As Long
Adresspackajing = Add
End Function
'in a module
Declare Function GetWindowThreadProcessId Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Type T_Hookguay
idHook As Long
lpfn As Long
hmod As Long
dwThreadId As Long
hhooKRET As Long
End Type
Public Hook As T_Hookguay
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WH_CBT = 5
Public Const HCBT_DESTROYWND As Long = 4
Public Function Interceptor(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If lMsg < 0 Then
Interceptor = CallNextHookEx(Hook.hhooKRET, lMsg, wParam, lParam)
Else
Select Case lMsg
Case HCBT_DESTROYWND
MsgBox ("siiii")
End Select
Interceptor = CallNextHookEx(Hook.hhooKRET, lMsg, wParam, lParam)
End If
End Function
una pregunta solo por curiosidad este code es tuyo?????????????
s4lu2!
Hola, en PSC si no me equivoco hay un codigo para hookear todo el notepad,o cualquier programa,cuando lo cerras,maximizas,etc...
saludos.
no, no es mi code en parte :(
disculpa pero cual es la dire PSC :huh:??????
PSC = PlanetSourceCode, buscalo en el google
www.pscode.com es la pagina donde segun yo tienen mas codes de vb6.
s4lu2!
Cita de: krackwar en 30 Abril 2008, 05:17 AM
www.pscode.com es la pagina donde segun yo tienen mas codes de vb6.
s4lu2!
por si no te diste cuenta es la misma pagina
XD , si se le estaba agregando un comentario no mas.
pd:tambien esta www.canalvisualbasic.net
s4lu2!
leo encontraste el codigo???,sino lo subo para que lo bajes,a la pagina de ese tal skullsp ;) ;)
Si buscas por aca yo deje ejemplos de como inyectar y como instalar hooks en el notepad.
Citarsino lo subo para que lo bajes,a la pagina de ese tal skullsp
jajaja
CitarSi buscas por aca yo deje ejemplos de como inyectar y como instalar hooks en el notepad.
no me acuerdo bien si lo subiste a rapidshare o lo subi en ClassicVB, porque las descargas de classicVB no funcionan mas...
sl
hola q tal amigos, lamento molestarlos nuevamente pero, la verdad no he encontrado mucha informacion en español sobre hooks he leido un articulo pero esta orientado a c++ si alguien tiene algun code please.
gracias