Nisam već duže vrijeme programirao u Visual Basicu, ali evo dio koda jednog mojeg programa:
Citiraj:
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const EWX_POWEROFF As Long = 8
Private Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub shutdown()
Dim X As Long
X = ExitWindowsEx(EX_SHUTDOWN, 0)
End Sub
|
Nadam se da će ti raditi.