Mein Script habe ich noch etwas weiterentwickelt und rausgekommen ist dabei das hier:
Viel Spaß !
Beiträge von RR04
-
-
vom Ritzelrocker04 auch mein Focus liegt auf GUI siehe Post 2.
Weiterhin viel Spaß und Erfolg !
-
Hi,
Hier ein Beispielskript mit und ohne Funktionen.
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
;Hier ein Beispielskript. Beachte, dass das ; einen Kommentar signalisert (ähnlich REM in MSDOS-Batch-Dateien):
; Das ist mein erstes Skript
MsgBox(0, "Mein erstes Skript!", "Hallo Welt!")
;Kompiliziertere Skripte werden Funktionen nutzen, die normalerweise am Ende des Skriptes platziert werden. Hier ein ähnliches Skript mit Funktionen:
; Das ist mein erstes Skript (mit Funktionen)
MsgBox(0, "Mein zweites Skript!", "Hallo aus dem Hauptskript!")
TestFunc()Func TestFunc()
[/autoit] [autoit][/autoit] [autoit][/autoit]
MsgBox(0, "Mein zweites Skript!", "Hallo aus der Funktion!")
EndFunc
Weiterhin viel Erfolg ! -
Hi,
das Ganze sieht bei mir so aus:
-
Hallo GTASpider,
siehe peethebee´s post Nr.4. Ich habe so Kanotix 2005-04 und WinXP installiert, nur die menu.lst muss bearbeitet werden. Also zum Schluß Linux installieren mit Grub.
Weiterhin
viel Erfolg ! -
Hi,
mal geht es Gut und mal eben Besser, ist es nicht genau das. Grenzen ausloten und herausfinden was alles möglich ist ? Ich erinnere mich noch gut an SpaceBar, ich wollte nur einen farbigen Fortschrittsbalken machen. Ihr habt mir dann einiges beigebracht und ich habe was gelernt. So habe ich auch mit dem gelernten SimplyColorProgress geschaffen, einen anderen farbigen Fortschrittsbalken von dem jetzt auch kleine Scripts profitieren.
Sicherlich kommt auch die Zeit für Multithreading, also Kopf hoch !
Schönes WE und weiterhin
viel MEHR Erfolg ! -
Hi Bugfix,
Danke, sicher macht das auch die gute Schule hier !
-
mit den farbigen Progressbalken.
Viel Spaß !
-
...ist ein einfacher farbiger Fortschrittsbalken der seine Farbe auch bei einem Wechsel des visuellen Stils beibehält. Auch Informationen kann man ihm mitgeben. Aber man ist nicht nur unabhängig von der Farbe. Ebenso ist die Maßeinheit, Prozent, nicht mehr zwingend. So lassen sich genauso die erhaltenen 67 von 70 Punkten optisch aufbereiten. Besonders interessant, ist sicherlich die Flexibilität und die relativ einfache Handhabung. Im Anhang befindet sich eine Demo .
SimplyColorProgress 1.2
[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("II " & $srcLW & " % " & _StringRepeat("I", $srcLW - 8), 45, 120, 310, 13)
GUICtrlSetBkColor(-1, 0x00FF00) ; gruen background
GUICtrlSetColor(-1, 0xFF0000) ; rot
$lbF1 = GUICtrlCreateLabel("II " & 100 - $srcLW & " % " & _StringRepeat("I", 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
Weiterhin viel Spaß ! -
Ja Dank an Euch Beide und schönes OFest ! Es funktioniert
-
Hi,
am Anfang prasseln sehr viele Dinge auf einen herein, dann im Gebrauch erkennst Du leichter die Bedeutungen.
Schönes OFest und weiterhin
viel Spaß sowie viel Erfolg ! -
Danke Bernd670 mach ich doch.
Hi Xeno, warum ?? gibt es noch eine andere Lösung, oder was meinst Du ?
Danke ür die schnelle Antwort
-
Hi,
in groben Zügen etwa so, wie im Anhang. Hast Du denn etwas Bestimmtes vor ?
Spoiler anzeigen
Der Unterschied zwischen Dim, Local und Global ist der Bereich, für den die Variablen deklariert werden:
Dim = Lokaler Bereich, wenn der Variablennamen global nicht existiert (falls es der Fall ist, wird die globale Variable wiederverwendet!)
Global = Erzwingt globale Gültigkeit der Variable
Local = Erzwingt Gültigkeit der Variable lokal bzw. innerhalb der Funktion
Schönes OFest und weiterhin
viel Erfolg ! -
Hi und Allen ein schönes OFest,
ich suche eine Möglichkeit einen Buchstaben mit Multiplikation zuvermehren und darzustellen. Also zB ein A ein- zwei- oder dreimal. Meinen Beispiel im Anhang war erfolglos. Natürlich geht es vorbereitet mit Switch Case. Doch multipliziert wäre mir lieber, wenn es überhaupt geht ?
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>$test = "A"
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form2 = GUICreate("RR04", 410, 100, -1, -1)
$PasswordEdit = GUICtrlCreateInput("", 5, 32, 310, 21)
GUICtrlSetData(-1, $test * 5);funktioniert nicht
$ButtonOk = GUICtrlCreateButton("&OK", 86, 64, 75, 25, 0)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 167, 64, 75, 25, 0)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit]
WEnd
Danke -
Beschreibung und Historie hier !
Sicher ist Sicher sprich „SiS“ kümmert sich um die Profile von Firefox und Thunderbird, die Favoriten des IE, die E-Mail Postfächer sowie die Eigenen Dateien. Der User kann Alles frei an- und abwählen, so auch Zielordner bzw. Ziellaufwerk wählen oder erstellen.
Zum Einsatz kommt 7zip.
Ein Nachteil ? Denn 7zip kann von Hause aus keine Zeitformate bilden !Die eingeführte Automatik unterdrückt Nachfragen bei bereits existierenden Dateien. Somit ist eine unbeaufsichtigte Sicherung, bis hin zum ausschalten des PCs möglich. Den Schalter findet man unten mittig bei den Armaturen. Farbe und „ToolTip“ wechseln, wie gewohnt.
Die gewählten Einstellungen merkt sich SiS jetzt mit Hilfe einer Ini-Datei.
Die Einstellungen der Armaturen bleiben bei übernommenen Einstellungen, wie sie sind. Erst bei einer erneuten Wahl, in der aktuellen Session, markiert SiS diese wieder und gibt weitere Hilfestellungen (ToolTip).
Die Statusanzeige hat viele Funktionen. Version, Datum und Uhrzeit können abgelesen werden. Das Speichern des Zielpfades (z.B. "C:\$Backup$") in der Ini-Datei macht ein separates 1Klick – Programm unnötig.
SiS baut auf ein vorinstalliertes 7zip auf. Sollte kein installiertes 7zip gefunden werden, versagt SiS nicht mehr den Dienst. SiS nutzt jetzt eine mitgebrachte 195kb Version von 7zip. Beim späteren Nachinstallieren von 7zip wird die aktuellere Version bevorzugt genutzt.
Das MS-Address Book XP ist zur Sicherung hinzu gekommen und Anpassungen wurden vorgenommen.
Der Restore-Modus ist hinzu gekommen.
Die Übertragungsdauer wird jeweils in Minuten oder Sekunden angegeben.Mit Start von SiS wird ein Rundruf ausgelöst. Dieser Rundruf prüft die zur Sicherung angebotenen Ordner auf Existenz, nicht gefundene Daten stehen nicht mehr zur Auswahl.
Den Sicherungsordner einsehen kann man im Menü Datei/Öffnen, die Auswahl erfolgt über das Combofeld. Hier sind verschiedene Sicherungsordner denkbar.
Einen Überblick über den freien Speicherplatz, der im PC befindlichen Partitionen, verschafft man sich im Menü Extra/Dirinfo.
Die im Verlauf der Sicherung zunehmende Größe und abnehmenden freien Speicherplatz lässt sich im Label über „Beenden“ beobachten.
Wie im richtigen Leben hat auch dieses Script einen "Haken" !
Denn zu guter Letzt bekommen wir einen aktuellen Statusbericht des Sicherungsordners (Datum, Pfad, Größe, Dateien, Verzeichnisse, Dauer der Sicherung) angezeigt.Eine Ressource-DLL kommt zum Einsatz und wurde mit dem "ResHacker" erstellt.
Als kleines Extra kommt eine Computer-Info hinzu. Der Nutzer verschafft sich einen Überblick mit welcher harten und weichen Ware Er es zu tun hat. Einen besonderen Hinweis erhält der, der vergessen hat, Daten zur Sicherung auszuwählen.
Multilingual - Der Nutzer kann ab Version 3.9 zwischen Englisch und Deutsch wählen und eine fehlende Sprache auch selbst erstellen.
Das tolle Tool von Progandy wurde eingepflegt. Es kann direkt gestartet werden oder in SiS über Menü>Optionen>Translator. Der Tranlator editiert die Sprachdateien und ist beim erstellen Neuer behilflich.
Die Funktion „_FileOpenDetails“ von Funkey nutzt AutoIT in seiner Ursprungsform. Die Funktion sprengt nicht den Rahmen und fügt sich gut in das Gesamtkonzept von SiS ein.
Eine Hilfe-Datei (SiS_Help.chm) mit Suchfunktion kommt hinzu.
„Ich hab da mal was vorbereitet!“
Danke für die bisherigen über 800 Downloads.Viel Spaß mit SiS !
[align=center]Die aktuelle Version hier: -
Hi Bootsector,
oder vielleicht besser so ?
Spoiler anzeigen
[autoit]
[/autoit]
Case $msg = $bnDest
$path = FileSelectFolder ('Bitte ein Laufwerk oder Ordner auswählen !', "::{00000000-1080-F9E5-6311-4162E05A6BEE}", 1)
If not @error Then
GUICtrlSetData($cobDest, $path, $path)
EndIf
Schönes OFest und weiterhin
viel Erfolg ! -
Hi Bootsector ,
hier ein Beispiel als Funktion.
Spoiler anzeigen
[autoit]
[/autoit]
Func dest()
$path = FileOpenDialog("Select destination file", @ScriptDir, "AutoIt v3 scripts (*.au3)|All files (*.*)")
If not @error Then
GUICtrlSetData($input_dest, $path)
EndIf
EndFunc
Schönes OFest und weiterhin
viel Erfolg ! -
Herzlich Willkommen,
schau Dir mal "StringLeft" an.
Schönes OFest und weiterhin
viel Spaß sowie Erfolg ! -
Hi,
$var auf GLOBAL setzen und überprüfe bitte den Ort Deiner Ini-Datei.
Spoiler anzeigen
[autoit]
[/autoit]
Global $pfad_arbeitsverzeichnis, $var
Schönes OFest und weiterhin
viel Erfolg ! -
Hallo nasgul,
Zeile 6 & 7 können auch in die Func müssen, dann aber anstatt Global auf Local gesetzt werden.
Hier nochmal die 1_Click-Datei aus Running Disk, dort funktioniert es so:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
; by Ritzelrocker04 ==> RD40_1Click_10.au3
#NoTrayIconOpt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit]Global $var1 = IniRead(@ScriptDir & "\RD.ini", "Settings", "sichern", "0")
[/autoit] [autoit][/autoit] [autoit]
Global $methode, $ziel, $dest, $src, $logfile, $zip_main()
[/autoit] [autoit][/autoit] [autoit]Func _main()
[/autoit] [autoit][/autoit] [autoit]If Not FileExists(@ScriptDir & "\RD.ini") Or Not FileExists(@ScriptDir & "\RD.log") Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(16, "Error", "Die Dateien RD.ini und RD.log müssen vorhanden sein ! ", 10)
Exit
EndIfSwitch $var1
[/autoit] [autoit][/autoit] [autoit]
Case 0
$methode = "PC Sichern"
Case 1
$methode = "PC Sichern & Ausschalten"
EndSwitch$ziel = "C:\$Backup$"
[/autoit] [autoit][/autoit] [autoit]
$dest = $ziel & "\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip "
$src = '"' & @MyDocumentsDir & '"'
_copy()$logfile = FileOpen("RD.log", 1)
[/autoit] [autoit][/autoit] [autoit]
If $logfile = -1 Then
MsgBox(0, "Error", " Konnte RD.log nicht öffnen.", 3)
EndIfFileWriteLine($logfile, "Eigene Dateien den " & $methode & " mit RD_1Click, am : " & @YEAR & "-" & @MON & "-" & @MDAY & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
[/autoit] [autoit][/autoit] [autoit]
FileClose($logfile)SoundPlay("RDsys\Success.wav", 1)
[/autoit] [autoit][/autoit] [autoit]If $var1 = 1 Then
[/autoit] [autoit][/autoit] [autoit]
Shutdown(9)
Else
MsgBox(64, " Sichern", "Sicherung vom " & @CRLF & @CRLF & @MDAY & "-" & @MON & "-" & @YEAR & " um " & @HOUR & ":" & @MIN & " Uhr " & @CRLF & @CRLF & "abgeschlossen !")
EndIfEndFunc ; ==> _main()
[/autoit] [autoit][/autoit] [autoit]Func _copy()
[/autoit] [autoit][/autoit] [autoit]If FileExists($dest) Then
[/autoit] [autoit][/autoit] [autoit]
; ==> FileDelete($dest)
MsgBox(48, "Simulation...", "...einer Funktion - Dummy für FileDelete, siehe Script ! ")
EndIf$zip = "RDsys\7za.exe a -tzip "
[/autoit] [autoit][/autoit] [autoit]
; ==> RunWait(@ComSpec & ' /c ' & $zip & $dest & $src,@ScriptDir ,@SW_MINIMIZE)
MsgBox(48, "Simulation...", "...einer Funktion - Dummy für RunWait, siehe Script ! ")EndFunc ; ==> _copy()
[/autoit]
Schönes OFest und weiterhin
viel Erfolg !