Mit dieser VBA-Routine wird der PC heruntergefahren:

Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal wReserved&)

 

 Global Const EWX_FORCE = 8

 Global Const EWX_LOGOFF = 0

 Global Const EWX_REBOOT = 2

 Global Const EWX_SHUTDOWN = 1

 

 Sub PC_Shutdown()

 Dim LResult

 LResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)

 End Sub

 

Wenn Sie das Makro PC_Shutdown auf eine Schaltfläche legen, benötigen Sie nur noch einen Klick zum Feierabend.

You have no rights to post comments