• Sábado 21 de Diciembre de 2024, 17:10

Autor Tema:  Ventana De Bloqueo  (Leído 3311 veces)

9tnix

  • Miembro MUY activo
  • ***
  • Mensajes: 165
  • Nacionalidad: pe
    • Ver Perfil
Ventana De Bloqueo
« en: Sábado 28 de Febrero de 2004, 15:14 »
0
Saludos a todos

Estoy desarrollando un programa para un cyber y bueno lo que anda fallando es la ventana de bloqueo de los terminales pues veran este es mi detalle, mi programa carga en Run junto con Windows y carga todo bien pero pero como saben en Run se ejecutan tambien otros programas lo que sucede es lo siguiente:

Ejecute mi programa se cargo al inicio de windows pero luego como estaban cargando otros programas por ejemplo messenger, este la ventana de messenger se coloco delante de la mia ehhh alli el detalle quisiera saber como hacer para evitar eso. y evitar que otras ventanas de programas que estan cargando en Run o junto con windows e pongan delante de mi ventana de "bloqueo".

Un saludo y gracias  de antemano :D  :D  :D
zeekel ®
TP-Systems
our knowledge is our power!

hitman47

  • Miembro activo
  • **
  • Mensajes: 81
  • Nacionalidad: pa
    • Ver Perfil
    • http://softwareistmenio.blogspot.com
Re: Ventana De Bloqueo
« Respuesta #1 en: Miércoles 3 de Marzo de 2004, 05:25 »
0
si no me equivoco hay unos api para ganar el foco de windows puedes hacer que tu
programa se ponga activa cada vez que pierde el focus. salu2 :ph34r:

9tnix

  • Miembro MUY activo
  • ***
  • Mensajes: 165
  • Nacionalidad: pe
    • Ver Perfil
Re: Ventana De Bloqueo
« Respuesta #2 en: Miércoles 3 de Marzo de 2004, 14:44 »
0
Gracias por responder Hitman47

La verdad he intentado mil maneras hice una busqyeda de procesos para matarlos busque ventanas activas que no sean mis ventanas claro con api que mas a ver.... bueno la idea que me sugieres es buena tenria que colocar mi ventana en Ontop y ademas si sale una ventana mia o una ventana de msgbox de error no deberia colocarse adelante la ventana de boqueo al perder el foco.

Muchas gracias Hitman47 lo voy a tomar en cuenta
ahhh y un Saludo zeekel ®

PD: Si tienes otras ideas que me ayuden te lo agradecere mucho, gracias de antemano :D :D
TP-Systems
our knowledge is our power!

AYCUL

  • Miembro activo
  • **
  • Mensajes: 80
    • Ver Perfil
Re: Ventana De Bloqueo
« Respuesta #3 en: Sábado 6 de Marzo de 2004, 21:14 »
0
Option Explicit

Public Declare Function SetWindowPos Lib "user32" _
    (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal x As Long, ByVal y As Long, _
    ByVal cx As Long, ByVal cy As Long, _
    ByVal wFlags As Long) As Long
Public Const HWND_TOPMOST = -1



'----------------------
en el form

Me.ScaleMode = vbPixels
    SetWindowPos Me.hwnd, HWND_TOPMOST, Me.ScaleLeft, _
    Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight, 0

no se si eso quires pero yo entendi eso  :whistling:

9tnix

  • Miembro MUY activo
  • ***
  • Mensajes: 165
  • Nacionalidad: pe
    • Ver Perfil
Re: Ventana De Bloqueo
« Respuesta #4 en: Domingo 7 de Marzo de 2004, 05:53 »
0
Salu2 AYCUL

Muy amable gracias si mira habia pensado en lo siguiente mi ventana de bloqueo on top y cargarlo al final de la carga de los programas de windows y fin del cuento. Gracias por tu respuesta creo que hemos coincidido  :D .

Un saludo zeekel ®
[KGT]
TP-Systems
our knowledge is our power!

hitman47

  • Miembro activo
  • **
  • Mensajes: 81
  • Nacionalidad: pa
    • Ver Perfil
    • http://softwareistmenio.blogspot.com
Re: Ventana De Bloqueo
« Respuesta #5 en: Domingo 7 de Marzo de 2004, 07:16 »
0
bueno prueba este codigo para ver si te sirve necesitas agregar un timer:

Option Explicit

Dim re As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long


Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
re = SetForegroundWindow(Me.hwnd)
End Sub

  ¡saludos! :D

9tnix

  • Miembro MUY activo
  • ***
  • Mensajes: 165
  • Nacionalidad: pe
    • Ver Perfil
Re: Ventana De Bloqueo
« Respuesta #6 en: Domingo 7 de Marzo de 2004, 20:28 »
0
Hola Hitman47

muy amable interesante codigo con eso pongo delante mi form y al estar en el timer estara siempre adelante mas efectivo que Ontop gracias por la información.

Solucione el problema gracias a sus ideas son muy amables
AYCUL
Hitman47

Un saludo zeekel ®
[KGT]
TP-Systems
our knowledge is our power!

elmango80

  • Miembro MUY activo
  • ***
  • Mensajes: 149
  • Nacionalidad: ve
    • Ver Perfil
Re: Ventana De Bloqueo
« Respuesta #7 en: Lunes 8 de Marzo de 2004, 07:47 »
0
Hola zeekel!

Lo que puedes hacer es crear un formulario que al momento de cargarlo este maximizado y mantenerlo siempre por encima de todas las demas ventanas hasta que tu desees desactivarlo asi como te dijo AYCUL.

Te envio un programa que hace lo que te digo.
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.
Citar
No soy bueno, tampoco soy malo sino todo lo contrario...

9tnix

  • Miembro MUY activo
  • ***
  • Mensajes: 165
  • Nacionalidad: pe
    • Ver Perfil
Re: Ventana De Bloqueo
« Respuesta #8 en: Martes 9 de Marzo de 2004, 03:33 »
0
Salu2 elmango80

Muy amable gracias por la ayuda estoy contento en este foro pues la mayoria de los miembros son muy rapidos para responder las dudas.
el programa del cyber que hago esta enfase BETA y proximamente sale y eso gracias a su ayuda.

Un saludo AYCUL
Un saludo Hitman47
Un saludo elmango80

zeekel ®
[KGT]

PD: Si en algo puedo ayudarles no duden en pedirmelo :D
TP-Systems
our knowledge is our power!

elmango80

  • Miembro MUY activo
  • ***
  • Mensajes: 149
  • Nacionalidad: ve
    • Ver Perfil
Re: Ventana De Bloqueo
« Respuesta #9 en: Jueves 11 de Marzo de 2004, 08:45 »
0
Hola Zeekel!

Puedes utilizar el espacio del formulario de bloqueo para colocar el logotipo de tu programa y asi no tienes un simple formulario vacio en tu aplicación....

:devil: ----------------- :angel:
Citar
No soy bueno, tampoco soy malo sino todo lo contrario...

9tnix

  • Miembro MUY activo
  • ***
  • Mensajes: 165
  • Nacionalidad: pe
    • Ver Perfil
Re: Ventana De Bloqueo
« Respuesta #10 en: Jueves 11 de Marzo de 2004, 10:37 »
0
Hola elmango80

Que tal amigo gracias por la sugerencia siempre muy oportuno, veras hice eso puse una animacion de flash en la ventana de bloqueo muy al estilo de Angel of the fire jejeje :D es mi compañero que trabaja conmigo en esto del cyber bueno y que mas decir se ve bien, lo que aun ,me trae problemas son la sincronizacion de tiempo y tomar medidas cuando se va la luz cosas de esas.

Uso VB6 SP4 y SQL Server 2000 las estaciones son Win2000 y XP bueno entre las cosas que ya hace correctamente el programa son:

Programa Servidor
------------------------
Venta de Productos
Aviso de pedido entrante
Registro de Cuentas de usuario
Registro de Equipos
Registro de Operadores de sistema
Restauracion de Cuentas cuando se va la luz
Deteccion contra desconexion de cable de red
Interfaz amigable, muy facil de entender (a mi parecer jejeje :D)
eso entre otras cosillas

Programa Cliente
--------------------
Inicio de Sesion
Crear cuenta de usuario
Recordar contraseña
Modificacion del registro de Usuario en sesion
Modificacion del registro de Cuenta en sesion
Ver/Ocultar Reloj
Enviar Sugerencias
Proteccion de equipo al salir
Iniciar Msn Messenger
Modificar Opciones tales como avisarme antes de que termine mi tiempo en minutos, etc..
Lista de programas favoritos
Enviar pedido
Etc...

Los problemas que me trae son las transacciones que uso con ADO o sea cuando hago un registro en 2 tablas hago lo siguiente:

Cnx.BeginTrans
....
Cnx.CommitTrans

luego voy a otra opcion del programa y por algun motivo me dice que el objeto Cnx la transaccion se ha vuelto inestable y como uso una sola conexion global para el sistema si esta cae o se pone inestable compromete a todo el programa.

Espero que algun dia si alguien se anima podamos desarrollar un soft para cyber y estandarizarlo, yo no soy un experto en esto, sabes elmango80 esta es la primera vez que desarrollo un soft y lo vendo y bueno he ganado ya algo de experiencia pero aun falta mucho camino para recorrer.

Un saludo a toda la gente del foro, gracias por su gran ayuda.

zeekel ®
[KGT]
TP-Systems
our knowledge is our power!