[Soft] Hẹn giờ tắt máy

by **Admin** Mon Dec 17, 2012 3:10 am

Code:: #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <EditConstants.au3> $n=0 $dem=1 $t=4 Global $hengiothat,$menuthua1,$menuthua2 FileInstall("D:\program autoit\image\p.jpg",@TempDir&"\l.jpg",0) opt("TrayMenuMode",1) Opt("TrayOnEventMode",1) Opt("GUIOnEventMode",1) $menu=TrayCreateMenu("Lựa chọn") $menu1=TrayCreateItem("") $about=TrayCreateItem("Thông tin") TrayCreateItem("") $thoat=TrayCreateItem("Thoát") $hien=TrayCreateItem("Hiện cửa sổ",$menu) TrayCreateItem("",$menu) $an=TrayCreateItem("Ẩn cửa sổ",$menu) $gui1=GUICreate("Alarm",200,230,-1,-1,$WS_CAPTION) TrayItemSetOnEvent($hien,"hien") TrayItemSetOnEvent($an,"an") TrayItemSetOnEvent($thoat,"thoat") TrayItemSetOnEvent($about,"about") $3=GUICtrlCreateLabel("Thời gian hiện tại.",55,10) $gio=GUICtrlCreateInput(@HOUR&" : "&@MIN&" : "&@SEC,40,30,120,30,$ES_READONLY) GUICtrlSetBkColor($gio,0xf0f4f9) GUICtrlSetState($gio,128) GUICtrlSetFont($gio,15) $1=GUICtrlCreateLabel("Thời gian cài đặt",50,80) $input=GUICtrlCreateInput("",30,100,140,"",1) $2=GUICtrlCreateLabel("Chú ý : Thời gian được tính bằng giây",10,130) $start=GUICtrlCreateButton("Bắt đầu",30,160,70) $maytinh=GUICtrlCreateButton("Cài đặt",100,160,70) $exit=GUICtrlCreateButton("Thoát",100,190,70) $ancuaso=GUICtrlCreateButton("Ẩn",30,190,70) GUISetState(@SW_SHOW) GUICreate(@SW_SHOW,$gui1) $gui2=GUICreate("",200,230,Default,Default,BitOR($WS_EX_MDICHILD,$WS_POPUP),Default,$gui1) GUISetState(@SW_HIDE,$gui2) GUICtrlCreateLabel("Lựa chọn hình thức",50,10) $shutdown=GUICtrlCreateRadio("Shutdown",20,30) $standby=GUICtrlCreateRadio("Stand By",110,30) $log=GUICtrlCreateRadio("Log off",20,50) $alarm=GUICtrlCreateRadio("Alarm",110,50) GUICtrlCreateLabel("Độ trong suốt",60,75) $trong=GUICtrlCreateSlider(10,90,170,20) GUICtrlSetLimit($trong,250,50) GUICtrlSetData($trong,250) GUICtrlSetState($alarm, $GUI_CHECKED) GUICtrlCreatePic(@TempDir&"\l.jpg",30,120,130,100) GUICtrlCreateGroup("",2,-4,195,232) GUICtrlSetOnEvent($exit,"thoat") GUICtrlSetOnEvent($maytinh,"hien1") GUICtrlSetOnEvent($ancuaso,"an") GUICtrlSetOnEvent($start,"start") GUICtrlSetOnEvent($shutdown,"t1") GUICtrlSetOnEvent($standby,"t2") GUICtrlSetOnEvent($log,"t3") GUICtrlSetOnEvent($alarm,"t4") $gui3=GUICreate("Time",130,30,@DesktopWidth-130,0,BitOR($WS_EX_MDICHILD,$WS_POPUP),Default,$gui1) GUISetState(@SW_HIDE,$gui3) WinSetOnTop($gui3,"",1) $xemgio=GUICtrlCreateInput("",0,0,130,30,1) GUICtrlSetFont($xemgio,16) GUICtrlSetState($xemgio,128) GUISetBkColor(0x000000,$gui3) while 1 $read=GUICtrlRead($trong) WinSetTrans($gui1,"",$read) $pos=WinGetPos($gui1) WinMove($gui2,"",$pos[0]+210,$pos[1]+30) GUICtrlSetData($gio,@HOUR&" : "&@MIN&" : "&@SEC) WEnd func hien() GUISetState(@SW_SHOW,$gui1) GUISetState(@SW_HIDE,$gui3) EndFunc func an() GUICtrlSetData($maytinh,"Cài đặt") GUISetState(@SW_HIDE,$gui2) GUISetState(@SW_HIDE,$gui1) GUISetState(@SW_HIDE,$gui3) EndFunc func thoat() Exit EndFunc func about() MsgBox(0,"About","Phần mềm được viết bời Plenter") EndFunc func hien1() while 1 if $dem=1 Then GUISetState(@SW_SHOW,$gui2) GUICtrlSetData($maytinh,"Đóng lại") $dem=0 ExitLoop EndIf if $dem=0 Then GUISetState(@SW_HIDE,$gui2) GUICtrlSetData($maytinh,"Cài đặt") $dem=1 ExitLoop EndIf WEnd EndFunc func start() TrayItemDelete($menu) TrayItemDelete($menu1) $menuthua1=TrayCreateItem("") $menuthua2=TrayCreateItem("Ẩn bảng thời gian") GUISetState(@SW_SHOW,$gui3) GUISetState(@SW_HIDE,$gui1) GUISetState(@SW_HIDE,$gui2) $hengiothat=GUICtrlRead($input) TrayItemSetOnEvent($menuthua2,"menuthua") gio() EndFunc func t1() $t=1 EndFunc func t2() $t=2 EndFunc func t3() $t=3 EndFunc func t4() $t=4 EndFunc func gio() Do $hengiothat=$hengiothat-1 sleep(1000) GUICtrlSetData($xemgio,$hengiothat) Until $hengiothat=0 if $hengiothat=0 then GUISetState(@SW_HIDE,$gui3) TrayItemDelete($menuthua1) TrayItemDelete($menuthua2) if $t= 1 then Shutdown(1) if $t= 2 then Shutdown(32) if $t= 3 then Shutdown(0) if $t= 4 then MsgBox(0,"Thông báo","Đến giờ rồi kia !!!") EndIf $menu1=TrayCreateItem("") $menu=TrayCreateMenu("Lựa chọn") $hien=TrayCreateItem("Hiện cửa sổ",$menu) TrayCreateItem("",$menu) $an=TrayCreateItem("Ẩn cửa sổ",$menu) TrayItemSetOnEvent($hien,"hien") TrayItemSetOnEvent($an,"an") EndFunc func menuthua() while 1 if $n=1 Then GUISetState(@SW_SHOW,$gui3) $n=0 TrayItemSetText($menuthua2,"Ẩn bảng thời gian") ExitLoop EndIf if $n=0 Then GUISetState(@SW_HIDE,$gui3) $n=1 TrayItemSetText($menuthua2,"Hiện bảng thời gian") ExitLoop EndIf WEnd EndFunc