Beiträge anzeigen
3076
PC Software / Re: Welcher Befehl schaltet den Monitor in den StandBy-Modus?
« am: 23. Dezember 2009, 10:57:29 »
Mit einem einfachen Befehl kann man das nicht erledigen. Ich habe jedoch ein kleines Script gefunden.
Quelle: http://www.activevb.de/tipps/vb6tipps/tipp0048.html
Ob es Vista bzw. Windows 7 tauglich ist, kann ich nicht sagen.
Code: [Auswählen]
'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.
'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!
'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm ---------
' Steuerelement: Timersteuerelement "Timer1"
' Steuerelement: Schaltfläche "Command1"
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
Long, ByVal wParam As Long, lParam As Any) As Long
'Update am 6. April 2003: der Monitor sollte sich nun auch
'unter Windows 2k/XP abschalten
Const WM_SYSCOMMAND = &H112&
Const SC_MONITORPOWER = &HF170&
Private Sub Command1_Click()
Dim X As VbMsgBoxResult
X = MsgBox("Monitor 10 Sec ausschalten ?", vbYesNo)
If X = vbYes Then
Timer1.Interval = 10000
Timer1.Enabled = True
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2&
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal -1&
End Sub
'---------- Ende Formular "Form1" alias Form1.frm ----------
'-------------- Ende Projektdatei Project1.vbp --------------
Quelle: http://www.activevb.de/tipps/vb6tipps/tipp0048.html
Ob es Vista bzw. Windows 7 tauglich ist, kann ich nicht sagen.
