AW: Sperrung des Computers aufheben
23.06.2004 10:23:55
Erwin
Hallo Leute,
der Hintergrund meiner Frage ist:
der Rechner läuft immer und hat einen Bildschirmschoner. Zur Reaktivierung wird der Name des Benutzers und ein Kennwort benötigt.
Über den Taskplaner wird zu einer bestimmten Zeit Excel mit einer Datei geladen. Es läuft ein Auto-Open-Makro ab.
Das Programm wartet bei "PostMessage FindWindow..." auf die Reaktivierung des Computers, wenn der Bildschirmschoner eingerichtet wurde mit "Kennworteingabe bei Reaktivierung" ist die manuelle Eingabe des Benutzernamens und des Kennworts erforderlich.
Kurzes Beispiel:
Declare
Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName _
As String, ByVal lpWindowName As String) As Long
Declare
Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd _
As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Sub Auto_Open()
Beep 'Hinweis für den Programmstart
Shell ("c:\windows\notepad.exe") 'Start eines Programms, z.B. Notepad
wTitle = "Unbenannt - Editor" 'Fenstertitel des gestarteten Programms
'an dieser Stelle müßte aus VBA heraus die Sperrung des Computers aufgehoben werden
'Schließen des gestarteten Programms:
PostMessage FindWindow(vbNullString, wTitle), &H10, 0&, 0&
MsgBox "Fertig"
End Sub