Source Code tắt máy nhanh

Mình có một code tắt máy nhanh, chia sẻ cho mọi người, tool nhỏ, không có giao diện nên mình share code luôn, không up ảnh nữa nhé mọi người kiểm tra thử nhé.
Code này mình lượm lặt từ Admin của diễn đàn autoit.forumvi.

Mọi người có thể sửa lại code cho hay hơn và có giao diện hoàn chỉnh hơn để up lên cho những bạn khác tham khảo và up lại giao diện nhé !♥!

Mã (AutoIt):

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;Kết thúc thư viện

Opt("TrayMenuMode", 1)
TrayTip("Đang Khởi động", "Bạn đang khởi động chương trình tắt máy nhanh...", 20, 1)
$T=TrayCreateMenu("Thông tin")
$P=TrayCreateItem("Phần mềm", $T)
$Pb=TrayCreateItem("Phiên bản", $T)
TrayCreateItem("")
$E=TrayCreateItem("Thoát")




#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 50, 50, -1, -1, $WS_POPUP)
$Icon1 = GUICtrlCreateIcon("C:\Windows\System32\batt.dll", -1, 0, 0, 48, 48)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   $msg = TrayGetMsg()
   Switch $nMsg
     Case $Icon1
       Local $Hoi=  MsgBox(292, "Auto Shutdown", "Bạn có muốn tắt máy không?", "", $Form1)
       If $Hoi = 6 Then
         Shutdown(1)
       ElseIf $Hoi = 7 Then
         ContinueLoop
       EndIf


   EndSwitch
   Switch $msg
     Case $P
       TrayTip("Thông tin phần mềm", "Phần mềm được viết bởi Nguyễn Vũ Trường Giang" &@CRLF& _
       "thuộc website: autoit.forumvi.com", 60, 1)
       ContinueLoop
     Case $Pb
       TrayTip("Thông tin Phiên Bản", "Phiên bản hiện tại là: 1.0", 60, 1)
       ContinueLoop
     Case $E
       ExitLoop
   EndSwitch
WEnd

Nếu thấy vấn đề gì thì các bạn hãy comment góp ý nhá !
Nguồn: http://autoit.forumvi.com/

 

Nhớ lúc trước đi thi tin học trẻ có bạn làm cái này

 

Nếu làm cái tắt máy win server từ xa thì ok, thêm phần đăng nhập user, và IP máy server nữa