phuonghong1997
Yêu THVBA như điếu đổ
Không biết em lấy được code này ở đâu, thấy dùng khá tốt để tự động tắt máy tính. Ví dụ 17h ra bắt thang máy thì đông nhân viên.
Có thể hẹn giờ 16h50 sau 10 phút nữa thì tự tắt máy, đủng đỉnh ra thang máy đón thang về trước.
Có thể hẹn giờ 16h50 sau 10 phút nữa thì tự tắt máy, đủng đỉnh ra thang máy đón thang về trước.
Mã:
Declare Function ExitWindowsEx& Lib "user32" _
(ByVal uFlags&, ByVal wReserved&)
'//constants needed to exit Windows
Global Const EWX_LOGOFF = 0
Global Const EWX_SHUTDOWN = 1
Global Const EWX_REBOOT = 2
Global Const EWX_FORCE = 4
'*******************SHUT DOWN*********************
Sub TurnOffXP()
'shutdown.exe will NOT work on Windows 95, 98, 98 SE and ME
ActiveWorkbook.Save
Application.DisplayAlerts = False
Application.Quit
'//shut down the computer
Shell "shutdown -s -t 1200", vbHide
End Sub