Tema destacado: Personaliza-Escoge el diseño del foro que más te guste.
 Autor
|
Tema: obtener el hwnd de un programa sin form (Leído 1,472 veces)
|
RHL
 Desconectado
Mensajes: 968
mental
|
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 (Astaroth)
Wiki
Desconectado
Mensajes: 2.831
I'Love...!¡.
|
.
Ponle entonces &H0 o 0, el hwnd es propio de ventanas y solo es asosiativos normalmente...
Dulces Lunas!¡.
|
|
|
|
|
En línea
|
|
|
|
RHL
Desconectado
Mensajes: 968
mental
|
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  para eliminarlo con killtimer? ya que si aplico 0 en killtimer entonces escribo 0 ??? |
|
|
|
« Última modificación: 27 Agosto 2011, 07:25 por Raul100 »
|
En línea
|
|
|
|
|
|
RHL
Desconectado
Mensajes: 968
mental
|
 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
|
|
|
|
RHL
Desconectado
Mensajes: 968
mental
|
hice este ejemplo y comprobe que no funciona noce en que fallo modulo basOption 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 |
|
|
|
« Última modificación: 27 Agosto 2011, 08:14 por Raul100 »
|
En línea
|
|
|
|
RHL
Desconectado
Mensajes: 968
mental
|
lo resolvi bueno mi error era a la hora de liberarlo 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
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.831
I'Love...!¡.
|
.
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
|
|
|
|
Hasseds
Desconectado
Mensajes: 144
|
buenas pues esa duda tengo como puedo obtener el hwnd de un programa de VB sin form? , 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
|
|
|
|
« Última modificación: 28 Agosto 2011, 00:24 por Hasseds »
|
En línea
|
Sergio Desanti
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.831
I'Love...!¡.
|
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.
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 por BlackZeroX▓▓▒▒░░ »
|
En línea
|
|
|
|
Hasseds
Desconectado
Mensajes: 144
|
Ok, gracias por la aclaración BlackZeroX▓▓▒▒░░ , como dije anteriormente Acabo de enterarme de este tipo hwnd, ( voy a investigar que utilidad puede tener)
PD: es mas practico guardar el retorno de SetTimer para luego utilizarlo con KillTimer pero este Por Ej con este hwnd tambien se puede , lo dicho ( voy a investigar que utilidad puede tener)
Saludos
|
|
|
|
« Última modificación: 28 Agosto 2011, 00:52 por Hasseds »
|
En línea
|
Sergio Desanti
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.831
I'Love...!¡.
|
PD: es mas practico guardar el retorno de SetTimer para luego utilizarlo con KillTimer pero este Por Ej con este hwnd tambien se puede , lo dicho ( voy a investigar que utilidad puede tener)
Es una ventana oculta que resive TODOS los mensajes del sistema operativo... para evitarnos hacer el trato de los mensajes mismos tal y como lo hariamos en C/C++... P.D.: El hwnd en el SetTimer() y KilTtimer() son solo para relacionar el mensaje WM_TIMER con un CallBack al WinProc() de la ventana X con respecto a su hwnd... de todos modos en todos los codigos ya espuestos aqui se a guardado el uIDEvent generado por SetTimer() para posteriormente usarlo en el KillTimer()...
Remarks
An application can process WM_TIMER messages by including a WM_TIMER case statement in the window procedure or by specifying a TimerProc callback function when creating the timer. When you specify a TimerProc callback function, the default window procedure calls the callback function when it processes WM_TIMER. Therefore, you need to dispatch messages in the calling thread, even when you use TimerProc instead of processing WM_TIMER.
The wParam parameter of the WM_TIMER message contains the value of the nIDEvent parameter.
The timer identifier, nIDEvent, is specific to the associated window. Another window can have its own timer which has the same identifier as a timer owned by another window. The timers are distinct.
SetTimer can reuse timer IDs in the case where hWnd is NULL.
Dulces Lunas!¡.
|
|
|
|
« Última modificación: 28 Agosto 2011, 01:52 por BlackZeroX▓▓▒▒░░ »
|
En línea
|
|
|
|
Hasseds
Desconectado
Mensajes: 144
|
de todos modos en todos los codigos ya espuestos aqui se a guardado el uIDEvent generado por SetTimer() para posteriormente usarlo en el KillTimer()...
A eso me refería, que es mas practico como se expuso que utilizando el Hwnd, estamos diciendo lo mismo.
es mas practico guardar el retorno de SetTimer para luego utilizarlo con KillTimer pero esto Por Ejemplo con este hwnd tambien se puede
Valor de Retorno
Si la función tiene éxito y el parámetro hWnd es NULO, el valor de vuelta es un número entero que identifica el nuevo temporizador.se puede pasar este valor a la función de KillTimer para destruir el temporizador.
Lo que no llego a entender por qué el uIDEvent tambien se puede recuperar a travez de uElapse de TimerProc
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 Boolean
Sub Main()
Call SetTimer(0, 0, 2000, AddressOf TimerProc)
Do While Not A
DoEvents
Loop
End Sub
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Debug.Print uElapse
Debug.Print KillTimer(0, uElapse)
A = True
End Sub
|
|
|
|
« Última modificación: 28 Agosto 2011, 05:52 por Hasseds »
|
En línea
|
Sergio Desanti
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.831
I'Love...!¡.
|
Lo que no llego a entender por qué el uIDEvent tambien se puede recuperar a travez de uElapse de TimerProc
Lo que pasa es que no tiene correctamente los aprametros del callback, yo tampoco me habia dado cuenta... aqui te dejo el callback con los nombres corectamente... total solo son nombres de parametros... http://msdn.microsoft.com/en-us/library/ms644907%28v=VS.85%29.aspx
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
Public iTmr As Long
Sub main()
iTmr = SetTimer(0, 0, 300, AddressOf TimerProc)
Do While Not (iTmr = 0)
DoEvents
WaitMessage
Loop
End Sub
'VOID CALLBACK TimerProc(
' __in HWND hwnd,
' __in UINT uMsg,
' __in UINT_PTR idEvent,
' __in DWORD dwTime
');
Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
' hwnd ----> { el pasado por parametro en SetTimer() }
' uMsg ----> { WM_TIMER = 275 }
' idEvent ----> { el retornado por SetTimer() }
Debug.Print hwnd, uMsg, idEvent; "{" & iTmr & "}", dwTime
iTmr = ((Not KillTimer(hwnd, idEvent)) And &H1)
Debug.Print hwnd, uMsg, idEvent; "{" & iTmr & "}", dwTime
End Sub
temibles Lunas!¡.
|
|
|
|
« Última modificación: 28 Agosto 2011, 19:04 por BlackZeroX▓▓▒▒░░ »
|
En línea
|
|
|
|
Hasseds
Desconectado
Mensajes: 144
|
'VOID CALLBACK TimerProc(
' __in HWND hwnd,
' __in UINT uMsg,
' __in UINT_PTR idEvent,
' __in DWORD dwTime
');
Mas claro Imposible !!!
|
|
|
|
|
En línea
|
Sergio Desanti
|
|
|
|
| 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 (Astaroth)
|
4
|
1,095
|
10 Febrero 2009, 04:25
por BlackZeroX (Astaroth)
|
|
|
|
Obtener el Hwnd de una ventana apartir de su pid?
Programación C/C++
|
Zzombi
|
4
|
1,919
|
11 Octubre 2009, 03:01
por Jaixon Jax
|
|
|
|
Consulta: Api ejecutar programa devolviendo hwnd, obtener sus ventanas...
Programación Visual Basic
|
‡‡‡ Ðξλ†Ћ Щλ†ζЋ ‡‡‡
|
9
|
3,155
|
4 Enero 2010, 07:04
por ‡‡‡ Ðξλ†Ћ Щλ†ζЋ ‡‡‡
|
|
|
|
Como obtener hwnd de ventanas hijas de juegos?
Programación Visual Basic
|
AlxSpy
|
2
|
1,513
|
30 Marzo 2011, 17:13
por AlxSpy
|
|
|
|
[Ruby] Obtener el nombre de un proceso mediante el HWND?
Scripting
|
EleKtro H@cker
|
0
|
291
|
7 Marzo 2012, 01:58
por EleKtro H@cker
|
 |
