PC herunterfahren

[Thomas]

Hallo,
weiß jemand einen Befehl, mit dem man den PC runterfahren kann?

[Fluid Byte]

Code: Alles auswählen

Procedure ExitWindows(Flags.l) 
   Protected tkp.TOKEN_PRIVILEGES 
   Protected tkpNewButIgnored.TOKEN_PRIVILEGES
       
   OpenProcessToken_(GetCurrentProcess_(),#TOKEN_ADJUST_PRIVILEGES | #TOKEN_QUERY,@hdlTokenHandle) 

   ; Get the LUID for shutdown privilege. 
   LookupPrivilegeValue_(0,"SeShutdownPrivilege",tkp\Privileges\Luid) 

   tkp\PrivilegeCount = 1    ; One privilege to set 
   tkp\Privileges\Attributes = #SE_PRIVILEGE_ENABLED   
    
   ; Enable the shutdown privilege in the access token of this process. 
   AdjustTokenPrivileges_(hdlTokenHandle,0,tkp,0,0,0) 
   
   ExitWindowsEx_(Flags,0)
EndProcedure 

ExitWindows(#EWX_SHUTDOWN)

[RSBasic]

@Fluid Byte
Warum so schwer?
Einfacher mit diesem Befehl:

Code: Alles auswählen

RunProgram("C:\Windows\System32\shutdown.exe","-s -t 0 -f","",0)

Für PB 3.30:

Code: Alles auswählen

RunProgram("C:\Windows\System32\shutdown.exe","-s -t 0 -f",0)

[Leonhard]

@Fluid Byte
Warum so schwer?
Einfacher mit diesem Befehl:

Code: Alles auswählen

RunProgram("C:\Windows\System32\shutdown.exe","-s -t 0 -f","",0)

Für PB 3.30:

Code: Alles auswählen

RunProgram("C:\Windows\System32\shutdown.exe","-s -t 0 -f",0)

Dies ist nur bei WinXP oder anderen NT-Versionen vorhanden. Win98 geht da nicht mit. Da funzt das mit der rundll.

[ts-soft]

Die Version von Fluid Byte ist die einzige, die auf jedem Windows-System
funktioniert. Bei allen anderen muß man vorher die Windows-Version
auswerten usw. Ist also nicht umständlich, sondern die sinnvollste Variante.

[winduff]

Eine Suche mit den Begriffen wie Shutdown; Shutdown.exe; Herunterfahren (o.Ä) hätte dir sehr schnell weitergeholfen.

Habe ich neulich auch kurz gebraucht, hatte das von Fluid im Nu gefunden.

[RSBasic]

@Leonhard & @ts-soft
Achso, habe nicht gewusst.

[Joel]

Also bei Windows 98 geht dass so:

Code: Alles auswählen

ExitWindowsEx_((#EWX_LOGOFF), 0)

Und bei zb. Win. XP musst du dass vorher aufrufen:

Code: Alles auswählen

Procedure Privilegien()
#EWX_LOGOFF = 0 
#EWX_SHUTDOWN = 1 
#EWX_REBOOT = 2 
#EWX_FORCE = 4 
#EWX_POWEROFF = 8 
#TOKEN_ADJUST_PRIVILEGES = 32    
#TOKEN_QUERY = 8                
#SE_PRIVILEGE_ENABLED = 2      
#ANYSIZE_ARRAY = 1 
#VER_PLATFORM_WIN32_NT = 2 
#SE_SHUTDOWN_NAME = "SeShutdownPrivilege" 

Structure MyLUID 
LowPart.l 
HighPart.l 
Attributes.l 
EndStructure 

Structure MyTOKEN 
PrivilegeCount.l 
LowPart.l 
HighPart.l 
Attributes.l 
EndStructure 

Global hdlProcessHandle.l 
Global hdlTokenHandle.l 
Global tmpLuid.MyLUID 
Global tkp.MyToken 
Global tkpNewButIgnored.MyToken 
Global lBufferNeeded.l 

hdlProcessHandle = GetCurrentProcess_() 

OpenProcessToken_(hdlProcessHandle, #TOKEN_ADJUST_PRIVILEGES | #TOKEN_QUERY, @hdlTokenHandle) 

; Get the LUID for shutdown privilege 
SysName.s = "" + Chr(0) 
Name.s = "SeShutdownPrivilege" + Chr(0) 
Erg.l = LookupPrivilegeValue_(SysName, Name, @tmpLuid) 

tmpLuid\Attributes = #SE_PRIVILEGE_ENABLED 
tkp\PrivilegeCount = 1 
tkp\LowPart = tmpLuid\LowPart 
tkp\HighPart = tmpLuid\HighPart 
tkp\Attributes = tmpLuid\Attributes 

; Enable the shutdown privilege in the access token of this process 
Erg.l = AdjustTokenPrivileges_(hdlTokenHandle, 0, @tkp, SizeOf(MyTOKEN), @tkpNewButIgnored, @lblBufferNeeded) 
EndProcedure 

Und dann kannst du in ExitWindows_Ex_() dass unten alles einsetzen:

Code: Alles auswählen

#EWX_LOGOFF = 0 
#EWX_SHUTDOWN = 1 
#EWX_REBOOT = 2 
#EWX_FORCE = 4 
#EWX_POWEROFF = 8

[Thomas]

ok, danke!
ich hoffe das reicht für's erste.

[ts-soft]

@Joel
Ist dasselbe wie von FluidByte, sowie von mir schon mehrfach gepostet. Nur
umständlicher, da in PB bereits vordefinierte Strukturen nochmals unter
anderem Namen definiert werden. Also einfach nur veralteter Code nach PB4
übersetzt

Die Rechte zum herunterfahren, die unter NT Systemen notwendig sind, kann
man auch unter Win9x anfordern, auch wenn nicht gebraucht, so brauch man
keine 2 Sourcen

PS: die globalen Variablen machen auch keinen Sinn