Beiträge von RR04

  • Outlook & OExpress Saver...

    Die plakativen Funktionen der 3er Version sind beseitigt und mit Phase 4 wird ein neuer Abschnitt eingeleitet. Nun mehr, steht der Fokus auf Rücksicherung. :rolleyes:
    Die Sprachausgabe wurde verbessert. ;)

    Sicherheitsabfragen und viele Kommentare wurden eingefügt (i=Info, !=Wichtig).

    Download siehe Post 1

  • Klassische Progressbar (ohne Flackern)

    Hallo,

    eine "Oscar-Reife" Leistung ! :thumbup:

    Ich habe mir ein Beispiel "MultiColor" umgebaut:

    Spoiler anzeigen
    [autoit]


    ; Author: by ? => multicolor
    ; Solution: by Ritzelrocker04 - no live Progress :(

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

    #include<GUIConstants.au3>
    #include<StaticConstants.au3>

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

    Opt("GuiOnEventMode", 1)

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

    Dim $LW = StringLeft(@ScriptDir, 3)
    Dim $Progress

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

    $hGUI = GUICreate("Test", 400, 200)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit")
    $ctrlLabel = GUICtrlCreateLabel("", 10, 10, 380, 20, $SS_Center)
    $ctrlProgBkgrnd = GUICtrlCreateGraphic(10, 40, 380, 30)
    GUICtrlSetBkColor(-1, 0x00FF00) ; gruen background
    $ctrlProgress = GUICtrlCreateGraphic(10, 40, 1, 30)
    GUICtrlSetBkColor(-1, 0xFF0000) ; Red progress bar

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

    GUISetState()

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

    While 1
    ; Update progress
    Sleep(250)
    $Progress = Round((DriveSpaceTotal($LW) - DriveSpaceFree($LW)) / (DriveSpaceTotal($LW) / 100), 0)
    If $Progress > 100 Then ExitLoop
    GUICtrlSetData($ctrlLabel, "Progress: " & $Progress & " %")
    $iProg = ($Progress / 100) * 380
    GUICtrlSetPos($ctrlProgress, 10, 40, $iProg, 30)
    WEnd

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

    Sleep(1000)

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

    Func _Quit()
    Exit
    EndFunc ;==>_Quit

    [/autoit]


    oder mein eigenes SimplyColorProgress:

    Spoiler anzeigen
    [autoit]


    ; Author : Ritzelrocker04 ==> SimplyColorProgress_1.2
    #include<EditConstants.au3>
    #include<GUIConstantsEx.au3>
    #include<StaticConstants.au3>
    #include<String.au3>

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

    $LW = StringLeft(@ScriptDir, 3)
    $srcLW = Round((DriveSpaceTotal($LW) - DriveSpaceFree($LW)) / (DriveSpaceTotal($LW) / 100), 0)

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

    #Region ### START SimplyColorProgress GUI section ###
    $GUI = GUICreate("SimplyColorProgress by Ritzelrocker04", 400, 300)
    $lb = GUICtrlCreateLabel("Festplatte " & $LW, 50, 20, 100, 17)
    $implyColorProgressF = GUICtrlCreateInput("II " & 100 - $srcLW & " % frei " & _StringRepeat("I", 100 - $srcLW - 13), 45, 40, 310, 17, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    GUICtrlSetColor(-1, 0x008000); dunkelgruen
    $implyColorProgressB = GUICtrlCreateInput("II " & $srcLW & " % belegt " & _StringRepeat("I", $srcLW - 15), 45, 80, 310, 17, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    GUICtrlSetColor(-1, 0xFF0000) ; rot
    $lbB1 = GUICtrlCreateLabel(")) " & $srcLW & " % " & _StringRepeat(")", $srcLW - 8), 45, 120, 310, 14)
    GUICtrlSetBkColor(-1, 0x00FF00) ; gruen background
    GUICtrlSetColor(-1, 0xFF0000) ; rot
    $lbF1 = GUICtrlCreateLabel(")) " & 100 - $srcLW & " % " & _StringRepeat(")", 100 - $srcLW - 8), 45, 145, 310, 17)
    GUICtrlSetColor(-1, 0x008000); dunkelgruen
    $lbB2 = GUICtrlCreateLabel(_StringRepeat("I", $srcLW), 45, 180, 155, 20, $SS_RIGHT)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000) ; rot
    $lbF2 = GUICtrlCreateLabel(_StringRepeat("I", 100 - $srcLW), 200, 180, 155, 20)
    GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x008000); dunkelgruen
    $implyColorProgressB = GUICtrlCreateInput(_StringRepeat("I", $srcLW / 2 - 7) & " " & $srcLW & "% belegt " & _StringRepeat("I", $srcLW / 2 - 7), 45, 220, 310, 17, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    GUICtrlSetColor(-1, 0xFF0000) ; rot
    $ButtonOk = GUICtrlCreateButton("&OK", 122, 265, 75, 22, 0)
    $ButtonCancel = GUICtrlCreateButton("&Cancel", 203, 265, 75, 22, 0)

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

    GUISetState(@SW_SHOW)
    #EndRegion ### START SimplyColorProgress GUI section ###

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

    While 1
    $msg = GUIGetMsg()

    Select
    Case $msg = $GUI_EVENT_CLOSE Or $msg = $ButtonCancel
    ExitLoop

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

    Case $msg = $ButtonOk
    MsgBox(0, "Info über", "SimplyColorProgress by Ritzelrocker04", 5)
    ExitLoop
    EndSelect
    WEnd

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


    Viel Spaß ! ;)

  • EditorXXL

    Hallo,

    schöne Arbeit, gefällt mir gut. :thumbup:

    ! Tipp:
    Zu FileInstall.
    Ist das Script fertig, dann Bilder und Icons kurz vor dem kompilieren in das ScriptDir legen. So kommt es zu keiner Pfad-Kette. ;)

    [autoit]


    FileInstall("editorxxlv1500.bmp", @TempDir & "\")

    [/autoit]

  • Sicher ist Sicher...

    Anpassungen und Weiterentwicklungen sind dazu gekommen ! ;)

    Hier könnt Ihr mit Euren Downloads entscheiden, wie es weitergehen soll ? ;) ^^

    Bis jetzt = 1:2 für 7zip !

    siehe Post 11

    Download siehe Post 1

    Viel Spaß!

  • Welches CD-Rom LW ?

    ...noch ein Vorschlag:

    Die CD-Rom als ISO-Datei auf die Festplatte legen, so bleibt das CD-LW frei und die Datenzugriffe auf die ISO-Datei laufen schneller ab. CD-Rohlinge werden auch gespart, je nach Firmengröße ! ;)

  • Sicher ist Sicher...

    ...fast gleich, bringt eine 7zip (_w7z) schon mit und ist damit eigenständiger sowie unabhängiger. Die Andere ohne 7zip ist sehr klein und umgänglich. ;)

    Hier könnt Ihr mit Euren Downloads entscheiden, wie es weitergehen soll ? ;)^^

    siehe Post 1

  • Outlook & OExpress Saver...

    ...dazu gekommen. Ebenso, viele Formate und Kommentare sowie Sicherheitsabfragen falls Outlook oder OExpress nicht vorhanden sind. Die Rücksicherung ist nicht vergessen, nur noch nicht dabei ! ;)
    siehe Post 1

    @(A)Lina
    Danke für den Link, ist sehr ausführlich.

  • Outlook & OExpress Saver...

    Die Oberfläche neu gestaltet kann es nun an den Code gehen ! Outlook und Outlook Express sind zur Sicherung vorgesehen, sowie ein Restore - Rücksicherung. Anbei noch ein Screenshot. :rolleyes:

    @(A)Lina
    Wie kommst Du mit der 2er Version klar ?
    Da ich kein Outlook habe bräuchte ich mal den genauen Speicherort, also der mit dieser langen Zahl darin.