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
[Code] Đóng mở CD-ROM
Trang 1 trong tổng số 1 trang
[Code] Đóng mở CD-ROM
- Code:
#include <GUIConstantsEx.au3 >
#include <Constants.au3>
#include <ButtonConstants.au3>
#NoTrayIcon
Opt("TrayMenuMode", 1)
Opt('Guicloseonesc', 0)
;HotKeySet
HotKeySet("^+{PgUp}", "hien")
Func hien()
GUISetState(@SW_SHOW, $chinh)
EndFunc ;==>hien
HotKeySet("^+{PgDn}", "an")
Func an()
GUISetState(@SW_HIDE, $chinh)
TrayTip("Thông báo", "ChÆ°Æ¡ng trình Ä‘ang chạy" & @CRLF & "Ctrl + Shift + {Down} - Äóng/Mở ổ CD-Rom" & @CRLF & "Ctrl + Shift + {PgUp} - Hiện bảng Ä‘iá»u khiển" & @CRLF & "Ctrl + Shift + {PgDn} - Ẩn bảng Ä‘iá»u khiển" & @CRLF & "Ctrl + Shift + {End} - Thoát", 10, 1)
EndFunc ;==>an
HotKeySet("^+{End}", "thoat")
Func thoat()
$msg = GUIGetMsg()
$msg = $gui_event_close
EndFunc ;==>thoat
HotKeySet("^+{down}", "chuyendoi")
Func chuyendoi()
$msg = GUIGetMsg()
$msg = $dm
EndFunc ;==>chuyendoi
;GUI
$chinh = GUICreate("Open/Close CDRom", 310, 290)
GUISetBkColor(0x00ff00, $chinh)
GUISetIcon('shell32.dll', 295)
$label1 = GUICtrlCreateLabel('Open/Close CD-Rom', 37, 10, 280, 35)
GUICtrlSetFont(-1, 19, 400, 4, "Monotype Corsiva")
$dm = GUICtrlCreateButton("Mở", 118, 50, 70, 60)
GUICtrlSetFont($dm, 14, 400, -1, "MS Reference Sans Serif")
GUICtrlSetBkColor($dm, 0x8080FF)
$about = GUICtrlCreateButton("About", 10, 150, 60, 30)
GUICtrlSetBkColor($about, 0x00FFFF)
;Labels
GUICtrlCreateLabel("Sá» dụng các phÃm nóng sau đây :", 80, 120)
GUICtrlCreateLabel("Ctrl + Shift + {Down} - Äóng/Mở", 80, 135)
GUICtrlCreateLabel("Ctrl + Shift + {PgUp} - Hiện bảng Ä‘iá»u khiển", 80, 150)
GUICtrlCreateLabel("Ctrl + Shift + {PgDn} - Ẩn bảng Ä‘iá»u khiển", 80, 165)
GUICtrlCreateLabel("Ctrl + Shift + {End} - Thoát", 80, 180)
$gr = GUICtrlCreateGroup('', 10, 200, 230, 80)
$cb1 = GUICtrlCreateCheckbox('&Khởi động cùng Windows', 10, 195)
$rd1 = GUICtrlCreateRadio('&Tự động ẩn chương trình', 30, 215)
$rd2 = GUICtrlCreateRadio('&Chỉ ẩn xuống khay hệ thống', 30, 235)
$rd3 = GUICtrlCreateRadio('&Hiện bảng Ä‘iá»u khiển', 30, 255)
$ok = GUICtrlCreateButton('&OK', 250, 220, 50, 35)
GUICtrlSetBkColor($ok, 0x99FF00)
GUICtrlCreateLabel("Let's", 20, 60, 93, 50)
GUICtrlSetFont(-1, 30, 400, 12, "Poor Richard")
GUICtrlCreateLabel("Go!!!", 203, 60, 93, 50)
GUICtrlSetFont(-1, 30, 400, 12, "Poor Richard")
GUISetState(@SW_SHOW, $chinh)
;Drive and status
$drive = DriveGetDrive("CDRom")
$tt = GUICtrlRead($dm)
;Tray
$dk = TrayCreateItem("Bảng Ä‘iá»u khiển")
TrayItemSetState($dk, $tray_default)
TrayCreateItem("")
$tacgia = TrayCreateItem("About me")
TrayCreateItem("")
$thoat = TrayCreateItem("Thoát")
TraySetIcon('shell32.dll', 295)
TraySetState()
TraySetClick(8)
;Ẩn Down SystemTray khi khởi động
If $CMDLINE[0] > 0 And $CMDLINE[1] = "-Silent" Then
Sleep(1000)
GUISetState(@SW_HIDE, $chinh)
TrayTip( "Äã sẵn sà ng", 'Ấn Ctrl + Shift + {PgUp} để gá»i bảng Ä‘iá»u khiển' & @CRLF & 'Byeee ..................................', 10, 1)
Sleep(5000)
AutoItSetOption('trayiconhide', 1)
ElseIf $CMDLINE[0] > 0 And $CMDLINE[1] = "-Tray" Then
GUISetState(@SW_HIDE, $chinh)
TrayTip("Äã sẵn sà ng" , "Ctrl + Shift + {Down} - Äóng/Mở ổ CD-Rom" & @CRLF & "Ctrl + Shift + {PgUp} - Hiện bảng Ä‘iá»u khiển" & @CRLF & "Ctrl + Shift + {PgDn} - Ẩn bảng Ä‘iá»u khiển" & @CRLF & "Ctrl + Shift + {End} - Thoát", 10, 1)
Else
GUISetState(@SW_SHOW, $chinh)
EndIf; ===>Ket thuc
;Kiểm tra xem chương trình có đang chạy không
Func OnAutoItStart()
$list = ProcessList(@ScriptName)
If $list[0][0] > 1 Then
MsgBox(48, 'Thông báo', ' ChÆ°Æ¡ng trình Ä‘ang chạy' & @CRLF & 'Ấn tổ hợp phÃm Ctrl + Shift + {PgUp} để gá»i bảng Ä‘iá»u khiển')
Exit
EndIf
EndFunc; ===> Kết thúc.
;Äá»c trạng thái StartUp
If RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "CDRomDirect") = '"' & @ScriptFullPath & '"' & ' -Silent' Then
GUICtrlSetState($cb1, $gui_checked)
GUICtrlSetState($rd1, $gui_checked)
ElseIf RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "CDRomDirect") = '"' & @ScriptFullPath & '"' & ' -Tray' Then
GUICtrlSetState($cb1, $gui_checked)
GUICtrlSetState($rd2, $gui_checked)
ElseIf RegRead("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "CDRomDirect") = '"' & @ScriptFullPath & '"' Then
GUICtrlSetState($cb1, $gui_checked)
GUICtrlSetState($rd3, $gui_checked)
Else
GUICtrlSetState($cb1, $gui_unchecked)
GUICtrlSetState($rd1, $gui_disable)
GUICtrlSetState($rd2, $gui_disable)
GUICtrlSetState($rd3, $gui_disable)
EndIf
;Begin
While 1
$msg = GUIGetMsg()
$msg1 = TrayGetMsg()
Select
Case $msg1 = $dk
GUISetState(@SW_SHOWNORMAL, $chinh)
Case $msg = $gui_event_minimize
GUISetState(@SW_HIDE, $chinh)
TrayTip("Thông báo", "ChÆ°Æ¡ng trình Ä‘ang chạy" & @CRLF & "Ctrl + Shift + {Down} - Äóng/Mở ổ CD-Rom" & @CRLF & "Ctrl + Shift + {PgUp} - Hiện bảng Ä‘iá»u khiển" & @CRLF & "Ctrl + Shift + {PgDn} - Ẩn bảng Ä‘iá»u khiển" & @CRLF & "Ctrl + Shift + {End} - Thoát", 10, 1)
Case $msg = $gui_event_close Or $msg1 = $thoat
Exit
Case $msg = $dm And $tt = "Mở"
CDTray($drive[1], "open")
GUICtrlSetData($dm, "Äóng")
$tt = GUICtrlRead($dm)
Case $msg = $dm And $tt = "Äóng"
CDTray($drive[1], "closed")
GUICtrlSetData($dm, "Mở")
$tt = GUICtrlRead($dm)
Case $msg = $about Or $msg1 = $tacgia
MsgBox(64, "Lê Văn Thà nh", "Äây là phần má»m giúp các bạn có thể dá»… dà ng đóng/mở " & @CRLF & " ổ CDRom bằng việc sá» dụng các phÃm nóng." & @CRLF & " Chúc các bạn vui vẻ !" & @CRLF & @CRLF & 'Tác giả : Lê Văn Thà nh' & @CRLF & 'Lá»›p 12H, trÆ°á»ng THPT Ba Äình - Nga SÆ¡n - Thanh Hoá' & @CRLF & 'Email: forget_me_not_please@yahoo.com' & @CRLF & ' Admin: autoitviet.goin.to'&@CRLF & ' Mod của: Diendantinhoc.vn')
Case $msg = $cb1
$cb1status = GUICtrlRead($cb1)
If $cb1status = $gui_checked Then
GUICtrlSetState($rd1, $gui_enable)
GUICtrlSetState($rd1, $gui_checked)
GUICtrlSetState($rd2, $gui_enable)
GUICtrlSetState($rd3, $gui_enable)
Else
GUICtrlSetState($rd1, $gui_disable)
GUICtrlSetState($rd2, $gui_disable)
GUICtrlSetState($rd3, $gui_disable)
EndIf
Case $msg = $ok
$cb1status = GUICtrlRead($cb1)
$rd1status = GUICtrlRead($rd1)
$rd2status = GUICtrlRead($rd2)
$rd3status = GUICtrlRead($rd3)
If $cb1status = $gui_checked Then
If $rd1status = $gui_checked Then
RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "CDRomDirect", "REG_SZ", '"' & @ScriptFullPath & '"' & ' -Silent')
MsgBox(64, 'Thông báo', ' Äã được kÃch hoạt' & @CRLF & 'ChÆ°Æ¡ng trình sẽ ẩn khi khởi Ä‘á»™ng')
ElseIf $rd2status = $gui_checked Then
RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "CDRomDirect", "REG_SZ", '"' & @ScriptFullPath & '"' & ' -Tray')
MsgBox(64, 'Thông báo', ' Äã được kÃch hoạt' & @CRLF & 'ChÆ°Æ¡ng trình sẽ ẩn xuống khay hệ thống khi khởi Ä‘á»™ng')
ElseIf $rd3status = $gui_checked Then
RegWrite("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "CDRomDirect", "REG_SZ", '"' & @ScriptFullPath & '"')
MsgBox(64, 'Thông báo', ' Äã được kÃch hoạt' & @CRLF & 'ChÆ°Æ¡ng trình sẽ hiện bảng Ä‘iá»u khiển khi khởi dá»™ng')
EndIf
ElseIf $cb1status = $gui_unchecked Then
RegDelete("HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "CDRomDirect")
MsgBox(64, 'Thông báo', 'Äã bá» tá»± khởi Ä‘á»™ng')
EndIf
EndSelect
WEnd;======>End.
Similar topics
» Code tự động chụp ảnh màn hình máy tính
» [Code] Admin cho hỏi về code giao diện login
» TotalNewsExpress -Lấy tin nhanh tự động (Cập nhật từng phút)
» [Code] Đổi số ra chữ cái
» [Code] Lọc file
» [Code] Admin cho hỏi về code giao diện login
» TotalNewsExpress -Lấy tin nhanh tự động (Cập nhật từng phút)
» [Code] Đổi số ra chữ cái
» [Code] Lọc file
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
|
|