Saludos.

 

Estoy apunto de terminar mi programa... Se trata de un programa muy parecido a easy cafe. Lo unico que me faltaria, es la facultad de minimizar todos los programas.

 

Cuando el tiempo de uso de la maquina expire. Quiero que se minimice todos los programas que estan en ejecución incluyendo los juegos, y que luego me muestre en toda la pantalla mi programa. Solo mi programa.

 

El siguiente codigo que ofrezco minimiza todos los programas pero no minimiza los juegos. bueno lo he probado cuando uno esta jugando Gunbound (un juego muy popular por internet) este juego no se minimiza cuando se ejecuta el codigo. El juego sigue en pantalla (ojo solo minimizar no cerrar o finalizar el programa)

 

 Quisiera algun codigo para poder minimizar todos los programas incluyendo los juegos y que luego me muestre solo mi programa. Muy importante que sea compatible con Windows XP Pro.

 

CODIGO:

 

Private Declare Sub keybd_event Lib "user32" _
    (ByVal bVk As Byte, _
     ByVal bScan As Byte, _
     ByVal dwFlags As Long, _
     ByVal dwExtraInfo As Long)

    Const KEYEVENTF_KEYUP = &H2
    Const VK_LWIN = &H5B
   
Private Sub Command1_Click()
    ' Código de la tecla Windows
    Call keybd_event(VK_LWIN, 0, 0, 0)

    ' Código de la tecla "M"
    Call keybd_event(77, 0, 0, 0)

    ' Simula la liberación de la tecla
    Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub

 

*************************

O de la siguiente forma

*****************************

Set objSh = CreateObject("Shell.Application")
   
    objSh.Explore ("C:\") 'Abre el Explorador de windows en la carpeta que se le indique.
    objSh.MinimizeAll    'Claro....... minimiza todas las ventanas
    objSh.FileRun    'Abre el cuadro de diálogo de Windows Ejecutar

'pero la linea    
objSh.ToggleDesktop

 

 

 

Los codigos de arriba solo minimizan ventanas de programas y no haci juegos, como GUNBOUND u otros.

 

 

Gracias de antemano. Espero me puedan ayudar.

Tu amigo Paul