Principal » Foros » Programacion » Foro Programacion General

Activar Salvapantallas con Visual Basic

Vie, 09/23/2011 - 10:25 by desconocido   Tags:

Hola, sabes donde puedo conseguir información para poder llamar al salvapantallas que yo quiera?, no depender de que el sistema tenga puesto alguno por defecto, sino llamar alguno de los standard que se instalan pero sin obligar a que este puesto para ejecutarse, y poder configurarlo, tanto el tiempo de espera como habilitar la contraseña,....

‹ Programar android con ubuntu Añadir archivos en un proyecto eclipse ›

Comentarios

Enviado por cyfuss el Vie, 09/23/2011 - 13:27.

Yo no conozco mucho visual

Yo no conozco mucho visual basic, y no puedo probar si funciona este código o no, pero prueba con esto:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam
As Long) As Long

Const WM_SYSCOMMAND = &H112&

Const SC_SCREENSAVE = &HF140&

Private Sub Command1_Click()

Dim lRes As Long

lRes = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)

End Sub

--
saludos

cyfuss

Enviar un comentario nuevo

Smileys
:);):(:D}:):P:O:?8):jawdrop::sick:
El contenido de este campo se mantiene como privado y no se muestra públicamente.
  • Las direcciones de las páginas web y las de correo se convierten en enlaces automáticamente.
  • Allowed HTML tags: <a> <em> <strong> <cite> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Saltos automáticos de líneas y de párrafos.
  • Textual smileys will be replaced with graphical ones.

Más información sobre opciones de formato

Captcha
Esta pregunta es para probar que el que escribe el comentario es un humano
9 + 2 =
Solve this simple math problem and enter the result. E.g. for 1+3, enter 4.

Tienda de música online