Devil World

یه برنامه برای اعمال توپ در ویندوز

سه عدد OptionBox و یک عدد CommandButton

Private Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" _(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2

Public Sub Command1_Click()
if option(0).value = 1 then
ExitWindowsEx Ewx_logoff, 0&
elseif option(1).value = 1 then
ExitWindowsEx Ewx_Shutdown, 0&
elseif option(1).value = 1 then
ExitWindowsEx Ewx_Reboot, 0&
end if
End Sub