Luk windows xp

Prøv denne (lægges i modul):

Private Declare Function apiExitWindowsEx Lib "user32" _
        Alias "ExitWindowsEx" _
        (ByVal uFlags As Long, ByVal dwReserved As Long) _
        As Long

Public Const EWX_FORCE = 4      'Forcibly terminates processes
                                'that do not respond.
Public Const EWX_LOGOFF = 0    'Terminates processes, then logs off.
Public Const EWX_SHUTDOWN = 1  'Powers the system off, if possible.
Public Const EWX_REBOOT = 2    'Reboots the system.

Function fTerminateWin(lngExitVal As Long)
    fTerminateWin = apiExitWindowsEx(lngExitVal, 0)
End Function


Bruges ved f.eks. at skrive:
Call fTerminateWin(EWX_SHUTDOWN)

/Thomas

>> thomasjepsen
Tak for hurtig svar. Men det virker desværre ikke. Jeg får Functions fejl.  :o)

hvor?

hvordan kalder du den? Hvis du kalder den fra en makro, skal du skrive:
fTerminateWin(4)

Prøv evt også nogle af de andre 3 værdier.

>> thomasjepsen
Når den håbber til denne sætning:
Private Declare Function apiExitWindowsEx Lib "user32" _
        Alias "ExitWindowsEx" _
        (ByVal uFlags As Long, ByVal dwReserved As Long) _
        As Long
:o)

>> thomasjepsen
Ved makro får jeg syntax fejl i visuel basic modulet.  :o)

Har lige testet den på min winXP og den virkede perfekt!!

Prøv at trykke Ctrl+G og tast:
Call fTerminateWin(EWX_SHUTDOWN)

>> thomasjepsen
Har prøvet:
Prøv at trykke Ctrl+G og tast:
Call fTerminateWin(EWX_SHUTDOWN)

Den ville jeg gerne havde tilsendt.
For ellers tror jeg mangler nogle refarancer.
:o)

koden bruger ingen referencer, så det kan ikke være det.

Men opdager lige, at jeg brugte parameteren EWX_FORCE (4) i stedet for EWX_SHUTDOWN (1).
EWX_FORCE sørger for at lukke alle processor, som måtte være igang. Har du prøvet denne også?

Det virker heller ikke.
Var du ked af at sende den som demo til:
oz1bua@wanadoo.dk
Ps. er ikke hjemme de næste par timer.

>> thomasjepsen

Den lukker stadig ikke windows ned. Den bringer den i samme tilstand som hvis jeg kørte filen Logoff.

Vh Henrik

henrik13>Vi andre har en tænd/sluk knap på vores PC, kan den ikke bruges o:)

>>terry
Har du læst hvad jeg skrev, for det er ikke min maskine det skal bruges på. Citat fra spørgsmålet:
Jeg skal bruge det til password til nogle maskiner.
Vh Henrik13

OK, her er en løsning :o)

Shell("shutdown.exe -s")

20 sekunder er default, for at ændre i det skal du bruge -t parameteren

Shell("shutdown.exe -s -t 2")

det er besvaret her http://www.eksperten.dk/spm/336630

det er der her også 17/07-2003 19:18:12 :o)

søge efter shutdown.exe i Windows Help

>>Terry
Det virker perfekt.
Vh Henrik

tak Henrik :o)

>>terry
Det er mig der takker