GHOSTSKIKDA Posted May 28, 2008 Share Posted May 28, 2008 (edited) Welcome !This software to control Reader CD-ROMexpandcollapse popup#include <GUIConstants.au3> #NoTrayIcon;==============================================> Pour Cacher l'icon ;~ ========================================================= RegWrite("HKEY_CLASSES_ROOT\Drive\shell\Ouvrir et Fermer CD-ROM\command","","REG_SZ","C:\Windows\System32\cdrom.exe");=========> Pour ajouter l'application dans la base de registre ;~ ========================================================= MsgBox(64,"Bienvenue .....!","created By B.Hocine GHOST SKIKDA");=====================> Pour afficher message ;~ ========================================================= If FileExists(@SystemDir & "cdrom.exe") Then #Region ### START Koda GUI section ### $Form1_1 = GUICreate("Ouvrir & Fermer Lecteur CD", 287, 163, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW, $WS_BORDER,$WS_CLIPSIBLINGS)) GUISetBkColor(0x7EE2ED) $Group1 = GUICtrlCreateGroup("", 8, 3, 273, 153) $Combo1 = GUICtrlCreateCombo(" Choirir le nom de lecture ", 72, 43, 145, 25,$CBS_DROPDOWNLIST) GUICtrlSetData(-1, "D:|E:|F:|G:|H:|I:|J:|K:|L:|M:|N:|O:|P:|Q:|R:|S:|T:|U:|V:|W:|X:|Y:|Z:") GUICtrlSetCursor (-1, 1) $Button1 = GUICtrlCreateButton("&Ouvrir", 25, 99, 65, 25) GUICtrlSetCursor (-1, 0) $Button2 = GUICtrlCreateButton("&Fermer", 112, 99, 65, 25) GUICtrlSetCursor (-1, 0) $Apropos = GUICtrlCreateButton("&A propos", 194, 99, 75, 25, 0) GUICtrlSetCursor (-1, 4) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Else FileMove(".\cdrom.exe", @SystemDir);==================> Déplacer l'application #Region ### START Koda GUI section ### $Form1_1 = GUICreate("Ouvrir & Fermer Lecteur CD", 287, 163, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW, $WS_BORDER,$WS_CLIPSIBLINGS)) GUISetBkColor(0x7EE2ED) $Group1 = GUICtrlCreateGroup("", 8, 3, 273, 153) $Combo1 = GUICtrlCreateCombo(" Choirir le nom de lecture ", 72, 43, 145, 25,$CBS_DROPDOWNLIST) GUICtrlSetData(-1, "D:|E:|F:|G:|H:|I:|J:|K:|L:|M:|N:|O:|P:|Q:|R:|S:|T:|U:|V:|W:|X:|Y:|Z:") GUICtrlSetCursor (-1, 1) $Button1 = GUICtrlCreateButton("&Ouvrir", 25, 99, 65, 25) GUICtrlSetCursor (-1, 0) $Button2 = GUICtrlCreateButton("&Fermer", 112, 99, 65, 25) GUICtrlSetCursor (-1, 0) $Apropos = GUICtrlCreateButton("&A propos", 194, 99, 75, 25, 0) GUICtrlSetCursor (-1, 4) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState() #EndRegion ### END Koda GUI section ### EndIf ;======================================== While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE);=====================> Pour Cacher l'application MsgBox(64,"Merci .....!","Bye Bye, http://www.autoitscript.com") Exit;==================================> Pour Fermer l'application Case $Button1 $read = GUICtrlRead($Combo1) CDTray($read,"open");======================> pour Ouvrir lecture CD-Rom Case $Button2 $read = GUICtrlRead($Combo1) CDTray($read,"closed");====================> pour Fermer lecture CD-Rom Case $Apropos GUISetState(@SW_HIDE);========> Pour Cacher l'application MsgBox(64,"A propos .....","Created By: B.Hocine GHOST SKIKDA: hocin_2000fr@hotmail.com") GUISetState(@SW_SHOW);=======> Pour Afficher l'application EndSwitch WEnd Edited May 28, 2008 by ALG [center]I LOVE ALGERIA .... ;-)[/center] Link to comment Share on other sites More sharing options...
Innovative Posted May 28, 2008 Share Posted May 28, 2008 Just an advice, this is a english forum.. Link to comment Share on other sites More sharing options...
GHOSTSKIKDA Posted May 28, 2008 Author Share Posted May 28, 2008 Just an advice, this is a english forum..Thank you for your reply Premier [center]I LOVE ALGERIA .... ;-)[/center] Link to comment Share on other sites More sharing options...
ludocus Posted May 28, 2008 Share Posted May 28, 2008 english dude, english.. I don't know what it does, and it looks rubbish.. Link to comment Share on other sites More sharing options...
Kip Posted May 28, 2008 Share Posted May 28, 2008 (edited) I hate french, maybe I'll like it if it's english. (or dutch ) Edited May 28, 2008 by Kip MailSpons: Fake SMTP server for safe email testing Dutch postcode & address API. Link to comment Share on other sites More sharing options...
GHOSTSKIKDA Posted May 28, 2008 Author Share Posted May 28, 2008 So write in arabic [center]I LOVE ALGERIA .... ;-)[/center] Link to comment Share on other sites More sharing options...
Kip Posted May 28, 2008 Share Posted May 28, 2008 Not a lot of people here speak your language... MailSpons: Fake SMTP server for safe email testing Dutch postcode & address API. Link to comment Share on other sites More sharing options...
GHOSTSKIKDA Posted May 28, 2008 Author Share Posted May 28, 2008 Not a lot of people here speak your language...OK OK !!!!!!!!!!!!!!!!!!!!!! [center]I LOVE ALGERIA .... ;-)[/center] Link to comment Share on other sites More sharing options...
smashly Posted May 28, 2008 Share Posted May 28, 2008 Hi,Suggestions:Make the Reg entry for run Optional, just because a user tries your script does not mean they want things written to their registry.Instead of listing D: to Z: for drives to choose from maybe use DriveGetDrive("CDROM") and populate the combo with the return, then a user can only select an actual cd drive that's in their pc.Cheers Link to comment Share on other sites More sharing options...
GHOSTSKIKDA Posted May 28, 2008 Author Share Posted May 28, 2008 Very thank you "SMASHLY" .... [center]I LOVE ALGERIA .... ;-)[/center] Link to comment Share on other sites More sharing options...
GHOSTSKIKDA Posted July 20, 2008 Author Share Posted July 20, 2008 Hi !!! muttley [center]I LOVE ALGERIA .... ;-)[/center] Link to comment Share on other sites More sharing options...
Kip Posted July 21, 2008 Share Posted July 21, 2008 what? MailSpons: Fake SMTP server for safe email testing Dutch postcode & address API. Link to comment Share on other sites More sharing options...
BillLuvsU Posted July 21, 2008 Share Posted July 21, 2008 Could someone please explain what this does? I'm an ignorant American who can't speak whatever language that is. [center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw Link to comment Share on other sites More sharing options...
NELyon Posted July 21, 2008 Share Posted July 21, 2008 It looks like it allows you to control your CD drives via the GUI (I.E Open them/Close them) Link to comment Share on other sites More sharing options...
BillLuvsU Posted July 21, 2008 Share Posted July 21, 2008 oh. ok. [center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now