Sluk computeren

Jeg er lige med på en lytter :-)

2 min

luk windows = C:\\WINDOWS\\RUNDLL.EXE user.exe,exitwindows

Jeg håber det bliver godt space!!

Jeg kan nemlig først teste det i morgen!.
På forhånd tak!!

Læs http://support.microsoft.com/support/kb/articles/Q234/2/16.ASP
RUNDLL.EXE user,ExitWindows -> Luk Windows
RUNDLL.EXE user,ExitWindowsExec -> Genstart Windows

Hvis du kører med netværk, skal man bruge Rundll32.exe shell32.dll,SHExitWindowsEx 13
Den slukker for computeren, selv om der er brugere tilsluttet netværket.

Tak hvis det virker!! - makse

makse>> var lig ved at finde den med restart *G*

Her er en VB source fil, der laver shutdown mm.
http://vbindex.virtualave.net/page/downloads/shutdown.zip

Hvad angår Wave spørgsmålet. Er det også i VB?

Ja Ja Da, men jeg har downloadet et modul til at spille musik og gøre det lysere og mørkere, men der var ikke noget i modulet til at save den wave fil man har gjort noget ved så jeg håber på et godt svar.

Add this code to a from containing a button named cmdForceShutdown


Option Explicit


      Private Type LUID

        UsedPart As Long
        IgnoredForNowHigh32BitPart As Long
      End Type

      Private Type TOKEN_PRIVILEGES
        PrivilegeCount As Long
        TheLuid As LUID
        Attributes As Long
      End Type

      \' Beginning of Code
      Private Const EWX_SHUTDOWN As Long = 1
      Private Const EWX_FORCE As Long = 4
      Private Const EWX_REBOOT = 2

      Private Declare Function ExitWindowsEx Lib \"user32\" ( _
        ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

      Private Declare Function GetCurrentProcess Lib \"kernel32\" () As Long
      Private Declare Function OpenProcessToken Lib \"advapi32\" ( _
        ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, _
        TokenHandle As Long) As Long
      Private Declare Function LookupPrivilegeValue Lib \"advapi32\" _
        Alias \"LookupPrivilegeValueA\" (ByVal lpSystemName As String, _
        ByVal lpName As String, lpLuid As LUID) As Long
      Private Declare Function AdjustTokenPrivileges Lib \"advapi32\" ( _
        ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, _
        NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, _
        PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
      Private Sub AdjustToken()

        Const TOKEN_ADJUST_PRIVILEGES = &H20
        Const TOKEN_QUERY = &H8
        Const SE_PRIVILEGE_ENABLED = &H2
        Dim hdlProcessHandle As Long
        Dim hdlTokenHandle As Long
        Dim tmpLuid As LUID
        Dim tkp As TOKEN_PRIVILEGES
        Dim tkpNewButIgnored As TOKEN_PRIVILEGES
        Dim lBufferNeeded As Long

        hdlProcessHandle = GetCurrentProcess()
        OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or _
            TOKEN_QUERY), hdlTokenHandle

        \' Get the LUID for shutdown privilege.
        LookupPrivilegeValue \"\", \"SeShutdownPrivilege\", tmpLuid

        tkp.PrivilegeCount = 1    \' One privilege to set
        tkp.TheLuid = tmpLuid
        tkp.Attributes = SE_PRIVILEGE_ENABLED

        \' Enable the shutdown privilege in the access token of this
        \' process.
        AdjustTokenPrivileges hdlTokenHandle, False, tkp, _
            Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded

      End Sub

      Private Sub cmdForceShutdown_Click()
        AdjustToken
       
        Dim Msg As String
        Msg = \"Your PC is about to be re-booted! \" & vbCrLf & vbCrLf
        Msg = Msg + \"You have about x seconds to save your work\"
        MsgBox Msg, vbCritical
       
        ExitWindowsEx (EWX_SHUTDOWN Or EWX_FORCE Or EWX_REBOOT), &HFFFF
      End Sub

Private Sub Form_GotFocus()
cmdForceShutdown_Click
End Sub

kan du bruge dette : http://support.microsoft.com/support/kb/articles/Q168/7/96.ASP?LN=EN-US&SD=gn&FR=0&qry=how%20to%20shut%20down%20windows&rnk=4&src=DHCS_MSPSS_gn_SRCH&SPR=VBB
(det hele ska med)

Hey du! Sådan genstarter du....

Enjoy!

- Webcrawler

\'Genstart Windows
\'Den øverste del skal i \"General Declarations\"
\'Resten til en knap

\'-----------------
Option Explicit
Private Declare Function ExitWindowsEx Lib \"user32\" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
\'-----------------
Private Sub Command1_Click()
ExitWindowsEx &H43, 0
End Sub

Tak!

Jeg skal bare først prøve det!

terry hvad fanden bruger du adjust token til??

xafion> does it work or not?

Det Webcrawler har skrevet, virker...

Thank you!