Mensajes

sale tio  gracias tu codigo me a ayudado bastante

 
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

Código [Seleccionar] Expandir

Debug.Print KillTimer(0, A)

debug.print:

Código [Seleccionar] Expandir

26196
+1
26196
1

[modulo bas]

hice este ejemplo y comprobe que no funciona noce en que fallo

modulo bas

Código (vb) [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

+1
0
0

  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

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 ??? 

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

el metodo de winlogon y userinit si funciona en win 7 ya lo probe gracias

si esa version quiero pero no encuentro adonde descargarla

sale quien me puede dar el link de la pagina oficial del spynet y del bifrost.
la de spynet la perdi ya la tenia x3

sale quien me ayudaria a dar un link con el spy-net limpio???