Hi Progandy,
ist ja richtig spacig. Nur 646 Zeilen : „Eine kleine GUI für den Nutzer, aber ein langes Script für den Programmierer“ - Eben spacig ! 
Nach einem Klick auf „Ok+Neustart“ kommt es zu einer Fehlerausgabe in Zeile 4 ? 
PS: Sind Spoilerscript und Anhangscript wirklich gleich ?
Schöne Feiertage und weiterhin
viel Erfolg !
Man liest sich...
Euer Ritzelrocker04
Hi Greenhorn ,
den Nagel auf den Kopf getroffen, kann man nur sagen. Ich habe auch was bei gelernt.
Schöne Feiertage und weiterhin
viel Erfolg !
Man liest sich...
Euer Ritzelrocker04
@(A)lina,
ein weiteres Beispiel:
#include <GUIConstants.au3>
$gui1 = GUICreate('GUI 1', 800, 600, -1, -1)
$button1 = GUICtrlCreateButton('Aufruf GUI 2', 20, 20, 100, 21)
$gui2 = GUICreate('GUI 2', 300, 200, -1, -1)
$button2 = GUICtrlCreateButton('Zurück zu GUI 1', 20, 20, 100, 21)
GUISetState(@SW_SHOW, $gui1)
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; window-handle
Case $gui1
Switch $msg[0] ; event/control-handle
Case $button1
GUISetState(@SW_HIDE, $gui1)
GUISetState(@SW_SHOW, $gui2)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Case $gui2
Switch $msg[0]
Case $button2
GUISetState(@SW_SHOW, $gui1)
GUISetState(@SW_HIDE, $gui2)
Case $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW, $gui1)
GUISetState(@SW_HIDE, $gui2)
EndSwitch
EndSwitch
WEnd
Man liest sich...
Euer Ritzelrocker04
Hi (A)lina,
mir fällt noch gerade eine Möglichkeit mit dem Tooltip / Traytip ein. 
PS: Was ganz Anderes, habe noch was gefunden(siehe Anhang)
Schöne Feiertage und viel Erfolg !
Man liest sich...
Euer Ritzelrocker04
Hi Xeno,
Welche Antwort ist richtig 1, 2 oder 3 ?
Man liest sich...
Euer Ritzelrocker04
@(A)lina,
so richtig will es noch gar nicht ! 
Zu dem Problem:
Das Fenster verhält sich bei mir wie ein normales. Für Ihre Zwecke sollte es doch zusammen mit der Passwort abfrage aufgehen. Ein Kind bzw. Child-Fenster vielleicht und die Koordinaten (Fensterposition) kann man dann eingeben.
While 1
$msg = GUIGetMsg(1)
Select
Case $msg[0] = $GUI_EVENT_CLOSE
If $msg[1] = $ChildWin Then
MsgBox(64, "Test", "Child GUI will now close.")
GUISwitch($ChildWin)
GUIDelete()
ElseIf $msg[1] = $ParentWin Then
MsgBox(64, "Test", "Parent GUI will now close.")
GUISwitch($ParentWin)
GUIDelete()
Exit
EndIf
EndSelect
WEnd
Schöne Feiertage und weiterhin
viel Erfolg !
Man liest sich...
Euer Ritzelrocker04
Hi (A)lina,
bei richtiger Pin Eingabe kommt es immer wieder zur Ausgabe: „PW ok“.
Vorschlag, währe ein If -Then vielleicht besser ?
Dim $_PinNummer
$_PinNummer = InputBox(" PIN - Nummer", " Bitte Ihre PIN eingeben: ", " - Hier Ihre Eingabe bitte ! - ", "", 1, 1, -1, -1)
If $_PinNummer = 1234 Then
MsgBox(0," RR04 PIN", " Ihre PIN - Nummer ist richtig ! ")
Else
MsgBox(48," RR04 PIN", " Ihre PIN - Nummer ist falsch , " & @LF & " probieren Sie mal die 1234 ! ")
EndIf
Schöne Feiertage und weiterhin
viel Erfolg !
Man liest sich...
Euer Ritzelrocker04
Oscar ,
Er muss aufhören, denn mir gehen die Superlative aus. Aber natürlich klasse ! 
Schöne Feiertage und weiterhin
viel Erfolg !
Man liest sich...
Euer Ritzelrocker04
Hallo (A)lina,
lustige Umsetzung, finde ich gut. Ich kam auf 73,33 %, hier noch etwas.
Ein Bekannter arbeitet bei der Post, da sie jetzt im Winter viel laufen müssen, bekam er besondere Schuhe - Die laufen sich niemals ab ! Wie lautet die Lösung ?
Schöne Feiertage
Man liest sich...
Euer Ritzelrocker04
Hi Progandy,
bei nur 416 Zeilen muss ich erst einmal nachsehen, ob ich genug HDD-Platz habe (Scherz)?
Es sieht jetzt richtig gut aus und macht auch einen stabilen Eindruck, auch die Warnungen sind Super. Eine klasse Arbeit, da kann Er stolz sein und ich ein bisschen neidisch. Die Zeile 98 habe ich ergänzt, kann Er ja noch nachholen.
If $msg = $aboutitem Then MsgBox(64, 'About', 'SpaceBar v 3.0.0.0 Build 2007-12-18/28 ' & @CRLF & '' & @CRLF & 'In Zusammenarbeit mit: ' & @CRLF & 'Ritzelrocker04, Oscar, Xenobiologist ' & @CRLF & 'Peethebee, Progandy ' & @CRLF & 'Thx an das http://www.Autoit.de Team ')
Schöne Feiertage und weiterhin
viel Erfolg!
Man liest sich...
Euer Ritzelrocker04
Hi,
gerne beantworte ich Seine Fragen.
Zu Eins - „RD“ ist ein einfaches funktionelles Script sehr übersichtlich und lässt sich gut an die eigenen Bedürfnisse anpassen. Die größte Stärke von „RD“ ist jedoch, die Idee dahinter.
Zu Zwei – Bitte überprüfe Er sich selbst noch einmal, von wann ist Seine letzte Sicherung auf CD ? Was kosten die ganzen CD´s, was macht man mit ihnen wenn sie gebrannt wurden ?
Fazit - „RD“ macht seit einiger Zeit einen guten Job. Nach einer Computersitzung klicke ich einfach auf „sichern und ausschalten“ und die Daten landen ohne eine Bemühung auf einer anderen Partition. Mit den Einfügen von „@WDAY“ werden Sicherungen nach Wochentagen realisiert und am nächsten Montag werden die älteren Daten überschrieben. Es kommt zu keinem überlaufen der Festplatte, auch nach 3000 Sicherungen nicht.
An „RD“ wird noch gearbeitet. Es ist noch nicht ganz ausgereift und in der Praxis haben sich einige Änderungswünsche aufgetan.
Datensicherung
Üblicherweise werden Daten gerade von PrivatanwenderInnen sehr selten gesichert. Dabei kann es mit den richtigen Programmen relativ einfach und kostengünstig sein, seine Daten an eine sichere Stelle zu kopieren. Zu einer guten Sicherungsmethode gehört die passende Auswahl des Zielortes, der Zeit und des Mittels.
Zielort
Je weiter weg der Zielort der Kopie ist, desto sicherer ist es für die Datensicherung. Allerdings ist das natürlich für PrivatanwenderInnen nicht immer praktikabel. Auch sollte eine Datensicherung nicht zu kompliziert sein, damit sie auch ausgeführt wird. So gehe ich im folgenden fast nur auf automatische Sicherungsmethoden ein, da die manuellen Verfahren, wie zum Beispiel das Brennen von Daten auf eine CD oder DVD, leider häufig vergessen oder zu lange aufgeschoben werden. Des weiteren spielt die Zeit und die vorhandene Technik eine entscheidende Rolle.
Mögliche Sicherungsorte
Die Daten auf Bandlaufwerke zu sichern ist in der Industrie die bevorzugte Methode, die allerdings an der fehlenden Technik im privaten Bereich scheitert. Auch die Möglichkeit auf Netzlaufwerke - ob nun lokal, oder per Internet - die Daten zu sichern, ist selten bei den PrivatanwenderInnen zu finden.
Daher ist vermutlich eine Mischung aus automatischer Sicherung auf eine andere Partition/Laufwerk, in Verbindung mit regelmäßiger Sicherung auf CD, die effektivste Methode. Auch wenn die Methode, Daten auf ein anderes aktives und permanent eingebundenes Laufwerk zu kopieren, nicht vor raffinierten Viren oder anderen gefährlichen Programmen schützt. Daher ist eine Sicherung auf einen nicht veränderbaren Datenträger (zB. CD) unbedingt erforderlich.
Zeit
Regelmäße Datensicherung ist natürlich wichtig. Ob allerdings die Daten, die auf einem Heimrechner liegen wirklich so wichtig sind, daß diese jede Stunde oder gar noch häufiger zu sichern sind, wage ich zu bezweifeln. So macht es aus meiner eigenen Erfahrung mehr Sinn die eigenen Daten einmal die Woche - oder bei Bearbeitung von Diplomarbeiten - einmal am Tag automatisch zu sichern. Wenn dann auch noch die Daten einmal im Monat (bzw. einmal die Woche) auf eine CD gebrannt werden, steht einer weiterhin erfolgreichen Arbeit nichts entgegen.
Der günstigste Zeitpunkt einer Datensicherung ist jener, an dem nicht an den Daten gearbeitet wird. Bei Firmen deren Datenserver rund um die Uhr laufen, wird dieses meistens Nachts getätigt, da hierbei auch große Datenmengen lange Zeiten benötigen. Für die private Anwendung, bei dem der Computer nachts ausgeschaltet bleibt und die Datenmenge nicht enorm ist, ist der Start des Computers meistens der beste Zeitpunkt.
Große Datenmengen die sich selten verändern (wie beispielsweise Bilder), sollten aus der regelmäßigen Datensicherung genommen werden (natürlich nachdem diese beispielsweise auf CD gebrannt wurden), da sonst die Zeiten unerträglich werden.
Mittel
Die Auswahl des Mittels zur Datensicherung ist angesichts der vielfältigen Programme nicht mehr so einfach ... aber dafür besser. Im folgenden stelle ich lediglich ein kleine Auswahl der Möglichkeiten vor.
Schöne Feiertage und weiterhin
viel Erfolg!
Man liest sich...
Euer Ritzelrocker04
Hi,
sieh mal vielleicht bringt Ihm diese Zeile auf die richtige Spur (Backup-System! 
)? Dazu das Anfängerscript
„ Scripte>RD Daten sichern „
RunWait(@ComSpec & ' /c ' & "USBsys\7za.exe a -tzip " & "E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip " & '"C:\Dokumente und Einstellungen\XP-Home\Eigene Dateien"',@ScriptDir ,@SW_MINIMIZE)
Alles wird Gut !
Schöne Feiertage und
viel Erfolg!
Man liest sich...
Euer Ritzelrocker04
Willkommen,
ein Script loaden von Jemand den man noch nicht kennt ?
Er sollte den Code offen einstellen, so wie auch die Anderen. Nur mein guter Rat.
Herzlich Willkommen und
weiterhin viel Spaß!
Man liest sich...
Euer Ritzelrocker04
Hi [KdD]Wolf,
das ist wohl ein Geschenk, dass sich Niemand wünscht. 
Doch jetzt wo Er schon dabei ist, währen ein paar konzeptionelle Überlegungen angebracht. (A)lina hat in die richtige Richtung gewiesen.
Schöne Feiertage und
viel Erfolg!
Man liest sich...
Euer Ritzelrocker04
Hi,
die Familien-Tage habe ich gut verlebt, was ich auch von Euch hoffe ?
(A)linas lauffähige Script-Variante ist die Funktion der möglichen GUI-Verschiebung abgängig.
Xeno verweist auf das en. Forum und JamesB hat einen guten Job gemacht, den er inzwischen ergänzt hat.
Progandy hat im zweiten Anlauf wirklich erstaunliches vollbracht, beide (2D und 3D) Fortschrittsbalken können sich sehen lassen. Der 3D-Balken scheint bei mir aber noch etwas instabil / volatil ?
Auch Oscar hat sich wieder eingefunden und ich freue mich über das Interesse und die Resonanz für dieses Thema.
Schöne Feiertage und Respekt
Man liest sich...
Euer Ritzelrocker04
Hi,
ich habe Zeile 37 entsprechen angepasst !
; by Ritzelrocker04, Xenobiologist and Oscar
Opt('MustDeclareVars', 1)
#include
#include
#include
#NoTrayIcon
Global Const $WM_LBUTTONDOWN = 0x0201
Global $aFDrive = DriveGetDrive('FIXED'), $aNDrive = DriveGetDrive('NETWORK')
If IsArray($aNDrive) Then
For $i = 1 To $aNDrive[0]
_ArrayAdd($aFDrive, $aNDrive[$i])
$aFDrive[0] += 1
Next
EndIf
Global $aProgress[$aFDrive[0]], $aName[$aFDrive[0]], $msg = 0, $aVol = 0
Global $GUI = GUICreate('SpaceBar v 2.0', 248, 8 + $aFDrive[0] * 50, @DesktopWidth - 250, 27, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
For $i = 0 To $aFDrive[0] - 1
$aProgress[$i] = GUICtrlCreateProgress(8, 8 + $i * 50, 230, 17)
$aName[$i] = GUICtrlCreateInput('', 8, 27 + $i * 50, 230, 21, $ES_READONLY)
Next
Global $trackmenu = GUICtrlCreateContextMenu()
Global $aboutitem = GUICtrlCreateMenuItem('About', $trackmenu)
GUICtrlCreateMenuItem('', $trackmenu)
Global $exititem = GUICtrlCreateMenuItem('Exit', $trackmenu)
GUIRegisterMsg($WM_LBUTTONDOWN, "_WinMove")
GUISetState()
_Update()
AdlibEnable('_Update', 1000) ; Empfehlung AdlibEnable('_Update', 300000) = 5min
While 1
$msg = GUIGetMsg()
If $msg = $exititem Or $msg = -3 Or $msg = -1 Then Exit (0)
If $msg = $aboutitem Then MsgBox(64, 'About', 'SpaceBar v 2.0.0.0 Build 2007-12-23 ' & @CRLF & '' & @CRLF & 'Copyright by :' & @CRLF & 'Ritzelrocker04, Oscar, Xenobiologist ' & @CRLF & 'Thx an das http://www.Autoit.de Team ')
WEnd
Func _Update()
For $i = 0 To $aFDrive[0] - 1
$aVol = _DriveFree($aFDrive[$i + 1])
GUICtrlSetData($aProgress[$i], $aVol[0])
GUICtrlSetData($aName[$i], 'Auf ' & $aVol[1] & ' sind ' & $aVol[2] & ' MB frei')
Next
EndFunc ;==>_Update
Func _DriveFree($LW)
Local $TOTAL = DriveSpaceTotal($LW), $FREE = DriveSpaceFree($LW), $aDrive[3] = [StringReplace(Round(($TOTAL - $FREE) / ($TOTAL / 100), 2), '.', ','), _
StringUpper($LW) & ' (' & DriveGetLabel($LW) & ')', _StringAddComma(StringReplace(Round($FREE, 2), '.', ','), '.', ',')]
Return $aDrive
EndFunc ;==>_DriveFree
Func _WinMove($HWnd, $Command, $wParam, $lParam)
If BitAND(WinGetState($HWnd), 32) Then Return $GUI_RUNDEFMSG
DllCall("user32.dll", "long", "SendMessage", "hwnd", $HWnd, "int", $WM_SYSCOMMAND, "int", 0xF009, "int", 0)
EndFunc ;==>_WinMove
Schöne Feiertage und
weiterhin viel Erfolg !
Man liest sich...
Euer Ritzelrocker04
Hallo Oscar,
nochmals herzlichen Dank an Ihm, Xeno und auch pee für die erwiesene Aufmerksamkeit und Unterweisung. Weiterhin freut es mich um so mehr, dass auch für Ihn etwas Neues dabei ist.
Beim letzten Script kommt es zu einer Fehlermeldung in Zeile 10 !
Danksagung
an das Forum und
besonders an die Mitwirkenden für ihr Engagement sowie die schnelle, hochwertige Hilfe.
Schöne Feiertage und
weiterhin viel Erfolg !
Man liest sich...
Euer Ritzelrocker04
Hi,
ich möchte peethebees Ausführungen bestätigen und sinngemäß auch Xenobiologist (siehe Post 21 & 22).
In Windows mit klassischem Stil ist es möglich, mit „GUICtrlSetColor“ den Fortschrittsbalken und mit „GUICtrlSetBkColor“ sogar dessen Hintergrund, farbig darzustellen.
Hingegen wird im Windows mit XP-Stil nur eine einheitliche Farbgebung bei Beiden erzielt.
Beim wechsel (switchen) zwischen den versch. Stilen, wird eine vorher programmierte Einstellung wieder ein – bzw. ausgeschaltet.
Gut zu wissen (siehe Anhang) !
Schöne Feiertage und
Danke
Man liest sich...
Euer Ritzelrocker04
@ Xeno,
es wird ja immer besser !
Schönes WE und
Danke
Man liest sich...
Euer Ritzelrocker04
Hallo Oscar,
ja genau. Das Script ist nicht länger, wie meines. Aber für mich ein längerer Weg dort hin, werde es gleich mal probieren.
Schönes WE und
Danke
Man liest sich...
Euer Ritzelrocker04
