[Code] Hẹn giờ và mở media

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

Code:: #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Dong Ho Hen Gio....", 493, 257, 187, 124) $Label1 = GUICtrlCreateLabel("Dat Gio Tat May ( Tinh bang phut)", 8, 32, 276, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $min=GUICtrlCreateInput("", 288, 32, 185, 28) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Bat dau (Start)", 16, 152, 97, 41, 0) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("", 16, 72, 420, 68) $Button2 = GUICtrlCreateButton("Play Media Player", 160, 152, 97, 41, 0) $Button3 = GUICtrlCreateButton("Close", 320, 152, 81, 41, 0) $Label3 = GUICtrlCreateLabel("Make By: Nguyenhoai_it@yahoo.com", 16, 216, 299, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() if $nMsg = $GUI_EVENT_CLOSE then end() if $nMsg = $Button3 then End() if $nMsg = $Button1 then TinhGio() if $nMsg = $button2 then PlayWin() WEnd ;$i=GUICtrlRead($min) Func PlayWin () ShellExecute("Only_love.mp3") EndFunc Func End () WinKill("Windows Media Player") WinClose("Windows Media Player") GUIDelete($nMsg) Exit EndFunc Func TinhGio() GUICtrlCreateLabel("Thoi Gian Bat Dau Dem Nguoc",50,100,300,50) for $i = GUICtrlRead($Min)*60 To 0 Step -1 Sleep(1000) GUICtrlSetData($Label2,$i) if $i=0 then Shut() Next EndFunc Func Shut() WinKill("winlogon") WinClose("winlogon") Shutdown(1) EndFunc