[Code] Đóng mở CD-ROM

by **Admin** Mon Dec 17, 2012 2:57 am

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.