Hi Leute
mir war heute bzw gestern abend wieder mal langeweilig (OH GRAUS^^) und dabei hab ich das folgende Script verbrochen:
Spoiler anzeigen
#include <GUIConstantsEx.au3>
If Not FileExists("data.txt") Then
$datei = FileOpen("data.txt", 2)
$pfad = FileSelectFolder("Bitte den Include-Ordner suchen", @ProgramFilesDir)
FileWrite($datei, $pfad)
FileClose($datei)
Else
$datei = FileOpen("data.txt", 0)
$pfad = FileRead($datei)
FileClose($datei)
EndIf
#Region Gui
Opt("TrayMenuMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayMenuMode", 1)
$Form2 = GUICreate(".au3 Saver by Padmak", 629, 632, -1, -1)
$Edit1 = GUICtrlCreateEdit("", 10, 30, 605, 519)
$Label1 = GUICtrlCreateLabel("Hier den Quelltext der .au3-Datei eintragen", 10, 10, 205, 17)
$Label2 = GUICtrlCreateLabel("Name der .au3-Datei (z.B. myau3.au3)", 10, 550, 184, 17)
$Input1 = GUICtrlCreateInput("", 10, 570, 161, 21)
$Button1 = GUICtrlCreateButton("Im Include-Ordner erstellen", 180, 570, 145, 25, 0)
$Button2 = GUICtrlCreateButton("Auf Desktop speichern", 330, 570, 125, 25, 0)
$Button3 = GUICtrlCreateButton("In beliebigem Verzeichnis abspeichern", 10, 600, 285, 25, 0)
$Button4 = GUICtrlCreateButton("Beenden", 460, 600, 155, 25, 0)
$Button5 = GUICtrlCreateButton("In Tray minimieren", 460, 570, 155, 25, 0)
$Button6 = GUICtrlCreateButton("Edit-Feld löschen", 300, 600, 155, 25, 0)
TraySetClick("9")
$MenuItem1 = TrayCreateItem("Wiederherstellen")
$MenuItem2 = TrayCreateItem("")
$MenuItem3 = TrayCreateItem("Beenden")
GUISetState(@SW_SHOW)
#EndRegion Guid
While 1
$nMsg = GUIGetMsg()
Switch $nMsg ;==> Buttons usw. Switch-Schleife
Case $GUI_EVENT_MINIMIZE
Traytip(".au3-Saver","STRG+ALT+C drücken um aktuell markierten Text zu speichern",10)
GUISetState(@SW_HIDE)
HotKeySet("^!c", "clip")
Case $GUI_EVENT_CLOSE
Traytip(".au3-Saver","STRG+ALT+C drücken um aktuell markierten Text zu speichern",10)
GUISetState(@SW_HIDE)
HotKeySet("^!c", "clip")
Case $Button1 ;==> Au3 Datei erstellen
call("build")
Case $Button2 ;==> Auf Desktop speichern
$pfad = (@DesktopDir)
call("build")
Case $Button3 ;==> Beliebig speichern
$pfad = FileSelectFolder("Bitte den Speicherort wählen", "")
If @error Then
MsgBox(0, "Fehler", "Bitte einen Ordner wählen")
ContinueLoop
EndIf
call("build")
Case $Button4 ;==> exit
Exit
Case $Button5 ;==> Verstecken
Traytip(".au3-Saver","STRG+ALT+C drücken um aktuell markierten Text zu speichern",10)
GUISetState(@SW_HIDE)
HotKeySet("^!c", "clip")
Case $Button6
GUICtrlSetData($Edit1, "")
EndSwitch
$msg = TrayGetMsg()
Select ;==> Traymenü Select-Schleife
Case $msg = 0
ContinueLoop
Case $msg = $MenuItem1
GUISetState(@SW_SHOW)
Case $msg = $MenuItem3
Exit
EndSelect
WEnd
Func clip()
Send("^c")
$clip = ClipGet()
GUICtrlSetData($Edit1, $clip)
GUISetState(@SW_SHOW)
EndFunc
Func build()
$edit = GUICtrlRead($Edit1)
$name = GUICtrlRead($Input1)
$splitname = StringSplit($name, ".")
If @error = 1 Then
MsgBox(0, "Fehler", "Bitte den Dateinamen auf die .au3-Endung überprüfen")
Return
EndIf
If $edit = "" Then
MsgBox(0, "Fehler", "Bitte etwas in das Edit-Feld eintragen")
Return
EndIf
If $name = "" Then
MsgBox(0, "Fehler", "Bitte etwas als Name eintragen")
Return
EndIf
FileWrite($pfad & "\" & $name, $edit)
MsgBox(0, "Erfolgreich", "Das Script wurde erfolgreich erstellt")
EndFunc
Vielleicht kann dieses Script mal wer brauchen ich habs aus reiner Faulheit geschrieben
Padmak
Edit: Update, nun hab ich den Tip von Oscar (danke nochmal) verwendet
Bitte sagt doch ob es euch gefallen hat^^