Prima Arbeit, programmieren kann so schön sein !
Beiträge von RR04
-
-
Hi,
manchmal muss man VARIABEL sein !
Also vielleicht für die jeweilige Endung eine extra Variabel verwenden (zB. siehe Outlook & OExpress Saver)
Viel Erfolg!
-
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.
Die Sprachausgabe wurde verbessert.Sicherheitsabfragen und viele Kommentare wurden eingefügt (i=Info, !=Wichtig).
Download siehe Post 1
-
Hallo Oscar,
tolle Arbeit, funktioniert super !
Wird es ein Plugin für den Wrapper geben, dort ist neben dem Original Obfuscator noch ein Reiter frei ?
-
Hi Oscar,
noch gibt es Fehlermeldungen !
-
...sind Anpassungen und Weiterentwicklungen dazu gekommen !
siehe Post 1Viel Spaß!
-
Mein Script habe ich noch etwas weiterentwickelt und rausgekommen ist dabei das hier:
Viel Spaß ! -
Hallo,
eine "Oscar-Reife" Leistung !
Ich habe mir ein Beispiel "MultiColor" umgebaut:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
; Author: by ? => multicolor
; Solution: by Ritzelrocker04 - no live Progress#include<GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include<StaticConstants.au3>Opt("GuiOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Dim $LW = StringLeft(@ScriptDir, 3)
[/autoit] [autoit][/autoit] [autoit]
Dim $Progress$hGUI = GUICreate("Test", 400, 200)
[/autoit] [autoit][/autoit] [autoit]
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 barGUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
; 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)
WEndSleep(1000)
[/autoit] [autoit][/autoit] [autoit]Func _Quit()
[/autoit]
Exit
EndFunc ;==>_Quit
oder mein eigenes SimplyColorProgress:Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
; Author : Ritzelrocker04 ==> SimplyColorProgress_1.2
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<StaticConstants.au3>
#include<String.au3>$LW = StringLeft(@ScriptDir, 3)
[/autoit] [autoit][/autoit] [autoit]
$srcLW = Round((DriveSpaceTotal($LW) - DriveSpaceFree($LW)) / (DriveSpaceTotal($LW) / 100), 0)#Region ### START SimplyColorProgress GUI section ###
[/autoit] [autoit][/autoit] [autoit]
$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)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]
#EndRegion ### START SimplyColorProgress GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $ButtonCancel
ExitLoopCase $msg = $ButtonOk
[/autoit] [autoit][/autoit] [autoit][/autoit]
MsgBox(0, "Info über", "SimplyColorProgress by Ritzelrocker04", 5)
ExitLoop
EndSelect
WEnd
Viel Spaß ! -
Hallo,
schöne Arbeit, gefällt mir gut.
! Tipp:
[autoit]
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 & "\") -
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ß!
-
Anpassungen und Weiterentwicklungen sind dazu gekommen !
siehe Post 1Viel Spaß!
-
...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 !
-
-
@All,
warum lange suchen und nicht den CD-Autostart (autorun.inf) nutzen. Dann auf die verschlüsselte CD zugreifen.
-
...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
-
Hi,
ja so etwas geht mit einer ini-Datei. Ein einfaches Beispiel:http://www.autoit.de/index.php?page=Thread&threadID=4425
Viel Erfolg!
-
@(A)Lina
na dann Prost. Freut mich, dass der OES Dir gefällt. -
Anpassungen und Weiterentwicklungen sind dazu gekommen !
siehe Post 1Viel Spaß!
-
...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. -
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.
@(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.