Hallo jmewald,
das sieht doch gut aus, das lässt sich sicherlich über Word-Automation lösen (auch in AutoIT):
Item no.: 74152 Item: Regular auto umbrella 58,5 cm x 8 x 10, black electroplated
Item name: Taifun solid combined
Ich konnte es jetzt zwar nur mit OpenOffice anschauen, bin aber optimistisch das sich dies lösen lässt. Morgen früh mehr,
mfg (Auto)Bert
Hallo jmewald,
mach dir doch mal die Mühe ein typisches Artikelnummer.doc hochzuladen. Als EDV-Berater weist du doch sicherlich, dass Beispiele besser sind als 1000 erklärende Worte,
mfg (Auto)Bert
Hallo Firestone,
bevor du weiter suchst, lies doch bitte die Beiträge in diesem Thread durch, danach weist du warscheins warum du es nicht schaffst,
Edit1: und es andere anständige AutoITler nicht versuchen werden
mfg (Auto)Bert
Hallo Mikel,
da du in deinem Skript nicht mit
Opt('MustDeclareVars', 1)
[/autoit]es zur Pflicht gemacht hast, dass Variablen vor dem ersten benutzen deklariert werden müssen, wäre es eigentlich auch beim ersten mal unnötig. Da ich in eigenen Skripten diese Option aber eigentlich immer setze ist es schon eine Art Automatismus, dass ich sie spätestens beim ersten Gebrauch deklariere. Hier der Grund warum ich die Option setze:
Auszug aus dt. Hilfe:MustDeclareVars Wenn diese Option genutzt wird müssen alle Variablen deklariert werden mit Dim, Local oder Global bevor sie verwendet werden können - beseitigt die Möglichkeit von Bugs durch Schreibfehler in Variablen.
1 = Variable muss deklariert werden
0 = Variable muss nicht deklariert werden (Standard)
Wenn eine Variable einmal deklariert ist, kannst du ihr immer wieder neue Werte zuweisen. Schön das dir das Skript gefällt, zu Fragen von Installationsroutinen, lies am besten das Tutorial - WinZip in der dt. Hilfe, ich selbst hab es aber auch noch nicht durchgearbeitet,
Edit1: Wenn du die While-Schleife entfernst, beendet sich das Skript automatisch, wenn das letzte Programm installiert wurde, lies doch bitte dazu auch GUI-Konzepte, Referenz-MessageLoop Modus (diesen benutzt du in deinem Skript) und evtl auch noch Referenz-OnEvent Format (benutze ich hauptsächlich)
mfg (Auto)Bert
Hallo mikel,
jetzt hab ich verstanden, machs doch so:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Local $Form1 = GUICreate("Installationsverlauf", 201, 601, 1, 1)
GUISetIcon("")
GUISetFont(7, 400, 0, "MS Sans Serif")
GUISetBkColor(0xFFFFFF)
Local $Label = GUICtrlCreateLabel('Fortschritt:' & @CRLF, 2, 2, 190, 105)
GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUISetState(@SW_SHOW)
Local $Datei = @ScriptDir & "\Spiele\Gbrainy 0.70.exe"
Local $DateiName = StringTrimLeft($Datei, StringInStr($Datei, '\', 1, -1))
#EndRegion ### END Koda GUI section ###
Sleep(1000); <-------------------hier Installation von Gbrainy starten
GuiCtrlSetData($Label,GuiCtrlRead($Label) & $DateiName & @CRLF)
Sleep(1000); <-------------------hier eintragen wenn Gbrainy fertig
$Datei = @ScriptDir & "\Spiele\Jose.exe"
$DateiName = StringTrimLeft($Datei, StringInStr($Datei, '\', 1, -1))
Sleep(1000); <-------------------hier Installation von Jose starten
GuiCtrlSetData($Label,GuiCtrlRead($Label) & $DateiName & @CRLF)
Sleep(1000); <-------------------hier eintragen wenn Jose fertig
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
mfg (Auto)Bert
Hallo mikel,
den Namen einer Anwendung ermittle ich immer so:
#include <File.au3>
Local $drive,$dir,$Name,$ext
Local $exe = "C:\Irgendwo\in einem UnterOrdner\dernameder.exe" ;(die ich in der .ini datei festgelegt habe)
_PathSplit($exe, $drive,$dir,$Name,$ext)
MsgBox(0,'So Klappts immer',$Name)
Ich weiss aber dass es noch viele andere gangbare Lösungen gibt,
mfg (Auto)Bert
Hallo McKaktus,
falls deine Aufgabe nicht zeitkritisch ist könntest du einfach deine ListViewItems löschen und alle erneut einlesen,
mfg (Auto)Bert
Hallo zusammen,
Ver.08.1beta 2009.05.21
_EditBox wurde um die Möglichkeit erweitert, ein Array mit zulässigen Eingaben zu übergeben, so dass der Anwender gezwungen wird einen gültigen Wert einzugeben
Achtung: 1 neuer Parameter kam hinzu:
;===============================================================================
;Function Name..: _EditBox($sQuestion, [, $sTitle] [, $hParent] [, $sEditStyle] [$aAllowed] [, $iWidth] [, $iHeight] [, $iLeft] [, $iTop], $hCaller)
;Description....: zeigt eine Gui mit einer Eingabeufforderung und einem EditFeld
;Parameter(s)...: $iQuestion = Eingabeaufforderung
; $sTitle = Fenstertitel (optional)
; $hParent = ID des aufrufenden Fensters (optional, Stabdard = 0)
; wenn dieser Parameter übergeben wird verhält wird das Anzeigefenster
; Modal angezeigt, d.h. es ist automatisch im Vordergrund
; vor dem aufrufenden Fenster (verliert aber leider den Focus, beim Wechsel
; zu anderer Anwendung und wieder zurück, d.h man muß einmal in das Fenster klicken)
; $sEditStyle = Edit-Style für EditCtrl (optional)
; $aAllowed = Array mit erlaubten (optional)
; Rückgabewerten
; $sGuiStyle = Gui-Style für Anzeigefenster (optional)
; $iWidth = Breite des Fensters (optional, Standard = 400 Pixel)
; $iHeight = Höhe des Fensters (optional, Standard = 300 Pixel)
; $iLeft = Abstand von links (optional, Standard = zentriert)
; $iTop = Abstand von oben (optional, Standard = zentriert)
; $hnFocused = Steuerelement, das nach (optional, Standard = 0) funktioniert nur zusammen mit $hParent
; beendigen von _EditBox, den Focus erhält
;Return Value...: $sAnswer
;Author.........: (Auto)Bert
; Vorlage GUI-Darstellung Oscar's (http://www.autoit.de) _StringDisplay
; in Anfängerfragen zur GUI(Checkbox,Inputbox und welches Gui Konzept) Beitrag #5
;===============================================================================
Also Anregungen, Kritik, alles wird angenommen und freudig erwartet
Version aktuell und History:
0.8.1b2 2009.05.21 Array mit zulässigen Einagben hinzugefügt Im Anhang Zip mit UDF und OnEventModeDemo
0.8.1b 2009.05.21 Array mit zulässigen Einagben hinzugefügt Im Anhang Zip mit UDF und OnEventModeDemo (leider 0.8.0)
0.8.0 2009.05.06 Vorstellung der _EditBox [zu Demozwecken für Jusuba2009]
mfg (Auto)Bert
Hallo vassilis,
in deinem jetzigen Skript ist ein Wort in einere Zeile getauscht:
$Label1 = GUICtrlCreateLabel("Chat-Flooder 1.0.0", 264, 0, 91, 17)
[autoit][/autoit]anstelle von "Chat-Flooder 1.0.0" heist es jetzt ">Form1<". Die Antwort von GtaSpider dazu ist wohl eindeutig genug.
Hallo
Sach mal, denkt ihr wir haben die Forenegelnzum Spaß?
Hier werden weder (Spiele)Bots gedultet noch illegale Programme (wie z.B. "Chat Flooder")
Langsam nervt das. Topic closed!
Mfg Spider
Ich verstehe nicht wie du da heraus lesen willst, das du den Beitrag nochmal posten sollst,
Edit1: GtaSpider , falls ich eine PM nicht kenne, kannst du das ja klarstellen
mfg (Auto)Bert
Hallo Jusuba2009,
falls du dieses meinst:
$parameter = InputBox("<< Parameter für Programm >>", "Bitte Parameter eingeben und OK drücken!" & @CRLF & @CRLF & "Cancel = Übergabe ohne Parameter", "/L=,", "", -1,-1,$wertFensterXPosAusINI+100,$wertFensterYPosAusINI+20)
[/autoit]Hierzu fällt mir leider keine Lösung ein, ausser vielleicht einmal die _MsgBox UDF von Commander21 zu testen (im Forum Skripte), bin mir aber jetzt auch nicht sicher ob die das kann. Notfalls musst du halt noch ein GUI-Fenster selber erstellen und einbinden.
Edit1: hab eine UDF erstellt (siehe https://autoit.de/index.php?page…92640#post92640
mfg (Auto)Bert
Hallo Jusuba2009,
muss dann so aussehen:
Func GUI3 ()
$meineGUI3 = GUICreate("Pfade-Verwaltung", 300, 150, -1, -1,$WS_CAPTION)
Schön, das die Lösung funktioniert, hätte aber auch geklappt wenn du meine Frage (Idee) bzw. Raupis Skript für dein Projekt umgesetzt hättest.
mfg (Auto)Bert
Hallo jusuba2009,
also Raupis Skript hat bei mir wunderbar funktioniert, gab mir die Mühe gemacht dein Projekt anzupassen. Hier das Skript dazu:
; ------------------------------------------------------------------------------
; AutoIt 3.0.103
; Projektbeginn am 12 April 2009 - (c) Jürgen Assmann
; Dieses Script ist ein Programm zur Auswahl von Verzeichnissen;
; und übergibt diese der Zwischenablage oder dem DateiManager/Editor
; GUI1 = Hauptfenster, GUI2 = Einstellungsfenster, GUI3 = Pfadeverwaltung
; ------------------------------------------------------------------------------
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GuiStatusBar.au3>
#include <GuiListBox.au3>
#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]HotKeySet("^o", "OeffneINIDatei")
HotKeySet("^e", "GUI2")
HotKeySet("^p", "GUI3")
Local $statusbar1Teilung[2] = [200, 360]
Local $statusbar1Text[3] = ["VerzeichnisTool", @TAB & "(c) 2009 von Jürgen Assmann", @TAB & "Version 0.55"]
Global $aktPfad, $aktHilfedatei, $pfadEditorPlusDatei
Global $anwendung, $tab, $anzahl, $listenfeld, $pfadangaben
Global $statusbar1, $statusbar1Text, $statusbar2, $statusbar2Text, $statusbar3, $statusbar3Text
Global $wertFensterXPosAusINI, $wertFensterYPosAusINI, $nameExplorerAusINI, $nameEditorAusINI
Global $auswahlAusCombofeld, $ergebisPfadAusDialog1, $wertePfadeAusINI, $ergebisPfadAusDialog2
Global $wertCheckboxAutomatismus, $wertCheckboxPrivatmodus, $wertCheckboxExpertenmodus
Global $werteFensterPositionen, $wertFensterxPosition, $wertFensteryPosition
$aktPfad = @WorkingDir
$aktHilfedatei = $aktPfad & "\" & "Auswahl.chm"
call ("GUI1ErstelleNeueINI")
[/autoit] [autoit][/autoit] [autoit]$wertFensterXPosAusINI = IniRead($aktPfad & "\" & "Auswahl.ini", "xPosition", "Position", "kein Fund")
$wertFensterYPosAusINI = IniRead($aktPfad & "\" & "Auswahl.ini", "yPosition", "Position", "kein Fund")
$nameEditorAusINI = IniRead($aktPfad & "\" & "Auswahl.ini", "Editor", "Programmpfad", "kein Fund")
$pfadEditorPlusDatei = $nameEditorAusINI & " " & $aktPfad & "\" & "auswahl.ini"
$nameExplorerAusINI = IniRead($aktPfad & "\" & "Auswahl.ini", "DateiExplorer", "Programmpfad", "kein Fund")
$wertCheckboxAutomatismus = IniRead($aktPfad & "\" & "Auswahl.ini", "Automatismus", "Aktiv", "kein Fund")
$wertCheckboxPrivatmodus = IniRead($aktPfad & "\" & "Auswahl.ini", "Privatmodus", "Aktiv", "kein Fund")
if $wertCheckboxPrivatmodus = 1 then $pfadangaben = "PfadePrivat"
if $wertCheckboxPrivatmodus = 4 then $pfadangaben = "PfadeGeschaeft"
$pfadangaben = "PfadePrivat" ;<-------------------------------------wieder löschen
; ------------------------------------------------------------------------------
; GUI1
; Erstellen der GUI mit x- und y-Fenster-Position, Icon aus akt. Pfad in Fenster
; einbinden und Fenster an gespeicherte Fensterposition bewegen (aus INI-Datei)
; ------------------------------------------------------------------------------
$GUI1 = GuiCreate("VerzeichnisTool", 430, 200, -1, -1)
GuiSetIcon($aktPfad & "\" & "Auswahl.ico", 0)
GUISetHelp(@WindowsDir & '\hh.exe "' & $aktHilfedatei & '"')
WinMove("VerzeichnisTool", "", $wertFensterXPosAusINI, $wertFensterYPosAusINI)
; ------------------------------------------------------------------------------
; MENU
; Erstellen des Dateimenüs mit entsprechenden Untermenüpunkten, mit Alt+-Taste
; (& vor Buchstabe = Unterstrichen) anwählen, Wörter im Menü/Item können mit
; CHR(34) = " oder & = Leerzeichen ergänzt werden
; ------------------------------------------------------------------------------
$dateimenu = GUICtrlCreateMenu ("&Datei")
$beendenitem = GUICtrlCreateMenuitem ("&Beenden Alt+F4",$dateimenu)
$bearbeitenmenu = GUICtrlCreateMenu ("&Bearbeiten")
$oeffnenitem = GUICtrlCreateMenuitem ("Ö&ffne" & " " & CHR(34) & "auswahl.ini" & CHR(34) & " Strg+O",$bearbeitenmenu)
$kopierenitem = GUICtrlCreateMenuitem ("&Kopieren Strg+C",$bearbeitenmenu)
; GUICtrlSetState(-1,$GUI_DEFBUTTON)
$extrasmenu = GUICtrlCreateMenu ("E&xtras")
$pfadeverwaltenitem = GUICtrlCreateMenuitem ("&Pfade verwalten Strg+P",$extrasmenu)
$einstellungenitem = GUICtrlCreateMenuitem ("&Einstellungen Strg+E",$extrasmenu)
$hilfemenu = GUICtrlCreateMenu ("&?")
$hilfeitem = GUICtrlCreateMenuitem ("&Hilfe F1",$hilfemenu)
$infoitem = GUICtrlCreateMenuitem ("Inf&o",$hilfemenu)
; ------------------------------------------------------------------------------
; Button
; Button (ohne Icon) zum Anwählen des Untermenüs "Pfade-Verwaltung"
; ------------------------------------------------------------------------------
$buttonPfadeVerwaltung = GUICtrlCreateButton("=>", 405, 15, 20, 20)
GUICtrlSetTip(-1, "Öffnet das Fenster 'Pfade-Verwaltung'!")
; ------------------------------------------------------------------------------
; COMBO
; Auswahlmenü ohne Scollbalken mit eingelesenen Pfadangaben (aus INI-Datei)
; ------------------------------------------------------------------------------
$combofeld1 = GUICtrlCreatecombo ("", 45,15,355,100 )
GUICtrlSetTip(-1, "Öffnet Combofeld mit eingelesenen Pfaden!")
_iniRead();<--------------------------------------------------------------------- in Func ausgelagert
; ------------------------------------------------------------------------------
; CONTEXT MENU
; wenn aktiv kann dieses Menü mit der rechten Maustaste aufgerufen werden
; ------------------------------------------------------------------------------
; $contextMenu = GuiCtrlCreateContextMenu()
; GuiCtrlCreateMenuItem("Context Menu", $contextMenu)
; GuiCtrlCreateMenuItem("", $contextMenu) ;separator
; GuiCtrlCreateMenuItem("&Properties", $contextMenu)
; ------------------------------------------------------------------------------
; Statusbar1
; wird am unteren Bildschirmrand erstellt (1. Teiler, 2. Teiler .. plus Text)
; ------------------------------------------------------------------------------
$statusbar1 = _GUICtrlStatusBar_Create($GUI1, $statusbar1Teilung, $statusbar1Text)
; ------------------------------------------------------------------------------
; Textfeld
; erstellt ein Textfeld an Fensterposition x,y (opt. Textbreite/-höhe)
; ------------------------------------------------------------------------------
GuiCtrlCreateLabel("Pfade:", 5, 18)
GUICtrlSetTip(-1, "Zeigt den Pfad aus der Zwischenablage an!")
GUISetState()
[/autoit] [autoit][/autoit] [autoit]; ------------------------------------------------------------------------------
; GUI MESSAGE LOOP1
; Abfrage des Hauptfensters nach bestimmten Ereignissen (Mausklick auf Buttons,
; Schließen-Feld, Menüeinträge und Combofeld und ESC-Taste
; ------------------------------------------------------------------------------
Do
$msg = GUIGetMsg()
if $msg = $beendenitem then
Call ("GUI1Exit")
exit
endif
if $msg = $oeffnenitem then
Call ("OeffneINIDatei")
$statusbar1Text = "INI-Datei geöffnet"
_GUICtrlStatusBar_SetText ($statusbar1, $statusbar1Text)
endif
if $msg = $kopierenitem then
Call ("MeinKopieren")
$statusbar1Text = "Pfad => Zwischenablage"
_GUICtrlStatusBar_SetText ($statusbar1, $statusbar1Text)
endif
if $msg = $buttonPfadeVerwaltung then
Call ("GUI3")
$statusbar1Text = "PfadeVerwaltung"
_GUICtrlStatusBar_SetText ($statusbar1, $statusbar1Text)
_iniRead();<------------------------------------------------------------------------
endif
if $msg = $pfadeverwaltenitem then
Call ("GUI3")
$statusbar1Text = "PfadeVerwaltung"
_GUICtrlStatusBar_SetText ($statusbar1, $statusbar1Text)
_iniRead();<-----------------------------------------------------------------------
endif
if $msg = $einstellungenitem then
Call ("GUI2")
$statusbar1Text = "Einstellungenmenü"
_GUICtrlStatusBar_SetText ($statusbar1, $statusbar1Text)
endif
if $msg = $infoitem then
msgbox(64,"Info über VerzeichnisTool", "Version 0.55" & @CRLF & "(C) Jürgen Assmann", 10)
$statusbar1Text = "Infomenü"
_GUICtrlStatusBar_SetText ($statusbar1, $statusbar1Text)
endif
if $msg = $hilfeitem then
run (@WindowsDir & '\hh.exe "' & $aktHilfedatei & '"')
$statusbar1Text = "Hilfe geöffnet"
_GUICtrlStatusBar_SetText ($statusbar1, $statusbar1Text)
endif
if $msg = $combofeld1 then
Call ("MeinKopieren")
if FileExists ($auswahlAusCombofeld) then
if $wertCheckboxAutomatismus = "1" then
$parameter = InputBox("<< Parameter für Programm >>", "Bitte Parameter eingeben und OK drücken!" & @CRLF & @CRLF & "Cancel = Übergabe ohne Parameter", "/L=,", "", -1,-1,$wertFensterXPosAusINI+100,$wertFensterYPosAusINI+20)
run ($nameExplorerAusINI & " " & $parameter & " " & $auswahlAusCombofeld)
else
run ($nameExplorerAusINI)
endif
$statusbar1Text = "Pfad geöffnet"
_GUICtrlStatusBar_SetText ($statusbar1, $statusbar1Text)
else
MsgBox(48," << Benutzerfehler >>", $auswahlAusCombofeld & @CRLF & @CRLF & "existiert NICHT !!!")
endif
endif
If $msg = -3 then
Call ("GUI1Exit")
exit
endif
Until $msg = $GUI_EVENT_CLOSE
Func _iniRead()
MsgBox(0,$aktPfad,$pfadangaben);<---------------------------------------wieder löschen
GUICtrlSetData($combofeld1,"");<------------wichtig
$wertePfadeAusINI = IniReadSection($aktPfad & "\" & "Auswahl.ini", $pfadangaben)
For $anzahl = 1 To $wertePfadeAusINI[0][0]
if @error = 2 then
else
GUICtrlSetData($combofeld1,$wertePfadeAusINI[$anzahl][1])
endif
next
EndFunc
; Funktionen für die GUI1
; ------------------------------------------------------------------------------
; Funktion - GUI1 - "Auswahl.ini" erstellen, wennn nicht vorhanden
; ------------------------------------------------------------------------------
Func GUI1ErstelleNeueINI()
If FileExists(@WorkingDir & "\" & "Auswahl.ini") then
else
IniWrite($aktPfad & "\" & "Auswahl.ini", "xPosition", "Position", "0")
IniWrite($aktPfad & "\" & "Auswahl.ini", "yPosition", "Position", "0")
IniWrite($aktPfad & "\" & "Auswahl.ini", "DateiExplorer", "Programmpfad", "explorer.exe")
IniWrite($aktPfad & "\" & "Auswahl.ini", "Editor", "Programmpfad", "notepad.exe")
IniWrite($aktPfad & "\" & "Auswahl.ini", "Automatismus", "Aktiv", "1")
IniWrite($aktPfad & "\" & "Auswahl.ini", "Privatmodus", "Aktiv", "1")
IniWrite($aktPfad & "\" & "Auswahl.ini", "Expertenmodus", "Aktiv", "1")
IniWrite($aktPfad & "\" & "Auswahl.ini", "PfadePrivat", "Pfad1", "C:\")
endif
EndFunc
; ------------------------------------------------------------------------------
; Funktion - GUI1-Fensterposition in "Auswahl.ini" schreiben und speichern
; ------------------------------------------------------------------------------
Func GUI1Exit()
Call ("GUI1Position")
Call ("GUI1PositionSchreiben")
EndFunc
; ------------------------------------------------------------------------------
; Funktion - GUI1-Fensterposition feststellen
; ------------------------------------------------------------------------------
Func GUI1Position()
$werteFensterPositionen = WinGetPos("VerzeichnisTool")
$wertFensterxPosition = $werteFensterPositionen[0]
$wertFensteryPosition = $werteFensterPositionen[1]
EndFunc
; ------------------------------------------------------------------------------
; Funktion - GUI1-Fensterposition in "Auswahl.ini" speichern
; ------------------------------------------------------------------------------
Func GUI1PositionSchreiben()
IniWrite($aktPfad & "\" & "Auswahl.ini", "xPosition", "Position", $wertFensterxPosition)
IniWrite($aktPfad & "\" & "Auswahl.ini", "yPosition", "Position", $wertFensteryPosition)
EndFunc
; ------------------------------------------------------------------------------
; Funktion - Öffnen der INI-Datei im eingestellten Editor
; ------------------------------------------------------------------------------
Func OeffneINIDatei()
run ($pfadEditorPlusDatei)
EndFunc
; ------------------------------------------------------------------------------
; Funktion - Die Auswahl aus dem Combofeld in den Zwischenspeicher kopieren
; ------------------------------------------------------------------------------
Func MeinKopieren()
$auswahlAusCombofeld = GUICtrlRead($combofeld1, 1)
ClipPut($auswahlAusCombofeld)
EndFunc
; Funktionen für die GUI2
; ------------------------------------------------------------------------------
; Funktion - DateiExplorername und evtl. Pfad in "Auswahl.ini" abspeichern
; ------------------------------------------------------------------------------
Func GUI2Explorer()
IniWrite($aktPfad & "\" & "Auswahl.ini", "DateiExplorer", "Programmpfad", $nameExplorerAusINI)
EndFunc
; ------------------------------------------------------------------------------
; Funktion - Editorname und evtl. Pad in "Auswahl.ini" abspeichern
; ------------------------------------------------------------------------------
Func GUI2Editor()
IniWrite($aktPfad & "\" & "Auswahl.ini", "Editor", "Programmpfad", $nameEditorAusINI)
EndFunc
; ------------------------------------------------------------------------------
; Funktion - Wert der Checkbox "Automatismus" in "Auswahl.ini" abspeichern
; ------------------------------------------------------------------------------
Func GUI2Automatismus()
IniWrite($aktPfad & "\" & "Auswahl.ini", "Automatismus", "Aktiv", $wertCheckboxAutomatismus)
EndFunc
; ------------------------------------------------------------------------------
; Funktion - Wert der Checkbox "Privatmodus" in "Auswahl.ini" abspeichern
; ------------------------------------------------------------------------------
Func GUI2Privatmodus()
IniWrite($aktPfad & "\" & "Auswahl.ini", "Privatmodus", "Aktiv", $wertCheckboxPrivatmodus)
EndFunc
; ------------------------------------------------------------------------------
; Funktion - Wert der Checkbox "Expertenmodus" in "Auswahl.ini" abspeichern
; ------------------------------------------------------------------------------
Func GUI2Expertmode()
IniWrite($aktPfad & "\" & "Auswahl.ini", "Expertenmodus", "Aktiv", $wertCheckboxExpertenmodus)
EndFunc
; ------------------------------------------------------------------------------
; Funktion - Dateiselektor aufrufen und Pfad an Variable übergeben
; ------------------------------------------------------------------------------
Func GUI2Dateisuche()
$ergebisPfadAusDialog1 = FileSaveDialog ("Datei auswählen", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "Alle (*.*)")
if @error = 1 then
$statusbar2Text = "Fehler > Defaultpfad wird gesetzt!"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
if GUICtrlRead($tab) = 1 then
$ergebisPfadAusDialog1 = "explorer.exe"
endif
if GUICtrlRead($tab) = 2 then
$ergebisPfadAusDialog1 = "notepad.exe"
endif
else
$statusbar2Text = "Datei wurde ausgewählt!"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
Endif
EndFunc
; ------------------------------------------------------------------------------
; Funktion - Einstellungenfenster öffnen und Einstellungen laden
; ------------------------------------------------------------------------------
Func GUI2()
$wertCheckboxAutomatismus = IniRead($aktPfad & "\" & "Auswahl.ini", "Automatismus", "Aktiv", "kein Fund")
$wertCheckboxPrivatmodus = IniRead($aktPfad & "\" & "Auswahl.ini", "Privatmodus", "Aktiv", "kein Fund")
$wertCheckboxExpertenmodus = IniRead($aktPfad & "\" & "Auswahl.ini", "Expertenmodus", "Aktiv", "kein Fund")
$nameExplorerAusINI = IniRead($aktPfad & "\" & "Auswahl.ini", "DateiExplorer", "Programmpfad", "kein Fund")
$nameEditorAusINI = IniRead($aktPfad & "\" & "Auswahl.ini", "Editor", "Programmpfad", "kein Fund")
$meineGUI2 = GUICreate("Einstellungen", 300, 150, -1, -1, 0x00C00000)
WinSetOnTop("Einstellungen", "", 1)
Call ("GUI1Position")
WinMove("Einstellungen", "", $wertFensterxPosition+120, $wertFensteryPosition+40)
; ------------------------------------------------------------------------------
; Buttons - Speichern und Verwerfen der Einstellungen
; ------------------------------------------------------------------------------
$buttonSpeichern = GUICtrlCreateButton("Speichern",5,100)
GUICtrlSetState(-1,$GUI_FOCUS)
GUICtrlSetTip(-1, "Speichert Explorer- und Editorname sowie Zustand der Checkboxen!")
$buttonAbbrechen = GUICtrlCreateButton("Abbrechen",65,100)
GUICtrlSetTip(-1, "Verwirft Änderungen und beendet Fenster!")
; ------------------------------------------------------------------------------
; Statusbar2 - Erzeugt Statusbar
; ------------------------------------------------------------------------------
$statusbar2 = _GUICtrlStatusBar_Create($meineGUI2)
$statusbar2Text = "Allgem. Einstellugnen"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
; ------------------------------------------------------------------------------
; Tab mit 3 Items
; ------------------------------------------------------------------------------
$tab = GUICtrlCreateTab(5, 5, 290, 85)
; ------------------------------------------------------------------------------
; 1. Tab (Einstellungen mit drei Checkboxen)
; ------------------------------------------------------------------------------
$tabEinstellungen = GuiCtrlCreateTabItem("Einstellungen")
GuiCtrlCreateGroup("", 10, 25, 280, 60)
$checkboxAutomatismus = GUICtrlCreateCheckbox(" automatisch mit Pfad laden", 15, 35, 200)
GUICtrlSetTip(-1, "Wenn aktiv: Lädt Dateimanager + ausgew. Pfad!")
if $wertCheckboxAutomatismus = 1 then
GUICtrlSetState($checkboxAutomatismus, $GUI_CHECKED)
else
GUICtrlSetState($checkboxAutomatismus, $GUI_UNCHECKED)
endif
$checkboxPrivatmodus = GUICtrlCreateCheckbox(" Privatmodus", 15, 60, 95)
GUICtrlSetTip(-1, "Wenn aktiv: Private Pfade laden!")
if $wertcheckboxPrivatmodus = 1 then
GUICtrlSetState($checkboxPrivatmodus, $GUI_CHECKED)
else
GUICtrlSetState($checkboxPrivatmodus, $GUI_UNCHECKED)
endif
$checkboxExpertenmodus = GUICtrlCreateCheckbox(" Expertenmodus", 190, 60, 95, 20, $BS_AUTO3STATE)
GUICtrlSetTip(-1, "Wenn aktiv: Dateimanager + Editor können ausgew. werden!")
if $wertCheckboxExpertenmodus = 1 then
GUICtrlSetState($checkboxExpertenmodus, $GUI_CHECKED)
$aufrufDateiSelektorExplorer = "Ja"
$aufrufDateiSelektorEditor="Ja"
ELSE
if $wertCheckboxExpertenmodus = 2 then
GUICtrlSetState($checkboxExpertenmodus, $GUI_INDETERMINATE)
$aufrufDateiSelektorExplorer = "Nein"
$aufrufDateiSelektorEditor="Ja"
else
GUICtrlSetState($checkboxExpertenmodus, $GUI_UNCHECKED)
$aufrufDateiSelektorExplorer = "Nein"
$aufrufDateiSelektorEditor="Nein"
endif
endif
; ------------------------------------------------------------------------------
; 2. Tab (Datei Manager mit Radiobuttons, einem Eingabefeld und Dateiselektor)
; ------------------------------------------------------------------------------
$tabExplorer = GuiCtrlCreateTabItem("Datei Manager")
GuiCtrlCreateGroup("", 10, 25, 280, 60)
$radioDefaultExplorer = GuiCtrlCreateRadio("default ", 15, 35, 200)
GUICtrlSetTip(-1, "Wenn aktiv: Explorer wird als Dateimanager verwendet!")
$radioAlternativExplorer = GuiCtrlCreateRadio("alternativ", 15, 60, 80)
GUICtrlSetTip(-1, "Wenn aktiv: Dateimanager kann ausgew. werden!")
if $wertCheckboxExpertenmodus = 1 then
GuiCtrlSetState($radioDefaultExplorer, $GUI_UNCHECKED)
GuiCtrlSetState($radioAlternativExplorer, $GUI_CHECKED)
$eingabefeldExplorer = GUICtrlCreateInput($nameExplorerAusINI, 105, 60, 155, 20)
GUICtrlSetTip(-1, "Name des Dateimanagers!")
else
GuiCtrlSetState($radioDefaultExplorer, $GUI_CHECKED)
GuiCtrlSetState($radioAlternativExplorer, $GUI_UNCHECKED)
$eingabefeldExplorer = GUICtrlCreateInput($nameExplorerAusINI, 105, 60, 155, 20, $ES_READONLY)
GUICtrlSetTip(-1, "Name des Dateimanagers!")
endif
$buttonDateiselektorExplorer = GUICtrlCreateButton("", 265, 60, 20, 20, $BS_ICON)
GUICtrlSetTip(-1, "Altern. Dateimanager suchen!")
GUICtrlSetImage(-1, $aktPfad & "\" & "auswahl.ico", -1, 0)
; ------------------------------------------------------------------------------
; 3. Tab (Editor mit Radiobuttons, einem Eingabefeld und Dateiselektor)
; ------------------------------------------------------------------------------
$tabEditor = GuiCtrlCreateTabItem("Editor")
GuiCtrlCreateGroup("", 10, 25, 280, 60)
$radioDefaultEditor = GuiCtrlCreateRadio("default ", 15, 35, 200)
GUICtrlSetTip(-1, "Wenn aktiv: Notepad wird als Editor verwendet!")
$radioAlternativEditor = GuiCtrlCreateRadio("alternativ", 15, 60, 80)
GUICtrlSetTip(-1, "Wenn aktiv: Editor kann ausgew. werden!")
if $wertCheckboxExpertenmodus = 4 then
GuiCtrlSetState($radioDefaultEditor, $GUI_CHECKED)
GuiCtrlSetState($radioAlternativEditor, $GUI_UNCHECKED)
$eingabefeldEditor = GUICtrlCreateInput($nameEditorAusINI, 105, 60, 155, 20, $ES_READONLY)
GUICtrlSetTip(-1, "Name des Editors!")
else
GuiCtrlSetState($radioDefaultEditor, $GUI_UNCHECKED)
GuiCtrlSetState($radioAlternativEditor, $GUI_CHECKED)
$eingabefeldEditor = GUICtrlCreateInput($nameEditorAusINI, 105, 60, 155, 20)
GUICtrlSetTip(-1, "Name des Editors!")
endif
$buttonDateiselektorEditor = GUICtrlCreateButton("", 265, 60, 20, 20, $BS_ICON)
GUICtrlSetTip(-1, "Altern. Editor suchen!")
GUICtrlSetImage(-1, $aktPfad & "\" & "auswahl.ico", -1, 0)
GUICtrlCreateTabItem("") ; Beendet die Tab Definition
GUISetState()
; ------------------------------------------------------------------------------
; GUI MESSAGE LOOP2
; Abfrage des Fensters nach bestimmten Ereignissen (Mausklick auf Tabs, Buttons,
; Radiobuttons und Checkboxen
; ------------------------------------------------------------------------------
While 1
$msg = GUIGetMsg()
if $msg = $tab then
if GUICtrlRead($tab) = 0 then
$statusbar2Text = "Allgem. Einstellugnen"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
endif
if GUICtrlRead($tab) = 1 then
$statusbar2Text = "Einstellugnen für Dateimanager"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
endif
if GUICtrlRead($tab) = 2 then
$statusbar2Text = "Einstellugnen für Editor"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
endif
endif
if $msg = $buttonAbbrechen then
GUIDelete()
ExitLoop
endif
if $msg = $buttonSpeichern then
WinSetTitle($meineGUI2, "", "Einstellungen:")
$nameExplorerAusINI = GUICtrlRead($eingabefeldExplorer)
Call ("GUI2Explorer")
$nameEditorAusINI = GUICtrlRead($eingabefeldEditor)
Call ("GUI2Editor")
$wertCheckboxAutomatismus = GUICtrlRead($checkboxAutomatismus)
Call ("GUI2Automatismus")
$wertCheckboxPrivatmodus = GUICtrlRead($checkboxPrivatmodus)
Call ("GUI2Privatmodus")
$wertCheckboxExpertenmodus = GUICtrlRead($checkboxExpertenmodus)
Call ("GUI2Expertmode")
GUIDelete()
ExitLoop
endif
if $msg = $radioDefaultExplorer And BitAND(GUICtrlRead($radioDefaultExplorer), $GUI_CHECKED) then
WinSetTitle($meineGUI2, "", "* Einstellungen:")
GUISwitch($meineGUI2, $tabExplorer)
$statusbar2Text = "Defaultmodus"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
$ergebisPfadAusDialog1 = "explorer.exe"
GUICtrlSetData ($eingabefeldExplorer,$ergebisPfadAusDialog1)
$aufrufDateiSelektorExplorer = "Nein"
if GUICtrlRead($radioDefaultEditor) = 1 then
GUICtrlSetState($checkboxExpertenmodus, $GUI_UNCHECKED)
else
GUICtrlSetState($checkboxExpertenmodus, $GUI_INDETERMINATE)
endif
endif
if $msg = $radioAlternativExplorer And BitAND(GUICtrlRead($radioAlternativExplorer), $GUI_CHECKED) then
WinSetTitle($meineGUI2, "", "* Einstellungen:")
GUISwitch($meineGUI2, $tabExplorer)
$statusbar2Text = "Alternativmodus"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
$ergebisPfadAusDialog1 = "explorer.exe"
GUICtrlSetData($eingabefeldExplorer, $ergebisPfadAusDialog1)
$aufrufDateiSelektorExplorer = "Ja"
if GUICtrlRead($radioAlternativEditor) = 1 then
GUICtrlSetState($checkboxExpertenmodus, $GUI_CHECKED)
else
GUICtrlSetState($checkboxExpertenmodus, $GUI_INDETERMINATE)
endif
Endif
if $msg = $radioDefaultEditor And BitAND(GUICtrlRead($radioDefaultEditor), $GUI_CHECKED) then
WinSetTitle($meineGUI2, "", "* Einstellungen:")
GUISwitch($meineGUI2, $tabEditor)
$statusbar2Text = "Defaultmodus"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
$ergebisPfadAusDialog1 = "notepad.exe"
GUICtrlSetData($eingabefeldEditor,$ergebisPfadAusDialog1)
$aufrufDateiSelektorEditor = "Nein"
if GUICtrlRead($radioDefaultExplorer) = 1 then
GUICtrlSetState($checkboxExpertenmodus, $GUI_UNCHECKED)
else
GUICtrlSetState($checkboxExpertenmodus, $GUI_INDETERMINATE)
endif
endif
if $msg = $radioAlternativEditor And BitAND(GUICtrlRead($radioAlternativEditor), $GUI_CHECKED) then
WinSetTitle($meineGUI2, "", "* Einstellungen:")
GUISwitch($meineGUI2, $tabEditor)
$statusbar2Text = "Alternativmodus"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
$ergebisPfadAusDialog1 = "notepad.exe"
GUICtrlSetData($eingabefeldEditor ,$ergebisPfadAusDialog1)
$aufrufDateiSelektorEditor = "Ja"
if GUICtrlRead($radioAlternativExplorer) = 1 then
GUICtrlSetState($checkboxExpertenmodus, $GUI_CHECKED)
else
GUICtrlSetState($checkboxExpertenmodus, $GUI_INDETERMINATE)
endif
Endif
if $msg = $buttonDateiselektorExplorer then
if $aufrufDateiSelektorExplorer = "Ja" then
Call ("GUI2Dateisuche")
WinSetTitle($meineGUI2, "", "* Einstellungen:")
GUISwitch($meineGUI2, $tabExplorer)
GUICtrlSetData($eingabefeldExplorer ,$ergebisPfadAusDialog1)
GUICtrlSetData($eingabefeldExplorer, $ergebisPfadAusDialog1)
else
$statusbar2Text = "Fehler > Kein Aufruf möglich!"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
endif
endif
if $msg = $buttonDateiselektorEditor then
if $aufrufDateiSelektorEditor = "Ja" then
Call ("GUI2Dateisuche")
WinSetTitle($meineGUI2, "", "* Einstellungen:")
GUISwitch($meineGUI2, $tabEditor)
GUICtrlSetData( $eingabefeldEditor ,$ergebisPfadAusDialog1)
GUICtrlSetData($eingabefeldEditor, $ergebisPfadAusDialog1)
else
$statusbar2Text = "Fehler > Kein Aufruf möglich!"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
endif
endif
if $msg = $checkboxAutomatismus And BitAND(GUICtrlRead($checkboxAutomatismus), $GUI_CHECKED) then
$statusbar2Text = "Programm + Pfad laden"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
WinSetTitle($meineGUI2, "", "* Einstellungen:")
endif
if $msg = $checkboxAutomatismus And BitAND(GUICtrlRead($checkboxAutomatismus), $GUI_UNCHECKED) then
$statusbar2Text = "nur Programm laden"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
WinSetTitle($meineGUI2, "", "* Einstellungen:")
endif
if $msg = $checkboxPrivatmodus And BitAND(GUICtrlRead($checkboxPrivatmodus), $GUI_CHECKED) then
$statusbar2Text = "private Pfade laden => Neustart nötig!"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
WinSetTitle($meineGUI2, "", "* Einstellungen:")
endif
if $msg = $checkboxPrivatmodus And BitAND(GUICtrlRead($checkboxPrivatmodus), $GUI_UNCHECKED) then
$statusbar2Text = "geschäftliche Pfade laden => Neustart nötig!"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
WinSetTitle($meineGUI2, "", "* Einstellungen:")
endif
If $msg = $checkboxExpertenmodus And BitAND(GUICtrlRead($checkboxExpertenmodus), $GUI_CHECKED) then
$statusbar2Text = "Expertenmodus"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
WinSetTitle($meineGUI2, "", "* Einstellungen:")
GUICtrlSetState($radioDefaultExplorer, $GUI_UNCHECKED)
GUICtrlSetState($radioAlternativExplorer, $GUI_CHECKED)
GUICtrlSetState($radioDefaultEditor, $GUI_UNCHECKED)
GUICtrlSetState($radioAlternativEditor, $GUI_CHECKED)
endif
If $msg = $checkboxExpertenmodus And BitAND(GUICtrlRead($checkboxExpertenmodus), $GUI_INDETERMINATE) then
$statusbar2Text = "Default-/Expertenmodus"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
WinSetTitle($meineGUI2, "", "* Einstellungen:")
GUICtrlSetState($radioDefaultExplorer, $GUI_CHECKED)
GUICtrlSetState($radioAlternativExplorer, $GUI_UNCHECKED)
GUICtrlSetState($radioDefaultEditor, $GUI_UNCHECKED)
GUICtrlSetState($radioAlternativEditor, $GUI_CHECKED)
endif
If $msg = $checkboxExpertenmodus And BitAND(GUICtrlRead($checkboxExpertenmodus), $GUI_UNCHECKED) then
$statusbar2Text = "Defaultmodus"
_GUICtrlStatusBar_SetText ($statusbar2, $statusbar2Text)
WinSetTitle($meineGUI2, "", "* Einstellungen:")
GUICtrlSetState($radioDefaultExplorer, $GUI_CHECKED)
GUICtrlSetState($radioAlternativExplorer, $GUI_UNCHECKED)
GUICtrlSetState($radioDefaultEditor, $GUI_CHECKED)
GUICtrlSetState($radioAlternativEditor, $GUI_UNCHECKED)
endif
WEnd
EndFunc
; Funktionen für die GUI3
; ------------------------------------------------------------------------------
; Funktion - Gelistete Pfade in "Auswahl.ini" schreiben
; ------------------------------------------------------------------------------
Func GUI3PfadeLesenUndSpeichern ()
DIM $pfadeAusListe[30][2]
[/autoit] [autoit][/autoit] [autoit]Local $maxListenElemente
$maxListenElemente = _GUICtrlListBox_GetCount($listenfeld)
IniDelete($aktPfad & "\" & "Auswahl.ini", $pfadangaben)
For $anzahl = 1 To $maxListenElemente
$pfadeAusListe[$anzahl][1] = _GUICtrlListBox_GetText($listenfeld, $anzahl -1)
IniWrite($aktPfad & "\" & "Auswahl.ini", $pfadangaben, "Pfad" & $anzahl, $pfadeAusListe[$anzahl][1])
$statusbar3Text = "Pfade gespeichert!"
_GUICtrlStatusBar_SetText ($statusbar3, $statusbar3Text)
next
EndFunc
; ------------------------------------------------------------------------------
; Funktion - Pfade in "Auswahl.ini" löschen
; ------------------------------------------------------------------------------
Func GUI3PfadeLoeschen ()
_GUICtrlListBox_ResetContent($listenfeld)
IniDelete($aktPfad & "\" & "Auswahl.ini", $pfadangaben)
IniWrite($aktPfad & "\" & "Auswahl.ini", $pfadangaben, "Pfad", "")
$statusbar3Text = "Alle Pfade gelöscht!"
_GUICtrlStatusBar_SetText ($statusbar3, $statusbar3Text)
EndFunc
; ------------------------------------------------------------------------------
; Funktion - Dateiselektor aufrufen
; ------------------------------------------------------------------------------
Func GUI3Dateisuche()
$ergebisPfadAusDialog2 = FileSelectFolder("Pfad auswählen", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
if @error = 1 then
$statusbar3Text = "Fehler > kein Pfad ausgewählt!"
_GUICtrlStatusBar_SetText ($statusbar3, $statusbar3Text)
else
$statusbar3Text = "Pfad wurde übernommen! => speichern?"
_GUICtrlStatusBar_SetText ($statusbar3, $statusbar3Text)
Endif
EndFunc
; ------------------------------------------------------------------------------
; Funktion - Verwaltungsfenster für Pfade öffnen
; ------------------------------------------------------------------------------
Func GUI3 ()
$meineGUI3 = GUICreate("Pfade-Verwaltung", 300, 150, -1, -1); 0x00C00000) <--------------------------------------
WinSetOnTop("Pfade-Verwaltung", "", 1)
Call ("GUI1Position")
WinMove("Pfade-Verwaltung", "", $wertFensterxPosition+120, $wertFensteryPosition+40)
; ------------------------------------------------------------------------------
; Buttons
; ------------------------------------------------------------------------------
$buttonSpeichern = GUICtrlCreateButton("Speichern", 225, 6, 70, 20)
GUICtrlSetTip(-1, "Speichert gelistete Pfade!")
$buttonAbbrechen = GUICtrlCreateButton("Abbrechen", 225, 31, 70, 20)
GUICtrlSetState(-1,$GUI_FOCUS)
GUICtrlSetTip(-1, "Verwirft Änderungen und beendet Fenster!")
$buttonHinzufuegen = GUICtrlCreateButton("Add", 225, 56, 70, 20)
GUICtrlSetTip(-1, "Fügt einen Pfad ein!")
$buttonLoeschen = GUICtrlCreateButton("Löschen", 225, 81, 70, 20)
GUICtrlSetTip(-1, "Löscht einen markierten Pfad!")
$buttonRuecksetzen = GUICtrlCreateButton("Rücksetzen", 225, 106, 70, 20)
GUICtrlSetTip(-1, "Leert die Pfadliste und speichert!")
; ------------------------------------------------------------------------------
; LISTENFELD
; ------------------------------------------------------------------------------
$listenfeld = GuiCtrlCreateList("", 5, 5, 215, 125)
GUICtrlSetTip(-1, "Liste der Pfade; alphabetisch sortiert!")
$wertePfadeAusINI = IniReadSection($aktPfad & "\" & "Auswahl.ini", $pfadangaben)
For $anzahl = 1 To $wertePfadeAusINI[0][0]
if @error = 2 then
else
GUICtrlSetData(-1,$wertePfadeAusINI[$anzahl][1])
endif
next
; ------------------------------------------------------------------------------
; Statusbar3
; ------------------------------------------------------------------------------
$statusbar3 = _GUICtrlStatusBar_Create($meineGUI3)
$statusbar3Text = "Pfade verwalten"
_GUICtrlStatusBar_SetText ($statusbar3, $statusbar3Text)
GUISetState()
; ------------------------------------------------------------------------------
; GUI MESSAGE LOOP3
; ------------------------------------------------------------------------------
While 1
$msg = GUIGetMsg()
if $msg = $buttonSpeichern then
Call ("GUI3PfadeLesenUndSpeichern")
WinSetTitle($meineGUI3, "", "Pfade-Verwaltung")
endif
if $msg = $buttonAbbrechen then
GUIDelete()
ExitLoop
endif
if $msg = $buttonHinzufuegen then
Call ("GUI3Dateisuche")
WinSetTitle($meineGUI3, "", "* Pfade-Verwaltung")
GuiCtrlSetData(-1, $ergebisPfadAusDialog2)
endif
if $msg = $buttonLoeschen then
if _GUICtrlListBox_GetCurSel($listenfeld) = -1 then
else
_GUICtrlListBox_DeleteString($listenfeld, _GUICtrlListBox_GetCaretIndex($listenfeld))
WinSetTitle($meineGUI3, "", "* Pfade-Verwaltung")
$statusbar3Text = "Pfad(e) gelöscht! => speichern?"
_GUICtrlStatusBar_SetText ($statusbar3, $statusbar3Text)
endif
$maxListenElemente = _GUICtrlListBox_GetCount($listenfeld)
if $maxListenElemente = 0 then
Call ("GUI3PfadeLoeschen")
WinSetTitle($meineGUI3, "", "Pfade-Verwaltung")
$statusbar3Text = "Alle Pfade gelöscht!"
_GUICtrlStatusBar_SetText ($statusbar3, $statusbar3Text)
endif
endif
if $msg = $buttonRuecksetzen then
Call ("GUI3PfadeLoeschen")
endif
WEnd
EndFunc
geänderte Stellen sind mit ;<------------------------------------------------------------- und Bemerkung gekennzeichnet,
mfg (Auto)Bert
Hallo MatthiasG.,
wollte gerade mit dem µit light - Kontrollzentrum die neue Aufgabe herunterladen, zeigt mir aber leider nur die Aufgabe vom April.
ps Ich weiss, wo ich sie finde, wollte dir nur mitteilen, dass das Kontrollzentrum noch nicht aktualisiert ist.
mfg (Auto)Bert
Hallo igromanru,
du hast leider recht, beim einlesen werden automatisch die Leerzeichen abgeschnitten. Du könntest dich aber mit einem "Ersatz"-zeichen behelfen, beim schreiben fügst du dieses an Stelle von Leerzeichen ein (siehe StringReplace) und beim auslesen das ganze wieder zurück. Tut mir leid, dass mir im Moment keine andere Lösung dafür einfällt,
mfg (Auto)Bert
Hallo Alina,
ctec verschlüsselt sehr wohl, es sind zwar kleine Fehler bei der Umsetzung, Leerstellen und Sonderzeichen werden bei Vigenère ignoriert (also orginal gelassen), dadurch fehlen nach dem entschlüsseln diese natürlich. Texte sind aber trotzdem lesbar (mit Schönheitsfehlern), wenn er nach der selben Methode entschlüsselt. Brutforce scheint an folgendem Text:
Klrdumo imm fme kfxwoij Tihz, utsm ajx weh Qbijtr nbe Mbgygèsi zehtboxvg Pxfgeykeh qphzxrnx Uiome fwuxves Aävjzzkybhteetlsls oetcexb orgn. Wo uxr Wouieuahd tmew xbs Flvhmmocieoelmsjplggyg güi Dynhtgy, Ygummjvh, Tseesömbgdl, Intzjiebswa vru Lumsjr zemisjgyxrn.
zu scheitern, aber dazu demnächst (Zeif?) mehr,
Edit1: musste meinen Rechner leider einmal herunterfahren, bevor Brutforce fertig war (ich sehs als gescheitert an). Das noch niemand den obigen Text im Original eingestellt hat, wundert mich aber doch.
mfg (Auto)Bert
Hallo jusuba2009,
dein Teilskript funktioniert wunderbar, der Fehler muss also in dem anderen Teil passieren. Löschst du denn nach der Rückkehr die ComboBox und liest sie erneut ein?
mfg (Auto)Bert
Edit: @Ynkelonium, wenn du dein Skript postest, kann man dir vielleicht helfen
Hallo sen,
gute Arbeit 
, besonders hat mir deine Lösung von Updates gefallen. Als Anregung evtl. könntest du auch noch Datei->Neu bzw. Öffnen und Speichern unter einfügen, damit man auch andere Dateien schnell erstellen und wieder bearbeiten kann,
mfg (Auto)Bert
Hallo Commander21,
Die User, die Windows 98, 2000, Vista oder Linux ... haben, könnten mal gucken, wo deren Sounds sind, sodass man es einrichten kann, dass je nach Betribssystem die richtigen Sounds kommen.
das mit Linux wird wohl nicht klappen, siehe Auszug aus Hilfe:
Kompatibel mit Windows 95 / 98 / ME / NT4 / 2000 / XP / 2003 / Vista / 2008
mfg (Auto)Bert
Hallo s.koni,
teste doch mal die UDF _MSGBox von Commander21, findest du im Forum Skripte,
mfg (Auto)Bert
