Programalama > VISUAL BASIC

'(sadece win xp için)

Shell "Shutdown.exe -s",vbMaximizeFocus
diğper parametreler
'-r - restart
'-l - logoff
'-f - force logoff

------------------------------------------------------------------------
(win 9x,win 2000)

Private declare function ExitWindowex lib "User32.dll" (byval dwOptions as long,
Byval DwReserved as long)

'adı cmdshutdown olan bit command button ekle

Private sub cmdShutdown_click()

  dim lng as long
  private const EWX_SHUTDOWN as long =1 
  
  lng = ExitWindowsEx(EWX_SHUTDOWN,0) 

End sub