fork download
  1. Public Module ShutdownTest
  2.  
  3. ' Đây là hàm API dùng để thoát khỏi Windows.
  4. Private Declare Function ExitWindowsEx Lib "user32" _
  5. (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
  6. ' Kiểu liệt kê này giữ các hằng liên quan.
  7.  
  8. Private Enum ExitWindowsFlags
  9.  
  10. ' Sử dụng hằng này để đăng xuất mà không khởi động lại.
  11.  
  12. Logoff = 0
  13.  
  14. ' Sử dụng hằng này để khởi động lại hệ thống.
  15.  
  16. Reboot = 2
  17.  
  18. ' Sử dụng hằng này để tắt hệ thống
  19. ' (và tắt máy tính, nếu phần cứng hỗ trợ).
  20.  
  21. Shutdown = 1
  22.  
  23. ' Sử dụng hằng này để buộc hệ thống tắt hay
  24. ' khởi động lại (ngay cả khi người dùng đã hủy bỏ nó).
  25. Force = 4
  26. End Enum
  27.  
  28. Public Sub Main()
  29. ExitWindowsEx(ExitWindowsFlags.Logoff, 0&)
  30. End Sub
  31. End Module
Runtime error #stdin #stdout 0.07s 15936KB
stdin
Standard input is empty
stdout
Standard output is empty