Jump to content

CDTray 1.0

monter

By monter,
in AutoIt Example Scripts

 Share

Recommended Posts

monter Wayfarer

monter

Posted
Posted (edited)

Hello again. I can't change the topic (version number). The current version of CDTray is 1.30.

I took seriously busysignal's comments and below is the result:

#cs
    Author: monter.FM
    Version: 1.30
    AutoItVer: 3.1.1.83
    AutoItForum: http://www.autoitscript.com/forum/index.php?showtopic=16588
    Description:
    Search for CD drive type and allows you to open/close drive tray.
#ce
#NoTrayIcon
Global Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_DEFBUTTON = 512
Global Const $GUI_SHOW = 16
Global Const $GUI_HIDE = 32
Global Const $GUI_ENABLE = 64
Global Const $GUI_DISABLE = 128
Global Const $GUI_FOCUS = 256
Global Const $GUI_CHECKED = 1
Global Const $GUI_UNCHECKED = 4
Global Const $SS_SUNKEN = 0x1000
Global Const $SS_CENTER = 1

$cds = DriveGetDrive("CDROM")
Dim $stan[1 + $cds[0]], $nazwa[1 + $cds[0]], $LBL_CD[1 + $cds[0]], $BT_CD[1 + $cds[0]], $ED_CD[1 + $cds[0]], $stat_Bt[1 + $cds[0]], $zmieNaz[1 + $cds[0]], $GR_CD[1 + $cds[0]], $CB_aOp[1 + $cds[0]], $CB_aCl[1 + $cds[0]], $aOpen[1 + $cds[0]], $aClose[1 + $cds[0]], $kon

If @Compiled Then
;$cdtv = StringFormat("%.2f", FileGetVersion(@ScriptFullPath))
    $cdtv = StringFormat("%.2f", Number(StringReplace(FileGetVersion(@ScriptFullPath), ".", "")) / 1000)
Else
    $cdtv = "1.30"
EndIf
$proDate = "14.10.2005"
If Not @error Then
    If Not FileExists(@ScriptDir & "CDTray.ini") Then;if .INI not found
        MakeIni()
        MakeLang()
    ElseIf Int(IniRead(@ScriptDir & "CDTray.ini", "CDTray", "v", "0") * 10) < Int($cdtv * 10) Then;delete .INI if older version
        For $nr = 1 To $cds[0]
            $nazwa[$nr] = IniRead(@ScriptDir & "CDTray.ini", "CD" & $nr, $cds[$nr], "CD" & $nr);preserving drive names and auto-exit delay for new .INI
            If StringLen($nazwa[$nr]) = 0 Then
                $nazwa[$nr] = "CD" & $nr
            EndIf
        Next
        $sek = IniRead(@ScriptDir & "CDTray.ini", "CDTray", "SecsToExit", "30")
        IniDelete(@ScriptDir & "CDTray.ini", "Txt");just deleting old .INI left old section (how is it possible?)
        FileDelete(@ScriptDir & "CDTray.ini")
        $lngDel = "english"
        For $i = 1 To 2
            If FileExists(@ScriptDir & "CDTray." & $lngDel & ".lng") Then;deleting any default (EN, PL) lang files
                FileDelete(@ScriptDir & "CDTray." & $lngDel & ".lng")
            EndIf
            $lngDel = "polski"
        Next
        
        MakeIni()
        MakeLang()
    EndIf
    For $nr = 1 To $cds[0];reading status and settings of each CD drive
        $stan[$nr] = IniRead(@ScriptDir & "CDTray.ini", "CD" & $nr, "Status", "Unknown")
        $nazwa[$nr] = IniRead(@ScriptDir & "CDTray.ini", "CD" & $nr, $cds[$nr], "CD" & $nr)
        $aOpen[$nr] = IniRead(@ScriptDir & "CDTray.ini", "CD" & $nr, "AutoOpen", "0")
        $aClose[$nr] = IniRead(@ScriptDir & "CDTray.ini", "CD" & $nr, "AutoClose", "1")
        If StringLen($nazwa[$nr]) = 0 Then
            $nazwa[$nr] = "CD" & $nr
        EndIf
    Next
    $sek = IniRead(@ScriptDir & "CDTray.ini", "CDTray", "SecsToExit", "30")
    $aExit = IniRead(@ScriptDir & "CDTray.ini", "CDTray", "AutoExit", "1")
    If Not FileExists(@ScriptDir & "CDTray.english.lng") Or Not FileExists(@ScriptDir & "CDTray.polski.lng") Then
        MakeLang()
    EndIf
    $lngFile = IniRead(@ScriptDir & "CDTray.ini", "CDTray", "CurrLangFile", "CDTray.english.lng")
    If Not FileExists(@ScriptDir & "" & $lngFile) Then $lngFile = @ScriptDir & "CDTray.english.lng"
    $lngFile = @ScriptDir & "" & $lngFile
    $lngRdSect = IniReadSectionNames($lngFile)
    $lng = $lngRdSect[1]
EndIf
$top = 42;space between CD drive rows


;ATTENTION!!!   *** Below you have to edit true path to file monter.FM.gif   ***
;---------
FileInstall("E:batchrobmonter.FM.gif", @TempDir & "", 1)
;FileInstall("C:windowspulpitmonterbatchrobmonter.FM.gif", @TempDir & "", 1)
;FileInstall("D:utilbatchrobmonter.FM.gif", @TempDir & "", 1)
;FileInstall("F:batchrobmonter.FM.gif", @TempDir & "", 1)
;---------

$CDTray = GUICreate("CDTray " & $cdtv, 245, 56+ ($cds[0] * $top));building GUI and controls
GUISetBkColor(0xADC5C5)
$GR_aOC = GUICtrlCreateGroup("  Auto - ", 181, 7, 62, 21+ ($cds[0] * $top))
$czas = $sek
$kon = GUICtrlCreateLabel($czas, 94, 6, 16, 16, $SS_SUNKEN + $SS_CENTER)
GUICtrlSetBkColor(-1, 0xE3FFFE)
GUICtrlSetColor($kon, 0x003399)
$start = TimerInit()
$status = GUICtrlCreateLabel("", 2, 38+ ($cds[0] * $top), 84, 16, $SS_SUNKEN + $SS_CENTER)
$CB_lng = GUICtrlCreateCombo("", 99, 33+ ($cds[0] * $top), 44, 108)
$zmCzas = GUICtrlCreateInput($sek, 93, 5, 37, 17)
GUICtrlSetLimit(-1, 2)
GUICtrlSetState($zmCzas, $GUI_HIDE)
$updn = GUICtrlCreateUpdown($zmCzas)
GUICtrlSetLimit(-1, 90, 6)
GUICtrlSetState($updn, $GUI_HIDE)
$LB_edlng = GUICtrlCreateLabel("E", 147, 38+ ($cds[0] * $top), 7, 10)
GUICtrlSetBkColor(-1, 0xEEEEEE)
GUICtrlSetFont($LB_edlng, 8, 300, -1, "Lucida Console")
If FileExists(@TempDir & "monter.FM.gif") Then;in case you forgot to edit FileInstall path :-)
    $monter = GUICtrlCreatePic(@TempDir & "monter.FM.gif", 177, 40+ ($cds[0] * $top), 64, 14)
Else
    $monter = GUICtrlCreateLabel("monter.FM", 192, 40+ ($cds[0] * $top), 64, 14)
EndIf
ReadLang();we're going to read our language items
$CB_aX = GUICtrlCreateCheckbox($aX, 4, 4, 74)
GUICtrlSetTip($CB_aX, $tipaEx)
$LB_aX2 = GUICtrlCreateLabel($aX2, 79, 7, 13)
$LB_aX3 = GUICtrlCreateLabel($aX3, 114, 7, 24)
$LB_kon = GUICtrlSetTip($kon, $tipsec)
$TP_lng = GUICtrlSetTip($CB_lng, $tipLng)
$TP_edlng = GUICtrlSetTip($LB_edlng, $tipedLng)
$ustCzas = GUICtrlCreateButton($btSet, 132, 5, 40, 17)
$mtrTip = GUICtrlSetTip($monter, $tipAbt)
GUICtrlSetState($ustCzas, $GUI_HIDE)
AutoExitF();Auto-exit func

For $nr = 1 To $cds[0]
    If $stan[$nr] = "closed" Then;checking state of CD (opened or closed) and display proper label on the button
        $stat_Bt[$nr] = $btOpen
    Else
        $stat_Bt[$nr] = $btClose
    EndIf
    $LBL_CD[$nr] = GUICtrlCreateLabel("[" & $cds[$nr] & "]", 5, -4+ ($nr * $top))
    $ED_CD[$nr] = GUICtrlCreateInput($nazwa[$nr], 24, -6+ ($nr * $top), 97, 21)
    GUICtrlSetTip(-1, $tipdrv)
    GUICtrlSetBkColor($ED_CD[$nr], 0xE3FFFE)
    GUICtrlSetColor($ED_CD[$nr], 0x003399)
    $BT_CD[$nr] = GUICtrlCreateButton($stat_Bt[$nr], 126, -8+ ($nr * $top), 51, 25)
    $CB_aOp[$nr] = GUICtrlCreateCheckbox($aOp, 186, -14+ ($nr * $top), 54)
    GUICtrlSetTip(-1, $tipaOp)
    $CB_aCl[$nr] = GUICtrlCreateCheckbox($aCl, 186, 3+ ($nr * $top), 54)
    GUICtrlSetTip(-1, $tipaCl)
    $GR_CD[$nr] = GUICtrlCreateGroup("", 2, -22+ ($nr * $top), 241, 50)
    AutoOpenF();checking Auto-open func (opening CD tray during launching program)
    AutoCloseF();checking Auto-close tray func
Next
GUICtrlSetState($BT_CD[1], $GUI_FOCUS)

GUISetState(@SW_SHOW)
For $nr = 1 To $cds[0]
    If $aOpen[$nr] = 1 Then
        $staTxt = $stOpen & " [" & $cds[$nr] & "] ..."
        $opcl = "open"
        $stanIni = "opened"
        $stat_Bt[$nr] = $btClose
        GUICtrlSetData($status, $staTxt);displaying status (opening or closing)
        GUICtrlSetBkColor($status, 0xF9E8A5)
        CDTray($cds[$nr], $opcl); Yeah babe, here is the exactly what this script is for, I hope :-)
        $start = TimerInit();reset auto-exit delay - we have once more xx secs to act
        IniWrite(@ScriptDir & "CDTray.ini", "CD" & $nr, "Status", $stanIni);to remember the last state of drive
        GUICtrlSetData($status, "")
        GUICtrlSetBkColor($status, 0xADC5C5)
        $stan[$nr] = IniRead(@ScriptDir & "CDTray.ini", "CD" & $nr, "Status", "Unknown")
        GUICtrlSetData($BT_CD[$nr], $stat_Bt[$nr])
    EndIf
Next
If $aExit = 1 Then AdlibEnable("PozCzas")

While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then
        Koniec()
        Exit
    EndIf
    If $msg = $kon Then;going to set auto-exit delay
        OpcjaCzas()
    EndIf
    If $msg = $ustCzas Then;confirmation of setting auto-exit delay
        UstawCzas()
        GUICtrlSetState($BT_CD[1], $GUI_FOCUS)
    EndIf
    If $msg = $CB_aX And GUICtrlGetState($ustCzas) <> $GUI_SHOW + $GUI_ENABLE Then
        If $aExit = 1 Then;switching Auto-Exit function (disable/enable)
            $aExit = 0
        Else
            $aExit = 1
        EndIf
        AutoExitF()
        GUICtrlSetState($BT_CD[1], $GUI_FOCUS)
    EndIf
    For $nr = 1 To $cds[0]
        If $msg = $BT_CD[$nr] Then
            $start = TimerInit()
            ButClck();in case when we click Open/Close button
            GUICtrlSetState($BT_CD[1], $GUI_FOCUS)
        ElseIf $msg = $CB_aOp[$nr] Then
            If $aOpen[$nr] = 1 Then
                $aOpen[$nr] = 0
            Else
                $aOpen[$nr] = 1
            EndIf
            AutoOpenF()
            GUICtrlSetState($BT_CD[1], $GUI_FOCUS)
        ElseIf $msg = $CB_aCl[$nr] Then
            If $aClose[$nr] = 1 Then
                $aClose[$nr] = 0
            Else
                $aClose[$nr] = 1
            EndIf
            AutoCloseF()
            GUICtrlSetState($BT_CD[1], $GUI_FOCUS)
        EndIf
    Next
    If $msg = $CB_lng Then;when we wanna change the language
        $start = TimerInit()
        $chsnLng = IniRead(@ScriptDir & "CDTray.ini", "Lang", GUICtrlRead($CB_lng), "CDTray.english.lng")
        IniWrite(@ScriptDir & "CDTray.ini", "CDTray", "CurrLangFile", $chsnLng)
        $lngFile = IniRead(@ScriptDir & "CDTray.ini", "CDTray", "CurrLangFile", "CDTray.english.lng")
        $lngFile = @ScriptDir & "" & $lngFile
        $lngRdSect = IniReadSectionNames($lngFile)
        $lng = $lngRdSect[1]
        ReadLang()
        RefreshGUI();we don't need to restart the program, result of switching language is immediate
    EndIf
    
    If $msg = $LB_edlng Then;you wanna localize program in your own language?_
        $start = TimerInit();_Don't forget to save it As... CDTray.YourLanguage.lng in @ScriptDir and name the section with short name (FR, DE, IT & so on...)
        Run("notepad.exe " & $lngFile)
        GUICtrlSetState($BT_CD[1], $GUI_FOCUS)
    EndIf
    
    If $msg = $monter Then;you'll see About info
        $start = TimerInit()
        $about = GUICreate($tipAbt & ":", 200, 80, -1, -1, -1, -1, $CDTray)
        GUISetBkColor(0xADC5C5)
        $au_w3 = GUICtrlCreateLabel("CDTray forum article", 28, 36)
        GUICtrlSetFont(-1, 9, 400, 4, "MS Sans Serif")
        GUICtrlSetColor(-1, 0x0000FF)
        GUICtrlSetCursor(-1, 0)
        GUICtrlSetTip(-1, "http://www.autoitscript.com/forum/index.php?showtopic=16588")
        $mtr_w3 = GUICtrlCreateLabel("monter.FM", 28, 58)
        GUICtrlSetFont(-1, 9, 400, 4, "MS Sans Serif")
        GUICtrlSetColor(-1, 0x0000FF)
        GUICtrlSetCursor(-1, 0)
        GUICtrlSetTip(-1, "http://monter.fm")
        $BT_abt = GUICtrlCreateButton("OK", 148, 49, 28, 22)
    ;MsgBox(64, $tipAbt & " CDTray:","CDTray ver. " & $cdtv & "  (" & $proDate & ")" & @CRLF & "Build with AutoIt ver. 3.1.1.83" & @CRLF & $au_w3 & @CRLF & $mtr_w3, 5)
        GUICtrlCreateLabel("CDTray ver. " & $cdtv & "  (" & $proDate & ")" & @CRLF & "Build with AutoIt ver. 3.1.1.83", 28, 4, 172, 24)
        GUISetState()
        
        While 1
            $msg = GUIGetMsg()
            
            If $msg = $GUI_EVENT_CLOSE Or $msg = $BT_abt Or $czas <= 1 Then
                $start = TimerInit()
                GUIDelete($about)
                GUICtrlSetState($BT_CD[1], $GUI_FOCUS)
                GUICtrlSetTip($monter, $tipAbt)
                ExitLoop
            EndIf
            
            If $msg = $au_w3 Then _Start("http://www.autoitscript.com/forum/index.php?showtopic=16588")
            If $msg = $mtr_w3 Then _Start("http://monter.fm")
            
        WEnd
        
    EndIf
    
WEnd
Exit

Func PozCzas();final countdown...
    $koniec = TimerDiff($start)
    $czas = Abs(Int((- ($sek * 1000) - 1000 + $koniec) / 1000))
    GUICtrlSetData($kon, $czas)
    If $czas >= 4 Then
        GUICtrlSetBkColor($kon, 0xE3FFFE)
    Else
        GUICtrlSetBkColor($kon, 0xFFCBB7)
    EndIf
    If $koniec > $sek * 1000 Then
        Koniec()
        Exit
    EndIf
EndFunc  ;==>PozCzas

Func AutoExitF()
    If $aExit = 0 Then
        GUICtrlSetState($CB_aX, $GUI_UNCHECKED)
        GUICtrlSetState($LB_aX2, $GUI_HIDE)
        GUICtrlSetState($LB_aX3, $GUI_HIDE)
        GUICtrlSetState($kon, $GUI_HIDE)
        AdlibDisable()
    Else
        GUICtrlSetState($CB_aX, $GUI_CHECKED)
        GUICtrlSetState($LB_aX2, $GUI_SHOW)
        GUICtrlSetState($LB_aX3, $GUI_SHOW)
        GUICtrlSetState($kon, $GUI_SHOW)
        $start = TimerInit()
        AdlibEnable("PozCzas")
    EndIf
    IniWrite(@ScriptDir & "CDTray.ini", "CDTray", "AutoExit", $aExit)
EndFunc  ;==>AutoExitF

Func AutoOpenF()
    If $aOpen[$nr] = 0 Then
        GUICtrlSetState($CB_aOp[$nr], $GUI_UNCHECKED)
    Else
        GUICtrlSetState($CB_aOp[$nr], $GUI_CHECKED)
    EndIf
    IniWrite(@ScriptDir & "CDTray.ini", "CD" & $nr, "AutoOpen", $aOpen[$nr])
    $start = TimerInit()
EndFunc  ;==>AutoOpenF

Func AutoCloseF()
    If $aClose[$nr] = 0 Then
        GUICtrlSetState($CB_aCl[$nr], $GUI_UNCHECKED)
    Else
        GUICtrlSetState($CB_aCl[$nr], $GUI_CHECKED)
    EndIf
    IniWrite(@ScriptDir & "CDTray.ini", "CD" & $nr, "AutoClose", $aClose[$nr])
    $start = TimerInit()
EndFunc  ;==>AutoCloseF

Func ButClck()
    If GUICtrlGetState($ustCzas) = $GUI_ENABLE + $GUI_SHOW Then
        GUICtrlSetState($ustCzas, $GUI_HIDE)
        GUICtrlSetState($zmCzas, $GUI_HIDE)
        GUICtrlSetState($updn, $GUI_HIDE)
        GUICtrlSetState($kon, $GUI_SHOW)
        GUICtrlSetState($LB_aX3, $GUI_SHOW)
        AdlibEnable("PozCzas")
    EndIf
    Select
        Case $stan[$nr] = "closed"
            $staTxt = $stOpen & " [" & $cds[$nr] & "] ..."
            $opcl = "open"
            $stanIni = "opened"
            $stat_Bt[$nr] = $btClose
        Case Else
            $staTxt = $stClose & " [" & $cds[$nr] & "] ..."
            $opcl = "close"
            $stanIni = "closed"
            $stat_Bt[$nr] = $btOpen
    EndSelect
    GUICtrlSetData($status, $staTxt)
    GUICtrlSetBkColor($status, 0xF9E8A5)
    CDTray($cds[$nr], $opcl)
    $start = TimerInit()
    IniWrite(@ScriptDir & "CDTray.ini", "CD" & $nr, "Status", $stanIni)
    GUICtrlSetData($status, "")
    GUICtrlSetBkColor($status, 0xADC5C5)
    $stan[$nr] = IniRead(@ScriptDir & "CDTray.ini", "CD" & $nr, "Status", "Unknown")
    GUICtrlSetData($BT_CD[$nr], $stat_Bt[$nr])
    GUICtrlSetState($BT_CD[1], $GUI_FOCUS)
EndFunc  ;==>ButClck

Func OpcjaCzas()
    AdlibDisable()
    GUICtrlSetState($CB_lng, $GUI_DISABLE)
    GUICtrlSetState($LB_edlng, $GUI_DISABLE)
    GUICtrlSetState($kon, $GUI_HIDE)
    GUICtrlSetState($LB_aX3, $GUI_HIDE)
    GUICtrlSetState($zmCzas, $GUI_SHOW)
    GUICtrlSetState($updn, $GUI_SHOW)
    GUICtrlSetState($ustCzas, $GUI_SHOW + $GUI_DEFBUTTON)
    
EndFunc  ;==>OpcjaCzas

Func UstawCzas()
    $sek = GUICtrlRead($zmCzas)
    Select
        Case $sek < 6
            $sek = 6
        Case $sek > 90
            $sek = 90
    EndSelect
    IniWrite(@ScriptDir & "CDTray.ini", "CDTray", "SecsToExit", $sek)
    GUICtrlSetState($zmCzas, $GUI_HIDE)
    GUICtrlSetState($updn, $GUI_HIDE)
    GUICtrlSetState($ustCzas, $GUI_HIDE)
    GUICtrlSetState($kon, $GUI_SHOW)
    GUICtrlSetState($LB_aX3, $GUI_SHOW)
    GUICtrlSetState($CB_lng, $GUI_ENABLE)
    GUICtrlSetState($LB_edlng, $GUI_ENABLE)
    AutoExitF()
    GUICtrlSetState($BT_CD[1], $GUI_FOCUS)
EndFunc  ;==>UstawCzas

Func ReadLang()
    $srchFLng = FileFindFirstFile(@ScriptDir & "CDTray.*.lng")
    If $srchFLng = -1 Then
        MsgBox(48, "Error", "No language files found. Restart the program.")
        MakeLang()
        Exit
    EndIf
    
    While 1
        $srchLng = FileFindNextFile($srchFLng);we're searching new language files (to find your own one)
        If @error Then ExitLoop
        $sLng = IniReadSectionNames(@ScriptDir & "" & $srchLng)
        IniWrite(@ScriptDir & "CDTray.ini", "Lang", $sLng[1], $srchLng)
        GUICtrlSetData($CB_lng, $sLng[1], $lng)
    WEnd
    
    $dLng = IniReadSection(@ScriptDir & "CDTray.ini", "Lang")
    If @error Then
        MsgBox(48, "Error", "Error occured, probably no INI file.")
    Else
        For $i = 1 To $dLng[0][0]
            If Not FileExists(@ScriptDir & "" & $dLng[$i][1]) Then
                IniDelete(@ScriptDir & "CDTray.ini", "Lang", $dLng[$i][0])
                $lng = "EN"
            EndIf
        Next
    EndIf
    
    Global $btOpen = IniRead($lngFile, $lng, "ButtonOpen", "Lang err.")
    Global $btClose = IniRead($lngFile, $lng, "ButtonClose", "Lang err.")
    Global $stOpen = IniRead($lngFile, $lng, "StatOpen", "Lang err.")
    Global $stClose = IniRead($lngFile, $lng, "StatClose", "Lang err.")
    Global $btSet = IniRead($lngFile, $lng, "ButtonSet", "Lang err.")
    Global $aX = IniRead($lngFile, $lng, "AutoExit", "Lang err.")
    Global $aX2 = IniRead($lngFile, $lng, "AutoExit2", "Lng")
    Global $aX3 = IniRead($lngFile, $lng, "AutoExit3", "err.")
    Global $aOp = IniRead($lngFile, $lng, "AutoOpen", "Lang err.")
    Global $aCl = IniRead($lngFile, $lng, "AutoClose", "Lang err.")
    Global $tipdrv = IniRead($lngFile, $lng, "DrvNameTip", "Lang err.: Please delete file CDTray.[YourLanguage].lng and restart program.")
    Global $tipsec = IniRead($lngFile, $lng, "SetSecTip", "Lang err.: Please delete file CDTray.[YourLanguage].lng and restart program.")
    Global $tipaEx = IniRead($lngFile, $lng, "AutoExitTip", "Lang err.: Please delete file CDTray.[YourLanguage].lng and restart program.")
    Global $tipaOp = IniRead($lngFile, $lng, "AutoOpenTip", "Lang err.: Please delete file CDTray.[YourLanguage].lng and restart program.")
    Global $tipaCl = IniRead($lngFile, $lng, "AutoCloseTip", "Lang err.: Please delete file CDTray.[YourLanguage].lng and restart program.")
    Global $tipLng = IniRead($lngFile, $lng, "ChooseLangTip", "Lang err.: Please delete file CDTray.[YourLanguage].lng and restart program.")
    Global $tipedLng = IniRead($lngFile, $lng, "EditLangTip", "Lang err.: Please delete file CDTray.[YourLanguage].lng and restart program.")
    Global $tipAbt = IniRead($lngFile, $lng, "About", "Lang err.: Please delete file CDTray.[YourLanguage].lng and restart program.")
    
EndFunc  ;==>ReadLang

Func RefreshGUI()
    For $nr = 1 To $cds[0]
        If $stan[$nr] = "closed" Then
            $stat_Bt[$nr] = $btOpen
        Else
            $stat_Bt[$nr] = $btClose
        EndIf
        GUICtrlSetTip($ED_CD[$nr], $tipdrv)
        GUICtrlSetData($CB_aOp[$nr], $aOp)
        GUICtrlSetTip($CB_aOp[$nr], $tipaOp)
        GUICtrlSetData($CB_aCl[$nr], $aCl)
        GUICtrlSetTip($CB_aCl[$nr], $tipaCl)
        GUICtrlSetData($BT_CD[$nr], $stat_Bt[$nr])
    Next
    GUICtrlSetData($ustCzas, $btSet)
    GUICtrlSetData($CB_aX, $aX)
    GUICtrlSetData($LB_aX2, $aX2)
    GUICtrlSetData($LB_aX3, $aX3)
    GUICtrlSetData($CB_lng, $lng)
    GUICtrlSetTip($CB_aX, $tipaEx)
    GUICtrlSetTip($kon, $tipsec)
    GUICtrlSetTip($CB_lng, $tipLng)
    GUICtrlSetTip($LB_edlng, $tipedLng)
    GUICtrlSetTip($monter, $tipAbt)
    GUICtrlSetState($BT_CD[1], $GUI_FOCUS)
EndFunc  ;==>RefreshGUI

Func MakeIni()
    If StringInStr("0415", @OSLang) Then
        $lang = "polski"
    Else
        $lang = "english"
    EndIf
    IniWrite(@ScriptDir & "CDTray.ini", "CDTray", "v", $cdtv)
    If IsDeclared("sek") Then
        IniWrite(@ScriptDir & "CDTray.ini", "CDTray", "SecsToExit", $sek)
    Else
        IniWrite(@ScriptDir & "CDTray.ini", "CDTray", "SecsToExit", "30")
    EndIf
    IniWrite(@ScriptDir & "CDTray.ini", "CDTray", "CurrLangFile", "CDTray." & $lang & ".lng")
    IniWrite(@ScriptDir & "CDTray.ini", "CDTray", "AutoExit", "1")
    IniWrite(@ScriptDir & "CDTray.ini", "Lang", "EN", "CDTray.english.lng")
    IniWrite(@ScriptDir & "CDTray.ini", "Lang", "PL", "CDTray.polski.lng")
    For $nr = 1 To $cds[0]
        If IsDeclared("nazwa[$nr]") Or $nazwa[$nr] <> "CD" & $nr Then
            IniWrite(@ScriptDir & "CDTray.ini", "CD" & $nr, $cds[$nr], $nazwa[$nr])
        Else
            IniWrite(@ScriptDir & "CDTray.ini", "CD" & $nr, $cds[$nr], "CD" & $nr)
        EndIf
        IniWrite(@ScriptDir & "CDTray.ini", "CD" & $nr, "Status", "closed")
        IniWrite(@ScriptDir & "CDTray.ini", "CD" & $nr, "AutoOpen", "0")
        IniWrite(@ScriptDir & "CDTray.ini", "CD" & $nr, "AutoClose", "1")
    Next
EndFunc  ;==>MakeIni

Func MakeLang()
    $lngFile = "CDTray.english.lng"
    $lngFile = @ScriptDir & "" & $lngFile
    $lng = "EN"
    $btOpen = "Open"
    $btClose = "Close"
    $stOpen = "Opening"
    $stClose = "Closing"
    $btSet = "Set"
    $aX = "Auto-e&xit"
    $aX2 = "in"
    $aX3 = "sec."
    $aOp = "open"
    $aCl = "close"
    $tipdrv = "You can edit the name of this drive."
    $tipsec = "Change auto-exit delay (6-90 sec.)"
    $tipaEx = "Checked 'Auto-exit' exits the program automatically after defined delay."
    $tipaOp = "Checked 'Auto-open' opens the tray of this drive by launching program."
    $tipaCl = "Checked 'Auto-close' closes the tray of this drive during exiting program."
    $tipLng = "Choose language"
    $tipedLng = "Edit current language file"
    $tipAbt = "About"
    
    $lFl = FileOpen($lngFile, 2)
    FileWriteLine($lFl, "#cs" & @CRLF & "Author: monter.FM" & @CRLF & "CDTray ver." & $cdtv & @CRLF & "Description: Search for CD drive type and allows you to open/close drive tray." & @CRLF & "Language File: You can make localization language file by yourself, according to this file." & @CRLF & "AutoItVer: 3.1.1.83" & @CRLF & "AutoItForum: http://www.autoitscript.com/forum/index.php?showtopic=16588" & @CRLF & "#ce")
    FileClose($lFl)
    For $i = 1 To 2
        IniWrite($lngFile, $lng, "ButtonOpen", $btOpen)
        IniWrite($lngFile, $lng, "ButtonClose", $btClose)
        IniWrite($lngFile, $lng, "StatOpen", $stOpen)
        IniWrite($lngFile, $lng, "StatClose", $stClose)
        IniWrite($lngFile, $lng, "ButtonSet", $btSet)
        IniWrite($lngFile, $lng, "AutoExit", $aX)
        IniWrite($lngFile, $lng, "AutoExit2", $aX2)
        IniWrite($lngFile, $lng, "AutoExit3", $aX3)
        IniWrite($lngFile, $lng, "AutoOpen", $aOp)
        IniWrite($lngFile, $lng, "AutoClose", $aCl)
        IniWrite($lngFile, $lng, "DrvNameTip", $tipdrv)
        IniWrite($lngFile, $lng, "SetSecTip", $tipsec)
        IniWrite($lngFile, $lng, "AutoExitTip", $tipaEx)
        IniWrite($lngFile, $lng, "AutoOpenTip", $tipaOp)
        IniWrite($lngFile, $lng, "AutoCloseTip", $tipaCl)
        IniWrite($lngFile, $lng, "ChooseLangTip", $tipLng)
        IniWrite($lngFile, $lng, "EditLangTip", $tipedLng)
        IniWrite($lngFile, $lng, "About", $tipAbt)
        $lngFile = "CDTray.polski.lng"
        $lng = "PL"
        $btOpen = "Otwórz"
        $btClose = "Zamknij"
        $stOpen = "Otwieram"
        $stClose = "Zamykam"
        $btSet = "Ustaw"
        $aX = "Autoza&koń."
        $aX2 = "za"
        $aX3 = "s"
        $aOp = "otwier."
        $aCl = "zamyk."
        $tipdrv = "Możesz zmienić nazwę tego napędu."
        $tipsec = "Zmień czas autozakończenia (6-90 s)"
        $tipaEx = "Zaptaszkowane 'Autozakończenie' kończy pracę programu po podanym czasie."
        $tipaOp = "Zaptaszkowane 'Auto-otwieranie' powoduje wysunięcie tacki tego napędu po otwarciu programu."
        $tipaCl = "Zaptaszkowane 'Auto-zamykanie' zamyka tackę tego napędu podczas kończenia programu."
        $tipLng = "Wybierz język"
        $tipedLng = "Edytuj bieżący plik językowy"
        $tipAbt = "O programie"
    Next
    
EndFunc  ;==>MakeLang

Func _Start($s_StartPath);stolen from Rob Saunders' script
    $start = TimerInit()
    If @OSTYPE = 'WIN32_NT' Then
        $s_StartStr = @ComSpec & ' /c start "" '
    Else
        $s_StartStr = @ComSpec & ' /c start '
    EndIf
    Run($s_StartStr & $s_StartPath, '', @SW_HIDE)
EndFunc  ;==>_Start

Func Koniec();in a moment CDTray will quit
    If GUICtrlGetState($ustCzas) = $GUI_ENABLE + $GUI_SHOW Then
        GUICtrlSetState($ustCzas, $GUI_HIDE)
        GUICtrlSetState($zmCzas, $GUI_HIDE)
        GUICtrlSetState($updn, $GUI_HIDE)
        AdlibEnable("PozCzas")
    EndIf
    For $nr = 1 To $cds[0]
        $zmieNaz[$nr] = GUICtrlRead($ED_CD[$nr])
        If $aClose[$nr] = 1 Then
            $staTxt = $stClose & " [" & $cds[$nr] & "] ..."
            $opcl = "close"
            $stanIni = "closed"
            GUICtrlSetData($status, $staTxt)
            GUICtrlSetBkColor($status, 0xF9E8A5)
            CDTray($cds[$nr], $opcl)
            IniWrite(@ScriptDir & "CDTray.ini", "CD" & $nr, "Status", $stanIni)
        EndIf
        IniWrite(@ScriptDir & "CDTray.ini", "CD" & $nr, $cds[$nr], $zmieNaz[$nr])
        IniWrite(@ScriptDir & "CDTray.ini", "CDTray", "v", $cdtv)
    Next
    If FileExists(@TempDir & "monter.FM.gif") Then;cleaning @TempDir (size does matter, even 468 bytes :-))
        FileDelete(@TempDir & "monter.FM.gif")
    EndIf
EndFunc  ;==>Koniec

So, that's a bit extended script with CDTray open/close function :-)

This script is my first experience with GUI programming. Till now I coded few scripts with 4dos/Take Command32 interpreter.

P.S. I managed myself with expanding combo problem (that was in 1.20).

P.S. 2 If anti-virus program discovered a trojan, you can download compiled the same version (1.30) with newer AutoIt3 as version 1.31 here:

http://monter.homeip.net/skrypty/bin/CDTray.exe

Edited by monter

monter.FM [font="Tahoma;"]Full programs:[/font][font="'Microsoft Sans Serif';"] LogOnOff - keeps alive user session, after set time it performs logoff (instead of locking [acronym="Personal Computer"]PC[/acronym], useful in some corporations working with [acronym="Active Directory"]AD[/acronym]).[/font] ČharCönvěr - character set converter. [font="'Microsoft Sans Serif';"]CDTray - automated opening/closing the [acronym="Compact Disc"]CD[/acronym] tray.[/font] [font="'Microsoft Sans Serif';"]Example scripts: [/font][font="'Microsoft Sans Serif';"]RecentFolders - managing recently used folder list with combobox.[/font] [font="'Microsoft Sans Serif';"]AutoUpdater - periodic auto-checking, auto-updating and auto-relaunching newest script version.[/font] Changed host from monter.homeip.net to monter.homenet.org - replace address in my scripts to get back them to work.

Link to comment
Share on other sites
monter Wayfarer

monter

Posted
  • Author
Posted

no source, no click.

http://www.autoitscript.com/fileman/users/public/monter/CDTray.au3

monter.FM [font="Tahoma;"]Full programs:[/font][font="'Microsoft Sans Serif';"] LogOnOff - keeps alive user session, after set time it performs logoff (instead of locking [acronym="Personal Computer"]PC[/acronym], useful in some corporations working with [acronym="Active Directory"]AD[/acronym]).[/font] ČharCönvěr - character set converter. [font="'Microsoft Sans Serif';"]CDTray - automated opening/closing the [acronym="Compact Disc"]CD[/acronym] tray.[/font] [font="'Microsoft Sans Serif';"]Example scripts: [/font][font="'Microsoft Sans Serif';"]RecentFolders - managing recently used folder list with combobox.[/font] [font="'Microsoft Sans Serif';"]AutoUpdater - periodic auto-checking, auto-updating and auto-relaunching newest script version.[/font] Changed host from monter.homeip.net to monter.homenet.org - replace address in my scripts to get back them to work.

Link to comment
Share on other sites
monter Wayfarer

monter

Posted
  • Author
Posted

CDTray 1.1 - fixed and updated.

CDTray.au3

monter.FM [font="Tahoma;"]Full programs:[/font][font="'Microsoft Sans Serif';"] LogOnOff - keeps alive user session, after set time it performs logoff (instead of locking [acronym="Personal Computer"]PC[/acronym], useful in some corporations working with [acronym="Active Directory"]AD[/acronym]).[/font] ČharCönvěr - character set converter. [font="'Microsoft Sans Serif';"]CDTray - automated opening/closing the [acronym="Compact Disc"]CD[/acronym] tray.[/font] [font="'Microsoft Sans Serif';"]Example scripts: [/font][font="'Microsoft Sans Serif';"]RecentFolders - managing recently used folder list with combobox.[/font] [font="'Microsoft Sans Serif';"]AutoUpdater - periodic auto-checking, auto-updating and auto-relaunching newest script version.[/font] Changed host from monter.homeip.net to monter.homenet.org - replace address in my scripts to get back them to work.

Link to comment
Share on other sites
busysignal Universalist

busysignal

Posted
Posted

monter, tried out your newest version and your script is really interesting.

Suggestions:

1) Update your first post and add your updated code there. When you add a new version just post a message telling them to reference the first post so there is just one place to look for your code.

2) To personalize your scripts, add:

#cs

Author: monter

Version: 1.10

AutoItVer: 3.1.1.80

AutoItForum: http://www.autoitscript.com/forum/index.php?showtopic=16588

Description:

Search for CD drive type and allows you to open drive tray.

#ce

3) You might want to create Language files. I noticed in your MakeIni() function you test for the @OSLang. At that point you can read in your language variables. This might make your future scripts more flexible in language flexability.

4) Add function comments.

I like your use of the {.INI} file in your script. Very nicely implemented. I just found that by clicking on the count down timer it pops-up a window to set the time-out value. That is pretty cool. Keep up the coding..

Cheers.. ;)

Link to comment
Share on other sites
jefhal Universalist

jefhal

Posted
Posted

I wrote my first script. It opens/closes the CD tray

First, congratulations on your first script! It looks like you know how to carry through on a problem.

However, in the case of the end result, it would have been a lot easier to use the AutoIT function CDTray which does this:

CDTray

--------------------------------------------------------------------------------

Opens or closes the CD tray.

CDTray ( "drive", "status" )

;)
...by the way, it's pronounced: "JIF"... Bob Berry --- inventor of the GIF format
Link to comment
Share on other sites
busysignal Universalist

busysignal

Posted
Posted

First, congratulations on your first script! It looks like you know how to carry through on a problem.

However, in the case of the end result, it would have been a lot easier to use the AutoIT function CDTray which does this:

;)

You just want to take the fun out of this post. :mad2: *LOL*

Cheers.. :P

Link to comment
Share on other sites
monter Wayfarer

monter

Posted
  • Author
Posted (edited) 

(...)
Clickable version in attachement.

Binary: CDTray.exe 1.30 on monter.FM

[Edit: Apr 10. 2010] I don't know why avast! Antivirus discovers my binary CDTray.exe as Trojan.

CDTray.au3

Edited by monter

monter.FM [font="Tahoma;"]Full programs:[/font][font="'Microsoft Sans Serif';"] LogOnOff - keeps alive user session, after set time it performs logoff (instead of locking [acronym="Personal Computer"]PC[/acronym], useful in some corporations working with [acronym="Active Directory"]AD[/acronym]).[/font] ČharCönvěr - character set converter. [font="'Microsoft Sans Serif';"]CDTray - automated opening/closing the [acronym="Compact Disc"]CD[/acronym] tray.[/font] [font="'Microsoft Sans Serif';"]Example scripts: [/font][font="'Microsoft Sans Serif';"]RecentFolders - managing recently used folder list with combobox.[/font] [font="'Microsoft Sans Serif';"]AutoUpdater - periodic auto-checking, auto-updating and auto-relaunching newest script version.[/font] Changed host from monter.homeip.net to monter.homenet.org - replace address in my scripts to get back them to work.

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...