Power Builder - Protector de Pantalla en PB

Hola a todos:
Necesito, si alquien tiene: "Código fuente de un protector de pantallas", ó algo que me oriente...

Desde ya Muchas Gracias.

Te lo mando a tu correo.

Saludos!

Otra cosa:

En PB en los ejemplos encontraras el de una pecera.

Saludos!

No sé si te convendría elaborar ese protector de pantalla con un programa más específico, de esos que abundan en la Red. Por ejemplo, yo utilicé uno llamado:
"Animated Screen"
que tiene una serie de bondades (fondo negro o transparente, sonido, texto 3D, etc.)
Se halla en:
www.pysoft.com

Luego desde PB, podrías ejecutar al protector de pantalla actual asi:
--------------------------------------------------
Send(handle(This),274,61760,0)
---------------------------------------------------
Y si desde PB, deseas ver la propiedades de pantalla, para elegir otro protector, podrías escribir:
--------------------------------------------------------------------
run("rundll32 shell32,Control_RunDLL desk.cpl")
--------------------------------------------------------------------

Te mando estos scripts, por sí acaso.

Muchisimas Gracias!!!

Los ejemplos los probé, y están buenísimos.
Necesito un protector de pantalla en PB, puesto que necesito programar algunas tareas en el protector, es por ello que no uso uno estandard..
Por ejemplo necesito inhibir las teclas CTRL+ALT+SUPR, para que el usuario no finalice ninguna tarea...
Pero ya me han dado algunas ideas....

Muchísimas gracias...
Este foro es buenísimo!!!
igual seguiré buscando...

Hola que tal:

Que bueno que te funciono.

En relacion a las teclas puedes crear una funcion para validar las teclas pulsadas, alguien en el foro dio respuesta a esta necesidad, asi por ahi debe de andar; pero los eventos de Key te pueden ayudar (checate la ayuda).

Un saludo y suerte

Hola Marcelo:
Encontré un código elaborado en Visual Basic, para evitar que el nombre de tu programa no aparezca cuando se pulsa CTRL+ALT+SUPR. Lo traduje a PB y creo que funciona (salvo en Win NT y 2000).

Acá va:
En la pestaña de la ventana: Declare instance variables, y concretamente en Global external Functions, se debe pegar el siguiente script:
------------------------------------------
Function Long GetCurrentProcessId ( ) Library "kernel32"
Function Long GetCurrentProcess ( ) Library "kernel32"
Function Long RegisterServiceProcess ( Long dwProcessID, Long dwType ) Library "kernel32"
-----------------------------------------------
Luego en el evento open de tu ventana, pegas:
-----------------------------------------------
Constant Long RSP_SIMPLE_SERVICE = 1
Constant Long RSP_UNREGISTER_SERVICE = 0

Long pid
Long lngProcessID
Long lngReturn

lngProcessID = GetCurrentProcessId()
lngReturn = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
-----------------------------------------------
Nota: En este momento estoy traduciendo un código de VB para: Bloquear Inicio, Ctrl+Tab y Ctrl+Alt+Sup; pero me tranqué en algo. Si Funciona, te mando.

Muchas Gracias, como siempre en este foro, encuentro respuestas!!!

Estimados compañeros Power Builder, porfavor me puedenn cruzar esta info, muchas graciass