[VB6] Shutdown del PC

[Fractals87]

Ciao a tutti
Qualche giorno fa ho scritto due righe di codice vb con un timer che allo scadere invocava una Shell("shutdown -s") per spegnere il computer ma da quando l'ho testato il compuer non mi si spegne piu o meglio arriva fino all'arresto di windows ma fisicamente la corrente non viene tolta. Voleve chiedere qual'è il codice appropriato per spegnere il computer? e gia che ci sono ne approfitto invocando quella shell cosa è successo al mio compuer ho fatto qualche danno nel registro di sistema?
grazie a tutti
ciao ciao

[bitshare]

Prova così:

Shell ("shutdown -s -t 0 -f")

Oppure, ancora meglio, utilizza le API di sistema così:

Dichiarazione in un modulo:
Private Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long


Nel form:

Dim usa As Long

usa=ExitWIndows(PARAMETRO)

Questi sono i parametri che puoi usare:

EWX_LOGOFF
EWX_SHUTDOWN
EWX_REBOOT
EWX_FORCE
EWX_POWEROFF
EWX_FORCEIFHUNG

ESEMPIO:

Dim usa As Long

private sub cmdSpegni_click()
usa=ExitWindowsEx(EWX_SHUTDOWN)
end sub

----------------------
Cmq non hai danneggiato nulla, la funzione shell avvia solo programmi, non modifica nulla...

Ti consiglio di utilizzare le API di sistema che vanno bene con tutti i sistemi winzozz.. (se sei sotto win98 la funzione shell(shutdown bla bla bla) non ti funzionerebbe poichè su windows98 sarebbe shell("C:\windows\rundll32.exe user,exitwindow") .....

Spero di essere stato chiaro.
Byez

[Fractals87]

piu che chiaro anzi ti ringrazio non sapevo che esisteva un'api apposta.. la implemento subito..
pero il fatto che adesso spegnendo il computer il modo tradizionale si blocca alla chiusura di windows e il problema si è rierificato da quando ho tesato per la prima volta la shell.. non so cosa puo essere successo.. ma forse ora sto divagando dall'argomento del forum
grazie ancora per la risposta