Latest topics
» [Code] Kiểm tra kết nối mạngby jameseshell Fri Jul 31, 2015 3:29 pm
» AutoClick không chiếm chuột
by jameseshell Fri Jul 31, 2015 9:58 am
» [Sorf] Connect/Disconet Button
by thanhhan31 Fri Jun 26, 2015 3:56 am
» Giới thiệu ngôn ngữ lập trình Autoit
by vanhoa1402 Mon Jun 08, 2015 12:40 am
» [Code] Đếm ngược thời gian
by satoh290801 Sat Jun 06, 2015 10:11 am
» Debug game online
by cheater Mon Jun 01, 2015 3:15 pm
» [Thắc Mắc] cách nhập xuất dữ liệu
by cadilacst Mon Apr 27, 2015 7:14 am
» [Code] Auto Win 2c6f td1 - sv HN
by Hades Wed Jan 14, 2015 5:41 am
» [Hỏi] AutoIt với CSDL online?
by todzin Wed Nov 19, 2014 11:14 pm
» [Hỏi] Một số vấn đề về Copy & Paste file bằng ứng dụng thứ 3 (Everything.exe)
by aloatiso Tue Nov 11, 2014 10:31 pm
» Click theo điểm ảnh !
by nhatdaica055 Wed Oct 15, 2014 5:17 pm
» Nội quy diễn đàn
by lethusinh01 Fri Sep 12, 2014 3:59 am
» Hide Windows !!!
by Sweetsica Fri Aug 08, 2014 2:31 am
» Cài đặt , sử dụng và biên dịch Autoit
by mankichi Thu Jul 24, 2014 5:11 am
» Tuyển mod cho diễn đàn
by huynhlamid Fri Jan 17, 2014 3:36 pm
» PixelSearch - Quét (hay kiểm tra) điểm ảnh
by vanthang Fri Jan 17, 2014 5:49 am
» Thiệp Cực Đẹp Tặng Người Yêu !!!
by Nokia3G Mon Dec 23, 2013 12:50 pm
» Lấy đường dẫn của phần mềm chạy ngầm
by cuongkoken Sat Dec 21, 2013 1:25 am
» Xin Admin giup do
by xlove_bmt Wed Dec 18, 2013 6:40 am
» [Hỏi] Cần pro chỉ làm trainer game!
by quytucaca Wed May 29, 2013 7:43 am
[Soft] Hẹn giờ tắt máy
Trang 1 trong tổng số 1 trang
[Soft] Hẹn giờ tắt máy
- 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
Similar topics
» [Soft] Mã hóa file
» [Soft] Hẹn giờ tắt máy đơn giản
» [Soft] Mã hóa file text
» [Soft] PC-WH 1.1 - Tiệc ích máy tính
» [Soft] FaceBook Enable
» [Soft] Hẹn giờ tắt máy đơn giản
» [Soft] Mã hóa file text
» [Soft] PC-WH 1.1 - Tiệc ích máy tính
» [Soft] FaceBook Enable
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|