Sección de ejemplos vb.net
Volver - Anterior - Siguiente
Código fuente
Option Explicit On Public Class Form1 ' función PostMessage Public Declare Function PostMessage _ Lib "user32.dll" _ Alias "PostMessageA" ( _ ByVal hwnd As IntPtr, _ ByVal wMsg As Int32, _ ByVal wParam As Int32, _ ByVal lParam As Int32) As Int32 ' Contantes Private Const WM_SYSCOMMAND = &H112& Private Const SC_MONITOR_POWER = &HF170& Private Const MONITOR_ON = -1 Private Const MONITOR_OFF = 2 Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' prende el monitor ''''''''''''''''''''''' 'PostMessage(Me.Handle, WM_SYSCOMMAND, SC_MONITOR_POWER, MONITOR_ON) ' standby ''''''''''''''''''''''' 'PostMessage(Me.Handle, WM_SYSCOMMAND, SC_MONITOR_POWER, MONITOR_OFF) End Sub End Class
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar