Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: wyłączanie kompa pod win xp
anonim




Typ: Nie zarejestrowany
wyłączanie kompa pod win xp

czy da sie jakos wyłączyć kompa pod win xp, bo takie cos tylko wylogowuje
x = ExitWindowsEx(EWX_FORCE, 0)

23-01-2004 23:37
  
hicks
raptor user



Typ: moderator
Postów: 279
Zarejestrowany: Apr 2003

Ale sie zdziwisz

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

x = ExitWindowsEx(EWX_SHUTDOWN, 0)

Powinno zadziałać...

[Post edytowany dnia 24-01-2004 13:27 przez hicks]


_____________________________________________
TLHW Clan member

24-01-2004 13:26
Pokaż profil hicks  Wyślij email do hicks   Odwiedź stronę hicks       2511367
anonim




Typ: Nie zarejestrowany

'no cos mi nie wychodzi, jestem cienki z Api
'wpisuje do modułu:

Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4

'a na formie pod buttonem:
Private Sub Command1_Click()
x = ExitWindowsEx(EWX_SHUTDOWN, 0)
End Sub
'x ma wartosc "0" i calosc nie dziala bo pewnie cos pokrecilem

24-01-2004 16:42
  
hicks
raptor user



Typ: moderator
Postów: 279
Zarejestrowany: Apr 2003

Spróbuj wywołać funkcje tak:
x=ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)


_____________________________________________
TLHW Clan member

25-01-2004 02:39
Pokaż profil hicks  Wyślij email do hicks   Odwiedź stronę hicks       2511367
anonim




Typ: Nie zarejestrowany

x=ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)'na takie cos żadnej reakcji ze strony systemu 

x = ExitWindowsEx(EWX_FORCE, 0)' to wylogowuje

x = ExitWindowsEx(EWX_LOGOFF , 0)'i to tez wylogowuje
oczywiscie dotyczy to win xp, pod win 98 raczej napewno wszystko dziala

25-01-2004 13:14
  
hicks
raptor user



Typ: moderator
Postów: 279
Zarejestrowany: Apr 2003

Hmm znalazłem coś takiego:
' Potrzebne: forma z 3 commandbuttonami i moduł
' W module
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const SE_PRIVILEGE_ENABLED = &H2
Private Const ANYSIZE_ARRAY = 1
Private Const VER_PLATFORM_WIN32_NT = 2
Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
Type LUID
    LowPart As Long
    HighPart As Long
End Type
Type LUID_AND_ATTRIBUTES
    pLuid As LUID
    Attributes As Long
End Type
Type TOKEN_PRIVILEGES
    PrivilegeCount As Long
    Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type
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 Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long

Public Function IsWinNT() As Boolean
    Dim myOS As OSVERSIONINFO
    myOS.dwOSVersionInfoSize = Len(myOS)
    GetVersionEx myOS
    IsWinNT = (myOS.dwPlatformId = VER_PLATFORM_WIN32_NT)
End Function

Private Sub EnableShutDown()
    Dim hProc As Long
    Dim hToken As Long
    Dim mLUID As LUID
    Dim mPriv As TOKEN_PRIVILEGES
    Dim mNewPriv As TOKEN_PRIVILEGES
    hProc = GetCurrentProcess()
    OpenProcessToken hProc, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken
    LookupPrivilegeValue "", "SeShutdownPrivilege", mLUID
    mPriv.PrivilegeCount = 1
    mPriv.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
    mPriv.Privileges(0).pLuid = mLUID

    AdjustTokenPrivileges hToken, False, mPriv, 4 + (12 * mPriv.PrivilegeCount), mNewPriv, 4 + (12 * mNewPriv.PrivilegeCount)
End Sub

Public Sub ShutDownNT(Force As Boolean)
    Dim ret As Long
    Dim Flags As Long
    Flags = EWX_SHUTDOWN
    If Force Then Flags = Flags + EWX_FORCE
    If IsWinNT Then EnableShutDown
    ExitWindowsEx Flags, 0
End Sub

Public Sub RebootNT(Force As Boolean)
    Dim ret As Long
    Dim Flags As Long
    Flags = EWX_REBOOT
    If Force Then Flags = Flags + EWX_FORCE
    If IsWinNT Then EnableShutDown
    ExitWindowsEx Flags, 0
End Sub

Public Sub LogOffNT(Force As Boolean)
    Dim ret As Long
    Dim Flags As Long
    Flags = EWX_LOGOFF
    If Force Then Flags = Flags + EWX_FORCE
    ExitWindowsEx Flags, 0
End Sub

' To do formy

Private Sub Command1_Click()
    LogOffNT True
End Sub
Private Sub Command2_Click()
    RebootNT True
End Sub
Private Sub Command3_Click()
    ShutDownNT True
End Sub
Private Sub Form_Load()
    Command1.Caption = "Wyloguj"
    Command2.Caption = "Reset"
    Command3.Caption = "Zamknij"
End Sub


_____________________________________________
TLHW Clan member

28-01-2004 15:57
Pokaż profil hicks  Wyślij email do hicks   Odwiedź stronę hicks       2511367
anonim




Typ: Nie zarejestrowany

dzieki hicks, kawał kodu, ale działa!!!

28-01-2004 21:25
  
paluch




Typ: neutral
Postów: 6
Zarejestrowany: Oct 2003
ATX

No tak, ale mam płyte ATX, a po kliknięciu na przycisk "zamknij" pojawia się okno "mozna bezpiecznie wylaczyc...", a zasialnie nie odlacza sie?Pozdr,
Paluch

29-01-2004 11:31
Pokaż profil paluch  Wyślij email do paluch   
Alternativ



Typ: neutral
Postów: 70
Zarejestrowany: Sep 2002

istnieje jeszcze coś takiego jak :

Shell ("shutdown.exe -s -f"

-s wyłącza kompa
-f zamyka bez pytania wszystkie programy

ale niestety jak to wypróbowałem to również zamyka system do pojawienia się monitu "można teraz bezpiecznie wyłączyć komputer" i kompa nie wyłącza...

Jakies sugestie??
Też by mi się przydało, aby komp się wyłączył....


Pozdrawiam!


_____________________________________________
SANTA!!

04-02-2004 17:07
Pokaż profil Alternativ  Wyślij email do Alternativ        2085428
anonim




Typ: Nie zarejestrowany

Private Declare Function ExitWindows Lib "user32"
Alias "ExitWindowsEx" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()
'Wyjscie z windows poprzez API
'Dostepne argumenty dwOptions:
'0 - Log Off - Wyloguj
'1 - ShutDown - Zamknij
'2 - Reboot - Zresetuj
'3 - Force - Zmus do zamkniecia
ExitWindows 1, &HFFFFFFFF 'Ta funkcja wylacza windows z opcja ShutDown
Unload Me
End Sub

tylko nie wiem czy dziala pod XP (nie mam mozliwosci sprawdzenia)

13-02-2004 23:55
  
Wszystkich odpowiedzi: 9 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1