Autor
|
Tema: hook thread notepad ayudaaaaaa?????? (Leído 4,457 veces)
|
leo17
Desconectado
Mensajes: 93
|
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
|
|
|
En línea
|
|
|
|
krackwar
Desconectado
Mensajes: 900
|
una pregunta solo por curiosidad este code es tuyo????????????? s4lu2!
|
|
|
En línea
|
Mi blogBienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran. El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
|
|
|
seba123neo
|
Hola, en PSC si no me equivoco hay un codigo para hookear todo el notepad,o cualquier programa,cuando lo cerras,maximizas,etc...
saludos.
|
|
|
En línea
|
|
|
|
leo17
Desconectado
Mensajes: 93
|
no, no es mi code en parte
|
|
|
En línea
|
|
|
|
leo17
Desconectado
Mensajes: 93
|
disculpa pero cual es la dire PSC ??????
|
|
|
En línea
|
|
|
|
SKL (orignal)
Desconectado
Mensajes: 259
UpLoadSourceCode
|
PSC = PlanetSourceCode, buscalo en el google
|
|
|
En línea
|
|
|
|
krackwar
Desconectado
Mensajes: 900
|
www.pscode.com es la pagina donde segun yo tienen mas codes de vb6. s4lu2!
|
|
|
En línea
|
Mi blogBienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran. El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
|
|
|
SKL (orignal)
Desconectado
Mensajes: 259
UpLoadSourceCode
|
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
|
|
|
En línea
|
|
|
|
krackwar
Desconectado
Mensajes: 900
|
XD , si se le estaba agregando un comentario no mas. pd:tambien esta www.canalvisualbasic.nets4lu2!
|
|
|
En línea
|
Mi blogBienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran. El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
|
|
|
seba123neo
|
leo encontraste el codigo???,sino lo subo para que lo bajes,a la pagina de ese tal skullsp
|
|
|
En línea
|
|
|
|
|
|