obtener el hwnd de un programa sin form

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP)

Programación Visual Basic (Moderadores: LeandroA, seba123neo)

obtener el hwnd de un programa sin form

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1] 2

Autor

Tema: obtener el hwnd de un programa sin form (Leído 7,622 veces)

x64core

Desconectado

Mensajes: 1.908

obtener el hwnd de un programa sin form

« en: 27 Agosto 2011, 06:34 am »

buenas pues esa duda tengo

como puedo obtener el hwnd de un programa de VB sin form? estoy codeando un programa sin form ( modulo como main el principal ) y entonces llege a esa parte que necesito el hwnd

normalmente se hace me.hwnd ( me = form ) pero ahora veo que el modulo no tiene hwnd al menos tiene esa propiedad

como puedo hacer? gracias


	En línea

BlackZeroX

Wiki

Desconectado

Mensajes: 3.158

I'Love...!¡.

Re: obtener el hwnd de un programa sin form

« Respuesta #1 en: 27 Agosto 2011, 07:04 am »

.
Ponle entonces &H0 o 0, el hwnd es propio de ventanas y solo es asosiativos normalmente...

Dulces Lunas!¡.


	En línea

The Dark Shadow is my passion.

x64core

Desconectado

Mensajes: 1.908

Re: obtener el hwnd de un programa sin form

« Respuesta #2 en: 27 Agosto 2011, 07:17 am »

gracias BlackZeroX

eso funciona con hooks? la verdad por el momento lo quiero para la api Settimer para el primer parametro que me pide

y luego creo que lo usare para aplicarlo a hooks...

PD: una duda :huh:

para eliminarlo con killtimer?

ya que si aplico 0 en killtimer entonces escribo 0 ??? :huh:


« Última modificación: 27 Agosto 2011, 07:25 am por Raul100 »	En línea

BlackZeroX

Wiki

Desconectado

Mensajes: 3.158

I'Love...!¡.

Re: obtener el hwnd de un programa sin form

« Respuesta #3 en: 27 Agosto 2011, 07:30 am »

.
La MSDN No muerde y si no sabes ingles hay tienes el traductor de google.

http://msdn.microsoft.com/en-us/library/ms644906%28v=vs.85%29.aspx

http://msdn.microsoft.com/en-us/library/ms644903%28v=vs.85%29.aspx

Dulces Lunas!¡.


	En línea

The Dark Shadow is my passion.

x64core

Desconectado

Mensajes: 1.908

Re: obtener el hwnd de un programa sin form

« Respuesta #4 en: 27 Agosto 2011, 07:48 am »

si lo lei tio por eso me entro la curiosidad ya que al escribirle 0 comprendi que el argumento idevent se ignora

y por eso tenia duda de como si no lo ignorara el parametro lo usara para darle un numero para identificarlo

pero lo ignora

y comprobe y la funcion killtimer me devuelve 0 eso quiere decir que la funcion falla

y no libera el timer


	En línea

x64core

Desconectado

Mensajes: 1.908

Re: obtener el hwnd de un programa sin form

« Respuesta #5 en: 27 Agosto 2011, 08:10 am »

hice este ejemplo y comprobe que no funciona

noce en que fallo

modulo bas

Código

Option Explicit
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
 
Dim A As Long
Dim B As Boolean
 
Sub main()
A = SetTimer(0, 0, 30000, AddressOf TimerProc)
Debug.Print A
Do While Not B
DoEvents
Loop
End Sub
 
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Debug.Print "+1"
Debug.Print A
Debug.Print KillTimer(A, 0)
B = True
End Sub

el resultado del debug.print:

Código:

26430 
+1
26430 
0       <--------- no lo libera :P (valor devuelto de la llamada a funcion killtimer )

luego lo termine de comprobar porq cuando termina sub main y vuelvo a vb en diseño el timer aun sigue marcando y en el debug.print me escribe

Código:

+1
0
0


« Última modificación: 27 Agosto 2011, 08:14 am por Raul100 »	En línea

x64core

Desconectado

Mensajes: 1.908

Re: obtener el hwnd de un programa sin form

« Respuesta #6 en: 27 Agosto 2011, 08:26 am »

lo resolvi
bueno mi error era a la hora de liberarlo :xD

el identificador q me devuelve settimer es el idevent no el hwnd del timer

Código:

Debug.Print KillTimer(0, A)

debug.print:

Código:


	En línea

BlackZeroX

Wiki

Desconectado

Mensajes: 3.158

I'Love...!¡.

Re: obtener el hwnd de un programa sin form

« Respuesta #7 en: 27 Agosto 2011, 22:17 pm »

Código

 
Option Explicit
 
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Function WaitMessage Lib "user32" () As Long
 
Dim iTmr            As Long
 
Sub main()
    iTmr = SetTimer(0, 0, 300, AddressOf TimerProc)
    Do While Not (iTmr = 0)
        DoEvents
        WaitMessage
    Loop
End Sub
 
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    Debug.Print KillTimer(hwnd, iTmr)
    iTmr = 0
End Sub

Dulces Lunas!¡.


	En línea

The Dark Shadow is my passion.

Hasseds

Desconectado

Mensajes: 145

Re: obtener el hwnd de un programa sin form

« Respuesta #8 en: 27 Agosto 2011, 23:16 pm »

Cita de: Raul100 en 27 Agosto 2011, 06:34 am

buenas pues esa duda tengo

como puedo obtener el hwnd de un programa de VB sin form?

El tema ya quedó resuelto, pero si alguna vez tenés que obtener el hwnd de un Main podes usar FindWindow. (Acabo de enterarme de esto, ya que también pensaba que este tipo de hwnd era unicamente propio de ventanas).

Código:




Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Sub Main()
  
  Dim lpClase As String
  
  If Not App.LogMode = 0 Then
    lpClase = "ThunderRT6Main" ' Exe Compilado
  Else
    lpClase = "ThunderMain" ' en el IDE
  End If
  
  MsgBox FindWindow(lpClase, App.Title)

End Sub


« Última modificación: 28 Agosto 2011, 00:24 am por Hasseds »	En línea

Sergio Desanti

BlackZeroX

Wiki

Desconectado

Mensajes: 3.158

I'Love...!¡.

Re: obtener el hwnd de un programa sin form

« Respuesta #9 en: 28 Agosto 2011, 00:26 am »

Cita de: Hasseds en 27 Agosto 2011, 23:16 pm

En efecto solo son de ventanas, los procesos no tienen hwnd.
Por ello El PROCESO MAIN() al igual que los demas, NO tienen hwnd.

Cita de: MSDN Microsoft http://support.microsoft.com/kb/259673/es

Todas las aplicaciones de Visual Basic tienen una ventana de nivel superior invisible que procesa los eventos y mensajes. En el modo de diseño, la ventana es ThunderMain, en el modo de ejecución, la ventana es ThunderRT6Main. El RT6 refleja el versión de Visual Basic que se utiliza. Las dos ventanas tienen el nombre del proyecto o el nombre del archivo ejecutable como el título de ventana. Esto es donde se establece el icono de aplicación.

Dulces Lunas!¡.


« Última modificación: 28 Agosto 2011, 00:31 am por BlackZeroX▓▓▒▒░░ »	En línea

The Dark Shadow is my passion.

Páginas: [1] 2

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	[Solucionado] Alguna Alternativa de hWnd para del Timer (1 Modulo SIN FORM) Programación Visual Basic	BlackZeroX	4	4,591	10 Febrero 2009, 04:25 am por BlackZeroX
	Consulta: Api ejecutar programa devolviendo hwnd, obtener sus ventanas... Programación Visual Basic	‡‡‡ Ðξλ†Ћ Щλ†ζЋ ‡‡‡	9	9,939	4 Enero 2010, 07:04 am por ‡‡‡ Ðξλ†Ћ Щλ†ζЋ ‡‡‡
	[Source] Obtener hWnd, Caption y Class de cualquier cosa :D! Programación Visual Basic	Elemental Code	3	4,472	7 Enero 2011, 20:30 pm por raul338
	Como obtener hwnd de ventanas hijas de juegos? Programación Visual Basic	AlxSpy	2	3,654	30 Marzo 2011, 17:13 pm por AlxSpy
	[Ruby] Obtener el nombre de un proceso mediante el HWND? Scripting	Eleкtro	0	2,492	7 Marzo 2012, 01:58 am por Eleкtro