obtener el hwnd de un programa sin form

Iniciado por x64core, 27 Agosto 2011, 06:34 AM

0 Miembros y 2 Visitantes están viendo este tema.

x64core

buenas pues esa duda tengo :P 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 :P normalmente se hace me.hwnd ( me = form ) pero ahora veo que el modulo no tiene hwnd al menos tiene esa propiedad :P como puedo hacer? gracias :)

BlackZeroX

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

Dulces Lunas!¡.
The Dark Shadow is my passion.

x64core

#2
gracias BlackZeroX :) eso funciona con hooks? la verdad por el momento lo quiero para la api Settimer para el primer parametro que me pide :P y luego creo que lo usare para aplicarlo a hooks...

PD: una duda  :huh: para eliminarlo con killtimer? :P
ya que si aplico 0 en killtimer entonces escribo 0 ???  :huh:

BlackZeroX

The Dark Shadow is my passion.

x64core

 :xD si lo lei tio por eso me entro la curiosidad ya que al escribirle 0 comprendi que el argumento idevent se ignora :P y por eso tenia duda de como si no lo ignorara el parametro lo usara para darle un numero para identificarlo :P pero lo ignora :P y comprobe y la funcion killtimer me devuelve 0 eso quiere decir que la funcion falla :P y no libera el timer :P

x64core

#5
hice este ejemplo y comprobe que no funciona :P noce en que fallo :P

modulo bas
Código (vb) [Seleccionar]
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:


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

+1
0
0

x64core

 :xD :xD :xD
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 :)

Debug.Print KillTimer(0, A)

debug.print:

26196
+1
26196
1

BlackZeroX

.
Código (vb) [Seleccionar]


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!¡.
The Dark Shadow is my passion.

Hasseds

#8
Cita de: Raul100 en 27 Agosto 2011, 06:34 AM

buenas pues esa duda tengo :P 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).





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









Sergio Desanti

BlackZeroX

#9
Cita de: Hasseds en 27 Agosto 2011, 23:16 PM
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).

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!¡.
The Dark Shadow is my passion.