• Viernes 8 de Noviembre de 2024, 13:42

Autor Tema:  Re: Sobreponerse a todas las ventanas??  (Leído 1324 veces)

_EL_DJ_LU

  • Miembro activo
  • **
  • Mensajes: 78
    • Ver Perfil
Re: Sobreponerse a todas las ventanas??
« en: Martes 6 de Mayo de 2003, 07:53 »
0
Hola a todos como estas??
Espero que me puedan ayudar con este problema.

Hice un programa para un ciber cafe, lo unico que no funcoina correctamenten es:

Como puedo hacer para que mi programa muestre un formulario (con nu mensaje) por ensima de todas las ventanas incluyendo a la de los juegos( counter, empires, star craft, etc).

Lo que hice si funciona para cuando estas en internet o cosas asi pues, pero cunado estas jugando no puedo hacer que mi programa muestre la ventana mensionada. No se como hacer para minimizar los juegos momentaneamente para que respondan a mi mensaje.

ya simule el presionar un alt+tab, pero esto dunciona en solo algunos juegos, mas no para el counter. En el counter si pongo alt + tab no vuelvo a entrar ( me vota del juego por completo..

muchas gracias, espero que me hayan entendido..
de antemano muchas gracias.

angelescj

  • Miembro MUY activo
  • ***
  • Mensajes: 154
    • Ver Perfil
Re: Sobreponerse a todas las ventanas??
« Respuesta #1 en: Martes 6 de Mayo de 2003, 14:21 »
0
Si utilizas el Msgbox, y le indicas que sea Modal al sistema hace lo que tú pretendes, o por lo menos funciona así con todas las aplicaciones que yo he probado.
Ej:
MsgBox "pp", vbSystemModal
:suerte:

_EL_DJ_LU

  • Miembro activo
  • **
  • Mensajes: 78
    • Ver Perfil
Re: Sobreponerse a todas las ventanas??
« Respuesta #2 en: Miércoles 7 de Mayo de 2003, 19:26 »
0
Muchas gracias por tu ayuda OBSERVADOR pero tenecito que se un mesaje qeu sale despues de un tiempo determinado, y que minimice todas las ventanas , incluyendo a los juegos
gracias

kimk

  • Nuevo Miembro
  • *
  • Mensajes: 10
    • Ver Perfil
Sobreponerse a todas las ventanas??
« Respuesta #3 en: Lunes 12 de Mayo de 2003, 04:24 »
0
Primero pones esto en la ventana de código:Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Ahora pones estas constantes:Const KEYEVENTF_KEYUP = &H2:Const VK_LWIN = &H5BY este se pone por ejemplo en un commandbutton o donde quieras:Call keybd_event(VK_LWIN, 0, 0, 0):Call keybd_event(77, 0, 0, 0):Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)Hasta la vista.:lightsabre: