Beiträge von RR04

  • AVI switch ?

    Hi,

    zum Programmstart wird ein AVI-Video abgespielt. Doch nun soll nach Betätigung einer Taste ein anderes Video gezeigt werden. Die beiden Beispiele bringen mich nicht weiter, wie kann ich so etwas besser machen :?:?(

    Spoiler anzeigen
    [autoit]


    ; by Ritzelrocker04 ==> TEST_1.au3

    [/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $avi_RD = "RD.avi"
    $avi_RR04 = "RR04.avi"

    [/autoit] [autoit][/autoit] [autoit]

    $GUI = GUICreate("AVI-Switch", 315, 150, -1, 180, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    $gb_All = GUICtrlCreateGroup("", 8, 1, 300, 112)
    $avi1 = GUICtrlCreateAvi($avi_RD, -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
    ;GUICtrlSetState(-1,$avi_RD)
    $bn_Close = GUICtrlCreateButton("&Beenden", 229, 120, 75, 25, 0)
    $bn_OK = GUICtrlCreateButton("&OK", 149, 120, 75, 25, 0)
    GUICtrlSetState(-1,$GUI_DEFBUTTON)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()

    Select
    Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
    Exit
    Case $nMsg = $bn_OK
    GUICtrlSetState ($avi1, 0)
    $avi2 = GUICtrlCreateAvi($avi_RR04, -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
    ;GUICtrlSetState ($avi, 1)
    ;GUICtrlSetData($avi, $avi_RR04)

    EndSelect
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
    Spoiler anzeigen
    [autoit]


    ; by Ritzelrocker04 ==> TEST_2.au3

    [/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $avi_RD = "RD.avi"
    $avi_RR04 = "RR04.avi"

    [/autoit] [autoit][/autoit] [autoit]

    $GUI = GUICreate("AVI-Switch", 315, 150, -1, 180, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    $gb_All = GUICtrlCreateGroup("", 8, 1, 300, 112)
    $avi_1 = GUICtrlCreateAvi($avi_RD, -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
    ;$avi_2 = GUICtrlCreateAvi($avi_RD04, -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
    ;GUICtrlSetState($avi_2, 0)
    $bn_Close = GUICtrlCreateButton("&Beenden", 229, 120, 75, 25, 0)
    $bn_OK = GUICtrlCreateButton("&OK", 149, 120, 75, 25, 0)
    GUICtrlSetState(-1,$GUI_DEFBUTTON)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()

    Select
    Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
    Exit
    Case $nMsg = $bn_OK
    ;$avi = GUICtrlCreateAvi("RR04.avi", -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
    GUICtrlSetState ($avi_1, 0)
    $avi_2 = GUICtrlCreateAvi($avi_RD04, -1, 24, 10, 100, 100, $ACS_AUTOPLAY)
    EndSelect
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

    Danke

  • Progress & 7-Zip ?

    Hi,

    bei der Nutzung von 7-zip in der Kommandozeilen Version sieht man in der Dosbox den Fortschritt in Prozent.
    Kann man und wenn ja, wie, diese Prozentzahl auslesen um sie an ein Progress weiterleiten :?:?(

    Schönes WE und
    Danke

  • Radiobuttons

    Hi,

    etwa so hier, wie im Beispiel ;)

    Spoiler anzeigen
    [autoit]


    ; by Benjamin C. und Ritzelrocker04 ==> RDv2017.au3

    [/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $GUI = GUICreate("Running Disk v 2.0.17", 315, 150, -1, 180, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    $gb_All = GUICtrlCreateGroup("", 8, 1, 300, 112)
    $avi = GUICtrlCreateAvi("RDsys\RD.avi", -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
    $gb_EigeneDateien = GUICtrlCreateGroup("Eigene Dateien", 144, 13, 145, 90)
    $bn_Close = GUICtrlCreateButton("&Beenden", 229, 120, 75, 25, 0)
    $bn_OK = GUICtrlCreateButton("&OK", 149, 120, 75, 25, 0)
    GUICtrlSetState(-1,$GUI_DEFBUTTON)
    $rb_Sichern = GUICtrlCreateRadio("&sichern", 150, 40, 113, 17)
    GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
    $rb_SichernUaus = GUICtrlCreateRadio("&nach sichern den PC ausschalten", 150, 65, 113, 33, BitOR($BS_AUTORADIOBUTTON,$BS_MULTILINE))
    GUICtrlCreateGroup("", -99, -99, 1, 1)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    If $nMsg <> 0 Then
    $Sichern = GUICtrlRead($rb_Sichern)
    Select
    Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
    Exit
    Case $nMsg = $bn_OK
    If FileExists("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ") Then
    $ExistsFileWahl = MsgBox(32+4, "Löschen", 'Möchten Sie die bereits existierende Datei "EigeneDateien-0' & @WDAY & '.zip" löschen ? ')
    If $ExistsFileWahl = 6 Then
    FileDelete("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ")
    EndIf
    EndIf
    If $Sichern = 1 Then
    $_Userwahlsich = MsgBox(32+4, " Sichern", "Möchten Sie nach der Sicherung weiterarbeiten ? ")
    If $_Userwahlsich = 7 Then
    MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
    Exit
    EndIf
    $Methode = "Sichern"
    _SichernFunc1()
    MsgBox(64, " Sichern", " Sicherung abgeschlossen ! ")
    Exit
    Else
    $_Userwahlout = MsgBox(32+4, " Sichern & Ausschalten", "Möchten Sie nach der Sicherung den PC automatisch ausschalten ? ")
    If $_Userwahlout = 7 Then
    MsgBox(48, " Sichern & Ausschalten", " ...es wurden keine Daten gesichert ! ")
    Exit
    EndIf
    $Methode = "Sichern & Ausschalten"
    _SichernFunc1()
    Shutdown(9)
    EndIf
    ExitLoop
    EndSelect
    EndIf
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _SichernFunc1()

    RunWait(@ComSpec & ' /c ' & "RDsys\7za.exe a -tzip " & "E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip " & '"C:\Dokumente und Einstellungen\XP-Home\Eigene Dateien"',@ScriptDir ,@SW_MINIMIZE)
    $logfile = FileOpen("RDv2017.log", 1)

    If $logfile = -1 Then
    MsgBox(0, "Error", " Die Datei RDv2017.log konnte nicht geöffnet werden.", 3)
    Exit
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    FileWriteLine($logfile, "Letzte Sicherung (" & $Methode & ") der Eigenen Dateien am : " & @YEAR & "-" & @MON & "-" & @MDAY & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
    FileClose($logfile)
    SoundSetWaveVolume(50)
    SoundPlay("RDsys\Success.wav", 1)

    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

    Weiterhin viel Erfolg !

  • The Stick

    ist natürlich die Gängige. Beide Versionen, bitte nicht verwechseln :!::thumbup:
    PS: Zeile 77 = Dummy

    Spoiler anzeigen
    [autoit]


    ; by Ritzelrocker04 ==> USBv2204.au3

    [/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstants.au3>
    #include <String.au3>

    [/autoit] [autoit][/autoit] [autoit]

    ; Ziel
    Global $dest_LW = StringLeft(@MyDocumentsDir,2)
    ; Quelle
    Global $src_LW = StringLeft(@ScriptDir,2) & "\"

    [/autoit] [autoit][/autoit] [autoit]

    $uccess = "USBsound\Success.wav"

    [/autoit] [autoit][/autoit] [autoit]

    ; - Start - GUI
    $GUI = GUICreate(" USB v 2.2", 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
    GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $gb_Ziel = GUICtrlCreateGroup("", 64, 8, 225, 60)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $pg_Ziel = GUICtrlCreateProgress(75, 32, 195, 17)
    $bn_Pic = GUICtrlCreateButton("PicButton", 8, 14, 55, 55, $BS_BITMAP)
    GUICtrlSetImage (-1, "USBsys\images3.bmp", 22)
    $bn_Sichern = GUICtrlCreateButton("&Sichern", 126, 80, 75, 25, 0)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $bn_Close = GUICtrlCreateButton("&Beenden", 212, 80, 75, 25, 0)
    $bn_Autor = GUICtrlCreateButton("RR04", 2, 96, 30, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x808080)

    ; - The Stick - GUI
    $GUI_Stick = GUICreate(" The Stick", 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
    GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $tb_src_Total = GUICtrlCreateInput("", 8, 20, 140, 17, $ES_READONLY)
    $tb_src_Free = GUICtrlCreateInput("", 152, 20, 140, 17, $ES_READONLY)
    $tb_src_Belegt = GUICtrlCreateInput("", 8, 70, 140, 17, $ES_READONLY)
    $tb_src_Prozent = GUICtrlCreateInput("", 152, 70, 57, 17, $ES_READONLY)
    $pg_Quelle = GUICtrlCreateProgress(8, 45, 284, 17)
    $bn_Return = GUICtrlCreateButton("zurück", 212, 80, 75, 25, 0)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW, $GUI)

    [/autoit] [autoit][/autoit] [autoit]

    ; starten Func _LW_info()
    _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[1] ; window-handle
    Case $GUI
    Switch $msg[0] ; event/control-handle
    Case $bn_Pic
    GUISetState(@SW_HIDE, $GUI)
    GUISetState(@SW_SHOW, $GUI_Stick)
    Case $GUI_EVENT_CLOSE
    Exit
    Case $bn_Close
    Exit
    Case $bn_Autor
    $logfile = FileOpen("TheStick.log", 0) ; 0 = nur Lesemodus (read mode)
    If $logfile = -1 Then
    MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
    EndIf
    $line = FileReadLine($logfile)
    MsgBox(64, 'About', 'The Stick v 2.2.04 Build 2008-01-03/21 ' & @CRLF & '' & @CRLF & 'Copyright by : Ritzelrocker04 ' & @CRLF & 'Thx an das http://www.Autoit.de - Team ' & @CRLF & '' & @CRLF & 'Die letzte Sicherung war am : ' & @CRLF & $line)
    FileClose($logfile)
    Case $bn_Sichern
    If FileExists(@MyDocumentsDir & '\My Stick\USB-Stick-0' & @WDAY & '.zip') Then
    $ExistsFileWahl = MsgBox(32+4, "Löschen", 'Möchten Sie die bereits existierende Datei "USB-Stick-0' & @WDAY & '.zip" löschen ? ')
    If $ExistsFileWahl = 6 Then
    FileDelete(@MyDocumentsDir & '\My Stick\USB-Stick-0' & @WDAY & '.zip')
    EndIf
    EndIf
    $_Userwahlsich = MsgBox(32+4, " Sichern", "Sichern, möchten Sie fortfahren ? ")
    If $_Userwahlsich = 7 Then
    MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
    Exit
    EndIf
    MsgBox(48, " OK", "Simulation des Kopiervorgangs (Dummi, siehe Script-Zeile 77 & 78) ! ")
    ; ==> RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\My Stick\USB-Stick-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir, @SW_MINIMIZE)
    _LW_info() ; starten Func _LW_info()
    _Log_Write() ; starten Func _Log_Write()
    ;SoundSetWaveVolume(50) ; optional (50)Lautstärke in %
    SoundPlay($uccess, 1) ; 1 = Skript wartet, bis der Sound abgespielt ist.
    MsgBox(64, " Sicherung", " Sicherung abgeschlossen ! ")
    Exit
    EndSwitch
    Case $GUI_Stick
    Switch $msg[0]
    Case $bn_Return
    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_HIDE, $GUI_Stick)
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_HIDE, $GUI_Stick)
    EndSwitch
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    ; die Funktion _LW_info()
    Func _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    ; Quelle
    $VOL_Quelle = DriveGetLabel($src_LW)
    $TOTAL_Quelle = DriveSpaceTotal($src_LW)
    $FREE_Quelle = DriveSpaceFree($src_LW)
    $FREE_Quelle_Prozent = StringReplace(Round(($FREE_Quelle) / ($TOTAL_Quelle / 100), 0), ".", ",")
    $FREE_Quelle_MB = _StringAddComma(StringReplace(Round ($FREE_Quelle, 2), '.', ','), ".", ",")
    $Belegt_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle - $FREE_Quelle, 2), '.', ','), ".", ",")
    $TOTAL_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle, 2), '.', ','), ".", ",")
    $i_Progress_Quelle = StringReplace(Round(($TOTAL_Quelle - $FREE_Quelle) / ($TOTAL_Quelle / 100), 2), ".", ",")

    [/autoit] [autoit][/autoit] [autoit]

    ; Ziel
    $VOL_Ziel = DriveGetLabel($dest_LW)
    $TOTAL_Ziel = DriveSpaceTotal($dest_LW)
    $FREE_Ziel = DriveSpaceFree($dest_LW)
    $FREE_Ziel_Prozent = StringReplace(Round(($FREE_Ziel) / ($TOTAL_Ziel / 100), 0), ".", ",")
    $FREE_Ziel_MB = _StringAddComma(StringReplace(Round ($FREE_Ziel, 2), '.', ','), ".", ",")
    $i_Progress_Ziel = StringReplace(Round(($TOTAL_Ziel - $FREE_Ziel) / ($TOTAL_Ziel / 100), 2), ".", ",")

    [/autoit] [autoit][/autoit] [autoit]

    ; letzte Berechnungen und setzen der Ergebnisse
    ; Ziel
    GUICtrlSetData($pg_Ziel, $i_Progress_Ziel)
    GUICtrlSetData($gb_Ziel, "( " & $dest_LW & " )" & " = " & $FREE_Ziel_MB & " MB = " & $FREE_Ziel_Prozent & " % frei ")
    ; Quelle
    GUICtrlSetData($tb_src_Total, "Gesamt: " & $TOTAL_Quelle_MB & " MB")
    GUICtrlSetData($tb_src_Free, "Frei: " & $FREE_Quelle_MB & " MB")
    GUICtrlSetData($pg_Quelle, $i_Progress_Quelle)
    GUICtrlSetData($tb_src_Belegt, "Belegt: " & $Belegt_Quelle_MB & " MB")
    GUICtrlSetData($tb_src_Prozent, "Frei: " & $FREE_Quelle_Prozent & " %")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc ; ==> _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    ; die Funktion _Log_Write()
    Func _Log_Write()

    [/autoit] [autoit][/autoit] [autoit]

    $logfile = FileOpen("TheStick.log", 2) ;2 = Schreibmodus mit Löschen des vorherigen Inhaltes

    If $logfile = -1 Then
    MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
    Exit
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    FileWriteLine($logfile, @MDAY & "." & @MON & "." & @YEAR & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr ")
    FileClose($logfile)

    EndFunc ; ==> _Log_Write()

    [/autoit] [autoit][/autoit] [autoit][/autoit]

    Weiterhin viel Spaß !

  • The Stick

    gibt es auch noch :!::rolleyes:

    PS: Zeile 79 = Dummy

    Spoiler anzeigen
    [autoit]


    ; by Ritzelrocker04 ==> USBv2_112.au3

    [/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstants.au3>
    #include <String.au3>

    [/autoit] [autoit][/autoit] [autoit]

    ; Ziel
    Global $dest_LW = "E:"
    ; Quelle
    Global $src_LW = StringLeft(@ScriptDir,2) & "\"

    [/autoit] [autoit][/autoit] [autoit]

    $ComputerName = "Ritzelrocker04" ; Hier anpassen !
    $uccess = "USBsound\Success.wav"
    $orry = "USBsound\Sorry.wav"

    [/autoit] [autoit][/autoit] [autoit]

    $GUI = GUICreate(" USB v 2.1", 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
    GUICtrlCreatePic("USBskin\Blau41.jpg", 0, 0, 300, 115)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $gb_Ziel = GUICtrlCreateGroup("", 64, 8, 225, 60)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $pg_Ziel = GUICtrlCreateProgress(75, 32, 195, 17)
    $bn_Pic = GUICtrlCreateButton("PicButton", 8, 14, 55, 55, $BS_BITMAP)
    GUICtrlSetImage (-1, "USBsys\images3.bmp", 22)
    $bn_Sichern = GUICtrlCreateButton("&Sichern", 126, 80, 75, 25, 0)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $bn_Close = GUICtrlCreateButton("&Beenden", 212, 80, 75, 25, 0)
    $bn_Autor = GUICtrlCreateButton("RR04", 2, 96, 30, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x808080)

    ; Quelle - The Stick - GUI
    $GUI_Stick = GUICreate(" The Stick", 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
    GUICtrlCreatePic("USBskin\Blau41.jpg", 0, 0, 300, 115)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $tb_src_Total = GUICtrlCreateInput("", 8, 20, 140, 17, $ES_READONLY)
    $tb_src_Free = GUICtrlCreateInput("", 152, 20, 140, 17, $ES_READONLY)
    $tb_src_Belegt = GUICtrlCreateInput("", 8, 70, 140, 17, $ES_READONLY)
    $tb_src_Prozent = GUICtrlCreateInput("", 152, 70, 57, 17, $ES_READONLY)
    $pg_Quelle = GUICtrlCreateProgress(8, 45, 284, 17)
    $bn_Return = GUICtrlCreateButton("zurück", 212, 80, 75, 25, 0)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW, $GUI)

    [/autoit] [autoit][/autoit] [autoit]

    ; starten Func _LW_info()
    _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[1] ; window-handle
    Case $GUI
    Switch $msg[0] ; event/control-handle
    Case $bn_Pic
    GUISetState(@SW_HIDE, $GUI)
    GUISetState(@SW_SHOW, $GUI_Stick)
    Case $GUI_EVENT_CLOSE
    Exit
    Case $bn_Close
    Exit
    Case $bn_Autor
    $logfile = FileOpen("TheStick.log", 0) ; 0 = nur Lesemodus (read mode)
    If $logfile = -1 Then
    MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
    EndIf
    $line = FileReadLine($logfile)
    MsgBox(64, 'About', 'The Stick v 2.1.12 Build 2008-01-03/21 ' & @CRLF & '' & @CRLF & 'Copyright by : Ritzelrocker04 ' & @CRLF & 'Thx an das http://www.Autoit.de - Team ' & @CRLF & '' & @CRLF & 'Die letzte Sicherung war am : ' & @CRLF & $line)
    FileClose($logfile)
    Case $bn_Sichern
    If $ComputerName = @ComputerName Then
    If FileExists($dest_LW & "\$Backup$\$USB-SecurityStick$\USB-SecurityStick-0" & @WDAY & ".zip ") Then
    $ExistsFileWahl = MsgBox(32+4, "Löschen", 'Möchten Sie die bereits existierende Datei "USB-SecurityStick-0' & @WDAY & '.zip" löschen ? ')
    If $ExistsFileWahl = 6 Then
    FileDelete($dest_LW & "\$Backup$\$USB-SecurityStick$\USB-SecurityStick-0" & @WDAY & ".zip ")
    EndIf
    EndIf
    $_Userwahlsich = MsgBox(32+4, " Sichern", "Sichern, möchten Sie fortfahren ? ")
    If $_Userwahlsich = 7 Then
    MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
    Exit
    EndIf
    MsgBox(48, " OK", "Simulation des Kopiervorgangs (siehe Script-Dummi) ! ")
    ; ==> RunWait(@ComSpec & ' /c ' & "USBsys\7za.exe a -tzip " & $dest_LW & "\$Backup$\$USB-SecurityStick$\USB-SecurityStick-0" & @WDAY & ".zip " & '"\"',@ScriptDir ,@SW_MINIMIZE)
    _LW_info() ; starten Func _LW_info()
    _Log_Write() ; starten Func _Log_Write()
    ;SoundSetWaveVolume(50) ; optional (50)Lautstärke in %
    SoundPlay($uccess, 1) ; 1 = Skript wartet, bis der Sound abgespielt ist.
    MsgBox(64, " Sicherung", " Sicherung abgeschlossen ! ")
    Exit
    Else
    ;SoundSetWaveVolume(50) ; optional (50)Lautstärke in %
    SoundPlay($orry, 1) ; 1 = Skript wartet, bis der Sound abgespielt ist.
    MsgBox(16, " Sorry", "Falscher Computer - Sie haben keine Berechtigung ! ")
    EndIf
    EndSwitch
    Case $GUI_Stick
    Switch $msg[0]
    Case $bn_Return
    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_HIDE, $GUI_Stick)
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_HIDE, $GUI_Stick)
    EndSwitch
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    ; die Funktion _LW_info()
    Func _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    ; Quelle
    $VOL_Quelle = DriveGetLabel($src_LW)
    $TOTAL_Quelle = DriveSpaceTotal($src_LW)
    $FREE_Quelle = DriveSpaceFree($src_LW)
    $FREE_Quelle_Prozent = StringReplace(Round(($FREE_Quelle) / ($TOTAL_Quelle / 100), 0), ".", ",")
    $FREE_Quelle_MB = _StringAddComma(StringReplace(Round ($FREE_Quelle, 2), '.', ','), ".", ",")
    $Belegt_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle - $FREE_Quelle, 2), '.', ','), ".", ",")
    $TOTAL_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle, 2), '.', ','), ".", ",")
    $i_Progress_Quelle = StringReplace(Round(($TOTAL_Quelle - $FREE_Quelle) / ($TOTAL_Quelle / 100), 2), ".", ",")

    [/autoit] [autoit][/autoit] [autoit]

    ; Ziel
    $VOL_Ziel = DriveGetLabel($dest_LW)
    $TOTAL_Ziel = DriveSpaceTotal($dest_LW)
    $FREE_Ziel = DriveSpaceFree($dest_LW)
    $FREE_Ziel_Prozent = StringReplace(Round(($FREE_Ziel) / ($TOTAL_Ziel / 100), 0), ".", ",")
    $FREE_Ziel_MB = _StringAddComma(StringReplace(Round ($FREE_Ziel, 2), '.', ','), ".", ",")
    $i_Progress_Ziel = StringReplace(Round(($TOTAL_Ziel - $FREE_Ziel) / ($TOTAL_Ziel / 100), 2), ".", ",")

    [/autoit] [autoit][/autoit] [autoit]

    ; letzte Berechnungen und setzen der Ergebnisse
    ; Ziel
    GUICtrlSetData($pg_Ziel, $i_Progress_Ziel)
    GUICtrlSetData($gb_Ziel, "( " & $dest_LW & " )" & " = " & $FREE_Ziel_MB & " MB = " & $FREE_Ziel_Prozent & " % frei ")
    ; Quelle
    GUICtrlSetData($tb_src_Total, "Gesamt: " & $TOTAL_Quelle_MB & " MB")
    GUICtrlSetData($tb_src_Free, "Frei: " & $FREE_Quelle_MB & " MB")
    GUICtrlSetData($pg_Quelle, $i_Progress_Quelle)
    GUICtrlSetData($tb_src_Belegt, "Belegt: " & $Belegt_Quelle_MB & " MB")
    GUICtrlSetData($tb_src_Prozent, "Frei: " & $FREE_Quelle_Prozent & " %")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc ; ==> _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    ; die Funktion _Log_Write()
    Func _Log_Write()

    [/autoit] [autoit][/autoit] [autoit]

    $logfile = FileOpen("TheStick.log", 2) ;2 = Schreibmodus mit Löschen des vorherigen Inhaltes

    If $logfile = -1 Then
    MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
    Exit
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    FileWriteLine($logfile, @MDAY & "." & @MON & "." & @YEAR & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr ")
    FileClose($logfile)

    EndFunc ; ==> _Log_Write()

    [/autoit] [autoit][/autoit] [autoit][/autoit]

    Weiterhin viel Spaß !

  • RD Daten sichern

    bringt einige Neuerungen mit. :rolleyes:;)

    Spoiler anzeigen
    [autoit]


    ; by Benjamin C. und Ritzelrocker04 ==> RDv2017.au3

    [/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $GUI = GUICreate("Running Disk v 2.0.17", 315, 150, -1, 180, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
    $gb_All = GUICtrlCreateGroup("", 8, 1, 300, 112)
    $avi = GUICtrlCreateAvi("RDsys\RD.avi", -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
    $gb_EigeneDateien = GUICtrlCreateGroup("Eigene Dateien", 144, 13, 145, 90)
    $bn_Close = GUICtrlCreateButton("&Beenden", 229, 120, 75, 25, 0)
    $bn_OK = GUICtrlCreateButton("&OK", 149, 120, 75, 25, 0)
    GUICtrlSetState(-1,$GUI_DEFBUTTON)
    $rb_Sichern = GUICtrlCreateRadio("&sichern", 150, 40, 113, 17)
    GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
    $rb_SichernUaus = GUICtrlCreateRadio("&nach sichern den PC ausschalten", 150, 65, 113, 33, BitOR($BS_AUTORADIOBUTTON,$BS_MULTILINE))
    GUICtrlCreateGroup("", -99, -99, 1, 1)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    If $nMsg <> 0 Then
    $Sichern = GUICtrlRead($rb_Sichern)
    Select
    Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
    Exit
    Case $nMsg = $bn_OK
    If FileExists("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ") Then
    $ExistsFileWahl = MsgBox(32+4, "Löschen", 'Möchten Sie die bereits existierende Datei "EigeneDateien-0' & @WDAY & '.zip" löschen ? ')
    If $ExistsFileWahl = 6 Then
    FileDelete("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ")
    EndIf
    EndIf
    If $Sichern = 1 Then
    $_Userwahlsich = MsgBox(32+4, " Sichern", "Möchten Sie nach der Sicherung weiterarbeiten ? ")
    If $_Userwahlsich = 7 Then
    MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
    Exit
    EndIf
    $Methode = "Sichern"
    _SichernFunc1()
    MsgBox(64, " Sichern", " Sicherung abgeschlossen ! ")
    Exit
    Else
    $_Userwahlout = MsgBox(32+4, " Sichern & Ausschalten", "Möchten Sie nach der Sicherung den PC automatisch ausschalten ? ")
    If $_Userwahlout = 7 Then
    MsgBox(48, " Sichern & Ausschalten", " ...es wurden keine Daten gesichert ! ")
    Exit
    EndIf
    $Methode = "Sichern & Ausschalten"
    _SichernFunc1()
    Shutdown(9)
    EndIf
    ExitLoop
    EndSelect
    EndIf
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _SichernFunc1()

    RunWait(@ComSpec & ' /c ' & "RDsys\7za.exe a -tzip " & "E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip " & '"C:\Dokumente und Einstellungen\XP-Home\Eigene Dateien"',@ScriptDir ,@SW_MINIMIZE)
    $logfile = FileOpen("RDv2017.log", 1)

    If $logfile = -1 Then
    MsgBox(0, "Error", " Die Datei RDv2017.log konnte nicht geöffnet werden.", 3)
    Exit
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    FileWriteLine($logfile, "Letzte Sicherung (" & $Methode & ") der Eigenen Dateien am : " & @YEAR & "-" & @MON & "-" & @MDAY & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
    FileClose($logfile)
    SoundSetWaveVolume(50)
    SoundPlay("RDsys\Success.wav", 1)

    EndFunc

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]


    Schönes WE und weiterhin
    viel Spaß !

  • SB v X.0

    Hallo Progandy,

    Alles nach Version 3413_2008-18-01 zeigt dieses Verhalten, auch ein Austausch der Funktion brachte keine Abhilfe. ;(

    Schönes WE und weiterhin
    viel Erfolg !

  • SB v X.0

    Hi Oscar,

    in dieser und vorherigen Version kommt es zum springen des Ausgabefenster (fährt doppelt aus) beim Aufruf der Datenträger-Info. :?:

    War mir schon klar, denn mit zunehmendem Alter, fällt einem Alles viel schwerer (Scherz). :rofl:
    Nun feiert noch schön. :thumbup:

    Schönes WE und
    viel Erfolg !

  • The Stick

    geht es um Fehlerbereinigung. :rolleyes:

    Changelog

    0.Die GUIs werden nicht mehr überlagert.
    1.Die GUIs wechseln jetzt richtig zackig.
    2.Das Programm wird nicht mehr abgeschaltet, wenn die Logdatei fehlt.
    3.Logdatei wird selbst erstellt, wenn sie fehlt.

    Spoiler anzeigen
    [autoit]


    ; by Ritzelrocker04 ==> USBv22_031.au3

    [/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstants.au3>
    #include <String.au3>

    [/autoit] [autoit][/autoit] [autoit]

    ; Ziel
    Global $dest_LW = StringLeft(@MyDocumentsDir,2)
    ; Quelle
    Global $src_LW = StringLeft(@ScriptDir,2) & "\"

    [/autoit] [autoit][/autoit] [autoit]

    $uccess = "USBsound\Success.wav"

    [/autoit] [autoit][/autoit] [autoit]

    ; - Start - GUI
    $GUI = GUICreate(" USB v 2.2", 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
    GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $gb_Ziel = GUICtrlCreateGroup("", 64, 8, 225, 60)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $pg_Ziel = GUICtrlCreateProgress(75, 32, 195, 17)
    $bn_Pic = GUICtrlCreateButton("PicButton", 8, 14, 55, 55, $BS_BITMAP)
    GUICtrlSetImage (-1, "USBsys\images3.bmp", 22)
    $bn_Sichern = GUICtrlCreateButton("&Sichern", 126, 80, 75, 25, 0)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $bn_Close = GUICtrlCreateButton("&Beenden", 212, 80, 75, 25, 0)
    $bn_Autor = GUICtrlCreateButton("RR04", 2, 96, 30, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x808080)

    ; - The Stick - GUI
    $GUI_Stick = GUICreate(" The Stick", 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
    GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $tb_src_Total = GUICtrlCreateInput("", 8, 20, 140, 17, $ES_READONLY)
    $tb_src_Free = GUICtrlCreateInput("", 152, 20, 140, 17, $ES_READONLY)
    $tb_src_Belegt = GUICtrlCreateInput("", 8, 70, 140, 17, $ES_READONLY)
    $tb_src_Prozent = GUICtrlCreateInput("", 152, 70, 57, 17, $ES_READONLY)
    $pg_Quelle = GUICtrlCreateProgress(8, 45, 284, 17)
    $bn_Return = GUICtrlCreateButton("zurück", 212, 80, 75, 25, 0)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW, $GUI)

    [/autoit] [autoit][/autoit] [autoit]

    ; starten Func _LW_info()
    _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[1] ; window-handle
    Case $GUI
    Switch $msg[0] ; event/control-handle
    Case $bn_Pic
    GUISetState(@SW_HIDE, $GUI)
    GUISetState(@SW_SHOW, $GUI_Stick)
    Case $GUI_EVENT_CLOSE
    Exit
    Case $bn_Close
    Exit
    Case $bn_Autor
    $logfile = FileOpen("TheStick.log", 0) ; 0 = nur Lesemodus (read mode)
    If $logfile = -1 Then
    MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
    EndIf
    $line = FileReadLine($logfile)
    MsgBox(64, 'About', 'The Stick v 2.2.031 Build 2008-01-03/18 ' & @CRLF & '' & @CRLF & 'Copyright by : Ritzelrocker04 ' & @CRLF & 'Thx an das http://www.Autoit.de - Team ' & @CRLF & '' & @CRLF & 'Die letzte Sicherung war am : ' & @CRLF & $line)
    FileClose($logfile)
    Case $bn_Sichern
    $_Userwahlsich = MsgBox(32+4, " Sichern", "Sichern, möchten Sie fortfahren ? ")
    If $_Userwahlsich = 7 Then
    MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
    Exit
    EndIf
    MsgBox(48, " OK", "Simulation des Kopiervorgangs (siehe Script-Zeile 71 & 72) ! ")
    ; ==> RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\My Stick\USB-Stick-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir, @SW_MINIMIZE)
    _LW_info() ; starten Func _LW_info()
    _Log_Write() ; starten Func _Log_Write()
    SoundSetWaveVolume(50) ;(50)Lautstärke in %
    SoundPlay($uccess, 1) ; 1 = Skript wartet, bis der Sound abgespielt ist.
    MsgBox(64, " Sicherung", " Sicherung abgeschlossen ! ")
    Exit
    EndSwitch
    Case $GUI_Stick
    Switch $msg[0]
    Case $bn_Return
    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_HIDE, $GUI_Stick)
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_HIDE, $GUI_Stick)
    EndSwitch
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    ; die Funktion _LW_info()
    Func _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    ; Quelle
    $VOL_Quelle = DriveGetLabel($src_LW)
    $TOTAL_Quelle = DriveSpaceTotal($src_LW)
    $FREE_Quelle = DriveSpaceFree($src_LW)
    $FREE_Quelle_Prozent = StringReplace(Round(($FREE_Quelle) / ($TOTAL_Quelle / 100), 0), ".", ",")
    $FREE_Quelle_MB = _StringAddComma(StringReplace(Round ($FREE_Quelle, 2), '.', ','), ".", ",")
    $Belegt_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle - $FREE_Quelle, 2), '.', ','), ".", ",")
    $TOTAL_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle, 2), '.', ','), ".", ",")
    $i_Progress_Quelle = StringReplace(Round(($TOTAL_Quelle - $FREE_Quelle) / ($TOTAL_Quelle / 100), 2), ".", ",")

    [/autoit] [autoit][/autoit] [autoit]

    ; Ziel
    $VOL_Ziel = DriveGetLabel($dest_LW)
    $TOTAL_Ziel = DriveSpaceTotal($dest_LW)
    $FREE_Ziel = DriveSpaceFree($dest_LW)
    $FREE_Ziel_Prozent = StringReplace(Round(($FREE_Ziel) / ($TOTAL_Ziel / 100), 0), ".", ",")
    $FREE_Ziel_MB = _StringAddComma(StringReplace(Round ($FREE_Ziel, 2), '.', ','), ".", ",")
    $i_Progress_Ziel = StringReplace(Round(($TOTAL_Ziel - $FREE_Ziel) / ($TOTAL_Ziel / 100), 2), ".", ",")

    [/autoit] [autoit][/autoit] [autoit]

    ; letzte Berechnungen und setzen der Ergebnisse
    ; Ziel
    GUICtrlSetData($pg_Ziel, $i_Progress_Ziel)
    GUICtrlSetData($gb_Ziel, "( " & $dest_LW & " )" & " = " & $FREE_Ziel_MB & " MB = " & $FREE_Ziel_Prozent & " % frei ")
    ; Quelle
    GUICtrlSetData($tb_src_Total, "Gesamt: " & $TOTAL_Quelle_MB & " MB")
    GUICtrlSetData($tb_src_Free, "Frei: " & $FREE_Quelle_MB & " MB")
    GUICtrlSetData($pg_Quelle, $i_Progress_Quelle)
    GUICtrlSetData($tb_src_Belegt, "Belegt: " & $Belegt_Quelle_MB & " MB")
    GUICtrlSetData($tb_src_Prozent, "Frei: " & $FREE_Quelle_Prozent & " %")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc ; ==> _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    ; die Funktion _Log_Write()
    Func _Log_Write()

    [/autoit] [autoit][/autoit] [autoit]

    $logfile = FileOpen("TheStick.log", 2) ;2 = Schreibmodus mit Löschen des vorherigen Inhaltes

    If $logfile = -1 Then
    MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
    Exit
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    FileWriteLine($logfile, @MDAY & "." & @MON & "." & @YEAR & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr ")
    FileClose($logfile)

    EndFunc ; ==> _Log_Write()

    [/autoit] [autoit][/autoit] [autoit][/autoit]

    Schönes WE und weiterhin
    viel Spaß !

  • The Stick

    Der Nachbar klingelt, ich kann helfen und bin ca. eine Stunde lang beschäftigt. Nun zurück blicke ich auf meinen Stick und frage mich: „Habe, wollte oder war ich gerade dabei ihn zu sichern ?“

    Kein Problem :!:

    Ein Klick auf den kleinen Button zeigt die Antwort :!::rolleyes:
    PS: Zeile 73 ist ein Dummy

    Spoiler anzeigen
    [autoit]


    ; by Ritzelrocker04 ==> USBv2203.au3

    [/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstants.au3>
    #include <String.au3>

    [/autoit] [autoit][/autoit] [autoit]

    ; Ziel
    Global $dest_LW = StringLeft(@MyDocumentsDir,2)
    ; Quelle
    Global $src_LW = StringLeft(@ScriptDir,2) & "\"

    [/autoit] [autoit][/autoit] [autoit]

    $uccess = "USBsound\Success.wav"

    [/autoit] [autoit][/autoit] [autoit]

    ; - Start - GUI
    $GUI = GUICreate(" USB v 2.2", 300, 115, -1, 190, $WS_POPUPWINDOW)
    GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $gb_Ziel = GUICtrlCreateGroup("", 64, 8, 225, 60)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $pg_Ziel = GUICtrlCreateProgress(75, 32, 195, 17)
    $bn_Pic = GUICtrlCreateButton("PicButton", 8, 14, 55, 55, $BS_BITMAP)
    GUICtrlSetImage (-1, "USBsys\images3.bmp", 22)
    $bn_Sichern = GUICtrlCreateButton("&Sichern", 126, 80, 75, 25, 0)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $bn_Close = GUICtrlCreateButton("&Beenden", 212, 80, 75, 25, 0)
    $bn_Autor = GUICtrlCreateButton("RR04", 2, 96, 30, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x808080)

    ; - The Stick - GUI
    $GUI_Stick = GUICreate(" The Stick", 300, 115, -1, 190, $WS_POPUPWINDOW)
    GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $tb_src_Total = GUICtrlCreateInput("", 8, 20, 140, 17, $ES_READONLY)
    $tb_src_Free = GUICtrlCreateInput("", 152, 20, 140, 17, $ES_READONLY)
    $tb_src_Belegt = GUICtrlCreateInput("", 8, 70, 140, 17, $ES_READONLY)
    $tb_src_Prozent = GUICtrlCreateInput("", 152, 70, 57, 17, $ES_READONLY)
    $pg_Quelle = GUICtrlCreateProgress(8, 45, 284, 17)
    $bn_Return = GUICtrlCreateButton("zurück", 212, 80, 75, 25, 0)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW, $GUI)

    [/autoit] [autoit][/autoit] [autoit]

    ; starten Func _LW_info()
    _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[1] ; window-handle
    Case $GUI
    Switch $msg[0] ; event/control-handle
    Case $bn_Pic
    GUISetState(@SW_HIDE, $GUI)
    GUISetState(@SW_SHOW, $GUI_Stick)
    Case $GUI_EVENT_CLOSE
    Exit
    Case $bn_Close
    Exit
    Case $bn_Autor
    $logfile = FileOpen("TheStick.log", 0) ; 0 = nur Lesemodus (read mode)
    If $logfile = -1 Then
    MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
    Exit
    EndIf
    $line = FileReadLine($logfile)
    If @error = -1 Then ExitLoop
    MsgBox(64, 'About', 'The Stick v 2.2.03 Build 2008-01-03/14 ' & @CRLF & '' & @CRLF & 'Copyright by : Ritzelrocker04 ' & @CRLF & 'Thx an das http://www.Autoit.de - Team ' & @CRLF & '' & @CRLF & 'Die letzte Sicherung war am : ' & @CRLF & $line)
    FileClose($logfile)
    Case $bn_Sichern
    $_Userwahlsich = MsgBox(32+4, " Sichern", "Sichern, möchten Sie fortfahren ? ")
    If $_Userwahlsich = 7 Then
    MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
    Exit
    EndIf
    MsgBox(48, " OK", "Simulation des Kopiervorgangs (siehe Zeile 73 & 74) ! ") ; NUR DUMMI !
    ; ==> RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\My Stick\USB-Stick-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir, @SW_MINIMIZE)
    _LW_info() ; starten Func _LW_info()
    _Log_Write() ; starten Func _Log_Write()
    SoundSetWaveVolume(50) ;(50)Lautstärke in %
    SoundPlay($uccess, 1) ; 1 = Skript wartet, bis der Sound abgespielt ist.
    MsgBox(64, " Sicherung", " Sicherung abgeschlossen ! ")
    Exit
    EndSwitch
    Case $GUI_Stick
    Switch $msg[0]
    Case $bn_Return
    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_HIDE, $GUI_Stick)
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_HIDE, $GUI_Stick)
    EndSwitch
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    ; die Funktion _LW_info()
    Func _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    ; Quelle
    $VOL_Quelle = DriveGetLabel($src_LW)
    $TOTAL_Quelle = DriveSpaceTotal($src_LW)
    $FREE_Quelle = DriveSpaceFree($src_LW)
    $FREE_Quelle_Prozent = StringReplace(Round(($FREE_Quelle) / ($TOTAL_Quelle / 100), 0), ".", ",")
    $FREE_Quelle_MB = _StringAddComma(StringReplace(Round ($FREE_Quelle, 2), '.', ','), ".", ",")
    $Belegt_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle - $FREE_Quelle, 2), '.', ','), ".", ",")
    $TOTAL_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle, 2), '.', ','), ".", ",")
    $i_Progress_Quelle = StringReplace(Round(($TOTAL_Quelle - $FREE_Quelle) / ($TOTAL_Quelle / 100), 2), ".", ",")

    [/autoit] [autoit][/autoit] [autoit]

    ; Ziel
    $VOL_Ziel = DriveGetLabel($dest_LW)
    $TOTAL_Ziel = DriveSpaceTotal($dest_LW)
    $FREE_Ziel = DriveSpaceFree($dest_LW)
    $FREE_Ziel_Prozent = StringReplace(Round(($FREE_Ziel) / ($TOTAL_Ziel / 100), 0), ".", ",")
    $FREE_Ziel_MB = _StringAddComma(StringReplace(Round ($FREE_Ziel, 2), '.', ','), ".", ",")
    $i_Progress_Ziel = StringReplace(Round(($TOTAL_Ziel - $FREE_Ziel) / ($TOTAL_Ziel / 100), 2), ".", ",")

    [/autoit] [autoit][/autoit] [autoit]

    ; letzte Berechnungen und setzen der Ergebnisse
    ; Ziel
    GUICtrlSetData($pg_Ziel, $i_Progress_Ziel)
    GUICtrlSetData($gb_Ziel, "( " & $dest_LW & " )" & " = " & $FREE_Ziel_MB & " MB = " & $FREE_Ziel_Prozent & " % frei ")
    ; Quelle
    GUICtrlSetData($tb_src_Total, "Gesamt: " & $TOTAL_Quelle_MB & " MB")
    GUICtrlSetData($tb_src_Free, "Frei: " & $FREE_Quelle_MB & " MB")
    GUICtrlSetData($pg_Quelle, $i_Progress_Quelle)
    GUICtrlSetData($tb_src_Belegt, "Belegt: " & $Belegt_Quelle_MB & " MB")
    GUICtrlSetData($tb_src_Prozent, "Frei: " & $FREE_Quelle_Prozent & " %")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc ; ==> _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    ; die Funktion _Log_Write()
    Func _Log_Write()

    [/autoit] [autoit][/autoit] [autoit]

    $logfile = FileOpen("TheStick.log", 2) ;2 = Schreibmodus mit Löschen des vorherigen Inhaltes

    If $logfile = -1 Then
    MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
    Exit
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    FileWriteLine($logfile, @MDAY & "." & @MON & "." & @YEAR & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr ")
    FileClose($logfile)

    EndFunc ; ==> _Log_Write()

    [/autoit] [autoit][/autoit] [autoit][/autoit]

    Schönes WE und weiterhin
    viel Spaß !

  • Gui Laggt?

    Hi AspirinJunkie,

    Danke für den Hinweis. 8)
    Also in diesem Sinn. Ich würde weiterhin noch versuchen, die verwendeten bmp Bilder in andere Formate zu wandeln. In meinem Beispiel setze ich jpg Bilder ein. ;)

    Weiterhin viel Erfolg !

  • Textfeld

    Oscars Ausführungen kann ich zustimmen und vielleicht ausführlicher ist das AutoIT Wiki bzw. das AutoIT Tutorial ab Punkt 25 GUI. :rolleyes:

    Herzlich Willkommen

    Weiterhin viel Spaß !

  • Gui Laggt?

    Hi Manuit,

    hier mal ein Beispiel: :rolleyes:

    Spoiler anzeigen
    [autoit]


    ; by Ritzelrocker04 ==> USBv22_02.au3

    [/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstants.au3>
    #include <String.au3>

    [/autoit] [autoit][/autoit] [autoit]

    ; Ziel
    Global $dest_LW = StringLeft(@MyDocumentsDir,2)
    ; Quelle
    Global $src_LW = StringLeft(@ScriptDir,2) & "\"

    [/autoit] [autoit][/autoit] [autoit]

    $uccess = "USBsound\Success.wav"

    [/autoit] [autoit][/autoit] [autoit]

    $GUI = GUICreate(" USB v 2.2", 300, 115, -1, 225, $WS_POPUPWINDOW)
    GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $gb_Ziel = GUICtrlCreateGroup("", 64, 8, 225, 60)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $pg_Ziel = GUICtrlCreateProgress(75, 32, 195, 17)
    $bn_Pic = GUICtrlCreateButton("PicButton", 8, 14, 55, 55, $BS_BITMAP)
    GUICtrlSetImage (-1, "USBsys\images3.bmp", 22)
    $bn_Sichern = GUICtrlCreateButton("&Sichern", 126, 80, 75, 25, 0)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $bn_Close = GUICtrlCreateButton("&Beenden", 212, 80, 75, 25, 0)
    $bn_Autor = GUICtrlCreateButton("RR04", 2, 96, 30, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x808080)

    ; Quelle - The Stick - GUI
    $GUI_Stick = GUICreate(" The Stick", 300, 115, -1, 225, $WS_POPUPWINDOW)
    GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $tb_src_Total = GUICtrlCreateInput("", 8, 20, 140, 17, $ES_READONLY)
    $tb_src_Free = GUICtrlCreateInput("", 152, 20, 140, 17, $ES_READONLY)
    $tb_src_Belegt = GUICtrlCreateInput("", 8, 70, 140, 17, $ES_READONLY)
    $tb_src_Prozent = GUICtrlCreateInput("", 152, 70, 57, 17, $ES_READONLY)
    $pg_Quelle = GUICtrlCreateProgress(8, 45, 284, 17)
    $bn_Return = GUICtrlCreateButton("zurück", 212, 80, 75, 25, 0)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW, $GUI)

    [/autoit] [autoit][/autoit] [autoit]

    ; starten Func _LW_info()
    _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[1] ; window-handle
    Case $GUI
    Switch $msg[0] ; event/control-handle
    Case $bn_Pic
    GUISetState(@SW_HIDE, $GUI)
    GUISetState(@SW_SHOW, $GUI_Stick)
    Case $GUI_EVENT_CLOSE
    Exit
    Case $bn_Close
    Exit
    Case $bn_Autor
    MsgBox(64, 'About', 'The Stick v 2.2.02 Build 2008-01-03/12 ' & @CRLF & '' & @CRLF & 'Copyright by : ' & @CRLF & '' & @CRLF & 'Ritzelrocker04 ' & @CRLF & '' & @CRLF & 'Thx an das http://www.Autoit.de - Team ')
    Case $bn_Sichern
    $_Userwahlsich = MsgBox(32+4, " Sichern", "Sichern, möchten Sie fortfahren ? ")
    If $_Userwahlsich = 7 Then
    MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
    Exit
    EndIf

    RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\My Stick\USB-Stick-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir, @SW_MINIMIZE)
    _LW_info() ; starten Func _LW_info()
    SoundSetWaveVolume(50) ;(50)Lautstärke in %
    SoundPlay($uccess, 1) ; 1 = Skript wartet, bis der Sound abgespielt ist.
    MsgBox(64, " Sicherung", " Sicherung abgeschlossen ! ")
    Exit
    EndSwitch
    Case $GUI_Stick
    Switch $msg[0]
    Case $bn_Return
    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_HIDE, $GUI_Stick)
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $GUI)
    GUISetState(@SW_HIDE, $GUI_Stick)
    EndSwitch
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    ; die Funktion _LW_info()
    Func _LW_info()

    [/autoit] [autoit][/autoit] [autoit]

    ; Quelle
    $VOL_Quelle = DriveGetLabel($src_LW)
    $TOTAL_Quelle = DriveSpaceTotal($src_LW)
    $FREE_Quelle = DriveSpaceFree($src_LW)
    $FREE_Quelle_Prozent = StringReplace(Round(($FREE_Quelle) / ($TOTAL_Quelle / 100), 0), ".", ",")
    $FREE_Quelle_MB = _StringAddComma(StringReplace(Round ($FREE_Quelle, 2), '.', ','), ".", ",")
    $Belegt_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle - $FREE_Quelle, 2), '.', ','), ".", ",")
    $TOTAL_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle, 2), '.', ','), ".", ",")
    $i_Progress_Quelle = StringReplace(Round(($TOTAL_Quelle - $FREE_Quelle) / ($TOTAL_Quelle / 100), 2), ".", ",")

    [/autoit] [autoit][/autoit] [autoit]

    ; Ziel
    $VOL_Ziel = DriveGetLabel($dest_LW)
    $TOTAL_Ziel = DriveSpaceTotal($dest_LW)
    $FREE_Ziel = DriveSpaceFree($dest_LW)
    $FREE_Ziel_Prozent = StringReplace(Round(($FREE_Ziel) / ($TOTAL_Ziel / 100), 0), ".", ",")
    $FREE_Ziel_MB = _StringAddComma(StringReplace(Round ($FREE_Ziel, 2), '.', ','), ".", ",")
    $i_Progress_Ziel = StringReplace(Round(($TOTAL_Ziel - $FREE_Ziel) / ($TOTAL_Ziel / 100), 2), ".", ",")

    [/autoit] [autoit][/autoit] [autoit]

    ; letzte Berechnungen und setzen der Ergebnisse
    ; Ziel
    GUICtrlSetData($pg_Ziel, $i_Progress_Ziel)
    GUICtrlSetData($gb_Ziel, "( " & $dest_LW & " )" & " = " & $FREE_Ziel_MB & " MB = " & $FREE_Ziel_Prozent & " % frei ")
    ; Quelle
    GUICtrlSetData($tb_src_Total, "Gesamt: " & $TOTAL_Quelle_MB & " MB")
    GUICtrlSetData($tb_src_Free, "Frei: " & $FREE_Quelle_MB & " MB")
    GUICtrlSetData($pg_Quelle, $i_Progress_Quelle)
    GUICtrlSetData($tb_src_Belegt, "Belegt: " & $Belegt_Quelle_MB & " MB")
    GUICtrlSetData($tb_src_Prozent, "Frei: " & $FREE_Quelle_Prozent & " %")

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc ; ==> _LW_info()

    [/autoit]

    Weiterhin viel Erfolg :!:

  • DirExists?

    Hi Davor,

    FileExists überprüft, ob eine Datei oder ein Verzeichnis existiert.FileExists gibt auch 0 zurück, wenn du ein Diskettenlaufwerk übergibst, das keine Diskette enthält. :!: Vielleicht mal separat nur den einen Befehl prüfen? :rolleyes:

    Spoiler anzeigen
    [autoit]


    If FileExists("D:\") Then
    MsgBox(4096, "", "D: exists.")
    Else
    MsgBox(4096,"", "D: does not exist.")
    EndIf

    [/autoit]


    Weiterhin viel Erfolg !

  • SB v X.0

    Hallo Oscar,

    das hat mal wieder gut hin gehauen. Bei mir funktioniert es und auch das Optionsfenster sieht besser aus. :thumbup:

    Tipp bzw. Herausforderung:

    Windows kann bei mir auch Brenn- und Leselaufwerke erkennen (CD/DVD) :rolleyes:

    Weiterhin viel Erfolg !