Amigos:
quiero hacer que mi programa despues de un tiempo sin actividad pase a mostrar una publicidad de un archivo ".swf" con el ShockwaveFlash, El problema es que no se como programar el timer y saber cuando el computador esta sin actividad, ademas quisiera saber como programar algun evento para cerrar el ShockwaveFlash con un movimiento de raton o al presionar alguna tecla..
muchas gracias..

Alfredo

Cuaqndo decis cerrar el Shockwave, te referisa parar la pelicula, o que eliminar el control del formulario ?. La primera con el método Stop creo que era.

ShockWave.Stop

Para hacerlo al presionar una tecla, hay varias formas, te recomiendo buscar ejemploscon la funciónRegisterHotKey.

Para lo de la actividad del mouse y teclado, podrias usar la api GetAsyncKeyState o haciendoun hook mucho mejor. te paso como detectarlo con la primer api

Código:

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
 Me.AutoRedraw = True
 Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
 
 Dim i As Integer
 For i = 1 To 256
 If GetAsyncKeyState(i) = -32767 Then
 Me.Print Now
 DoEvents
 End If
 Next
End Sub

El probelma de esto es que no se porque al hacer clic en las ventanas de la barra de tareas y en alguos otros casos, no te detecta los clics. Las teclas si.

Para saber si se movió el mouse tenes que usar GetCursorpos, buscá ejemplos que hay millones

saludos.

gracias!!