SkullBox Forum  |  Development  |  Basic si Fox  |  Topic: [VB6] Shutdown, logoff, restart and force shutdown

vorba aia pui 6 sau cate topicuri ai pus si la nici unu nu ai pus credits :

cool ... = zero

OffTopic : A pus si un modul, ceva cu generare de parole. N-am apucat sa raspund acolo ca eram putin ocupat cu mancarea (luase foc carnea :blush: )

On Topic: Zero_Cool daca erai baiat destept puteai sa faci tu un tutorial cu acest source-code, dar asa cum l-ai pus, intra un incepator si se uita la cod degeaba ca nu intelege nimic.

Anyway, trebuie 2 butoane:
Command1 si Command2
Pe Command1 scrieti Shut Down si pe Command2 scrieti Restart. Restul codului este pus de Zero_Cool.
That's all  :thright:

Ce se intampla in cazul in care procesul nu are privilegii de ShutDown? Din cate vad, doar apeleaza API-ul ExitWindows, deci daca nu are privilegii de ShutDown, nu o sa se intample nimic

Mda Shocker ai dreptate, nu l-am testat si nici nu m-am prea uitat peste el (probabil din cauza mancarii  :blush: ).
Anyway, cred ca o sa trebuiasca un modul.

Crezi gresit;)
Poti declara functia ca privata si nu ca globala

Dar nu este mai usor asa? :
-pentru logoff: shutdown -l
-pentru restart: shutdown -r
-pentru shutdown: shutdown -s

Daca cineva ruleaza shutdown -s, atunci in Run scrii shutdown -a pentru a inchide "operatia" !
Aceste comenzi pot fi executate cu Shell. Cred

Intr-adevar, se paote si asa. Ori faci asta prin intermediul Shell-ului, ori lansezi tu manual :Windowssystem32shutdown.exe -s.



Daca ai dat Shutdown -s / -r / -l, nu mai poti sa dai -a ca sa opresti deoarece odata inceputa shutdown-ul propriu-zis nu se mai pot rula aplicatii. -a poti sa il folosesti doar cand a inceput secventa de shutdown, "numaratoarea inversa"

La asta ma refeream si eu ^_^

SHUT DOWN AND RESTART IN VB6
       Const EWX_LogOff As Long = 0
       Const EWX_SHUTDOWN = 1
       Const EWX_REBOOT = 2
       Const EWX_FORCE = 4
       Private Declare Function ExitWindows _
               Lib "User32" Alias "ExitWindowsEx" _
               (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
     
     Private Sub Command1_Click()
 
          'Shut down windows
          ExitWindows EWX_SHUTDOWN, &HFFFFFFFF
      command1.enabled=true
     
     End Sub
     
     Private Sub Command2_Click()
     
         
          ExitWindows EWX_REBOOT, &HFFFFFFFF
     
      command2.enabled=true
     End Sub