Hi nasgul,
vor dem lesen kommt das Schreiben in eine ini-Datei, oder gibt’s die schon ?
Ich habe mit IniRead und IniWrith das Programm Running Disk ausgestattet, vielleicht ein erster Anhaltspunkt (siehe Scripte>RD Daten sichern).
Schönes OFest und weiterhin
viel Erfolg !
Hi,
geht doch !! 
#include<ButtonConstants.au3>
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<StaticConstants.au3>
#include<WindowsConstants.au3>
opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]Dim $myedit, $Status, $msg, $Btn_GET
Dim $s_text = "AutoIt v3 is a freeware BASIC-like scripting language" & @CRLF & _
"designed for automating the Windows GUI." & @CRLF & _
"It uses a combination of simulated keystrokes," & @CRLF & _
"mouse movement and window/control manipulation" & @CRLF & _
"in order to automate tasks in a way not possible" & @CRLF & _
"or reliable with other languages (e.g. VBScript and SendKeys)."
GUICreate("Edit Get Line", 392, 254)
[/autoit] [autoit][/autoit] [autoit]$myedit = GUICtrlCreateEdit($s_text, 140, 32, 121, 97, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $WS_VSCROLL, $WS_HSCROLL, $ES_MULTILINE))
GUICtrlSetLimit($myedit, 1500)
$Status = GUICtrlCreateLabel("", 0, 234, 392, 20, BitOR($SS_SUNKEN, $SS_CENTER))
$Btn_GET = GUICtrlCreateButton("Get Line 2", 150, 130, 90, 40, $BS_MULTILINE)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Btn_GET
Local $line = _GUICtrlEditGetLine($myedit, 2)
If @error == $EC_ERR Then
GUICtrlSetData($Status, "Line: Invalid")
Else
GUICtrlSetData($Status, "Line: " & $line)
EndIf
EndSelect
WEnd
GUIDelete()
Schönes OFest und weiterhin
viel Erfolg !
Ich habe Scite jetzt mal auf die 1.75er Version geupdatet und seitdem ist die Trojaner-Warnung weg. Hmmm...war es nun einer oder nicht?
Die 1.74er Version wird doch schon länger genutzt und erst jetzt kommt eine Warnung bei 2 Usern ? 
Hi,
nutzt Ihr vielleicht beide den "ResHacker.exe" ? Könnte das sein 
Hi,
Oscar war schneller!
so etwa meinte Oscar, Du musst die GUI auch auslesen
#include <GUIConstants.au3>
$Form2 = GUICreate("Form2", 238, 132, 303, 219)
$Input1 = GUICtrlCreateInput("Deine Eingabe", 24, 16, 193, 21)
$Button1 = GUICtrlCreateButton("Button1", 24, 64, 193, 49, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Input = GUICtrlRead($Input1)
MsgBox(48,"123","das ist dein name: " & $Input)
EndSwitch
WEnd
;GUICtrlRead($Input1)
[/autoit]
Schönes OFest und weiterhin
viel Erfolg !
Hi Eistee,
@Xeno Du bist zu schnell
hier ein Beispiel aus The Stick
; - The Stick - GUI
$GUI_Stick = GUICreate(" The Stick", 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
GUICtrlSetState(-1, $GUI_DISABLE)
Schönes OFest und weiterhin
viel Erfolg !
Hi Davor,
freuht mich für Dich, ich habe das Script im Anhang bei mir mit Erfolg geprüft.
Dein Beispiel aus Post 7 ist zwar keine Batchdatei, aber warscheinlich Deinem eigentlichen Ziel schon viel näher.
; by Ritzelrocker04
RunWait(@ComSpec & ' /c ' & "saubern.bat")
Schönes OFest und weiterhin
viel Erfolg !
Da von Zeit zu Zeit immer mal Fragen zu 7zip auftauchen, biete ich hier einmal einen kleinen Service zu 7zip.
Exe-Dateien, Zip, 7z, mit und ohne Passwort in AutoIT werden kurz vorgestellt.
Hiermit sind Alle eingeladen, ihre Erfarungen hier einzustellen und so für Andere über Hilfe/Suchen leichter zugänglich.
; by Ritzelrocker04
; Selbstentpackendes Archiv (EXE-Datei) erstellen mit 7zip
[/autoit] [autoit][/autoit] [autoit]; 1. Format exe
RunWait(@ComSpec & ' /c ' & "7z a -sfx " & "C:\TEST.exe " & "C:\TEST\*.*",@ScriptDir ,@SW_MINIMIZE)
; 2. Format exe
RunWait(@ComSpec & ' /c ' & "7z a -sfx " & "C:\TEST.exe " & "C:\TEST",@ScriptDir ,@SW_MINIMIZE)
; Zip-Archiv erstellen mit 7zip
[/autoit] [autoit][/autoit] [autoit]; 3. Format zip
RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\My Stick\USB-Stick-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir, @SW_MINIMIZE)
; 4. klassisch packen mit Variablen Format zip
$zip = '7z a -tzip ' ; Pfad zu 7zip
$archiv = 'archiv.zip ' ; Name des zu erstellenden ZIP-Archivs (anpassen)
$pfad = Chr(34) & @ScriptDir & '\test\' & Chr(34); Verzeichnis das gepackt werden soll (anpassen)
RunWait(@ComSpec & ' /c ' & $zip & $archiv & $pfad, @ScriptDir, @SW_HIDE)
; 5. klassisch packen mit Variablen in Funktion Format zip (by qon)
Func _zip($sZipname,$sFoldertozip)
If Fileexists(@scriptdir & "\7z.exe") <> 1 Then Seterror(1,0,0)
IF Fileexists($sFoldertozip) = 0 Then Seterror(2,0,0)
RunWait(@ComSpec & ' /c ' & '7z a -tzip ' & $sZipname & " " & Chr(34) & $sFoldertozip & "\" & Chr(34), @ScriptDir,@SW_HIDE)
IF @error <> 0 Then Seterror(3,0,0)
EndFunc
; packen mit Passwort und Verschlüsselung
[/autoit] [autoit][/autoit] [autoit]; 6. Format 7z
RunWait(@ComSpec & ' /c ' & "7z a -t7z " & "C:\TEST.7z " & '"C:\TEST" -pGeheim -mhe',@ScriptDir ,@SW_MINIMIZE)
; 7. Format exe
RunWait(@ComSpec & ' /c ' & "7z a -sfx " & "C:\TEST.exe " & '"C:\TEST" -pGeheim -mhe',@ScriptDir ,@SW_MINIMIZE)
Weiterhin viel Erfolg !
so meine ich natürlich und bitte mal überprüfen ob die *.bat überhaupt solo funktioniert !
RunWait(@ComSpec & ' /c ' & "Davor.bat")
Schönes OFest und weiterhin
viel Erfolg !
Hi Davor,
in Deinem Beispiel ist die Variable nicht nötig, es sollte auch so gehen. Wenn eine Batchdatei, warum dann noch AutoIT (im Fall dieses Beispiels)
Siehe im Anhang einige Anregungen
Schönes OFest und weiterhin
viel Erfolg !
Hi chris,
falsch Verstanden oder falsche Frage (Gui in Gui). Vieleicht so, Oscar hat diese Fenstertechnik für ein Fenster benutzt.
#Include <GUIConstants.au3>
#Include <File.au3>
#Include <Array.au3>
GUICreate('Recursive FileList v1.0 (Oscar for AutoIt.de)', @DesktopWidth-5, @DesktopHeight-95, 0, 0)
GUISetBKColor(0x888888) ; Hintergrundfarbe des Fensters
GUISetIcon(@SystemDir & '\shell32.dll', -20)
$button = GUICtrlCreateButton('Ordner auswählen', 10, 8, 120, 26)
GUICtrlSetFont(-1, 10, 400, 0, 'Arial')
$label = GUICtrlCreateLabel('', 150, 12, @DesktopWidth-160, 20)
GUICtrlSetFont(-1, 12, 400, 0, 'Times New Roman')
GUICtrlSetColor(-1, 0xffffff)
GUICtrlCreateLabel('Datei Nr. Größe (Bytes) Dateiname inkl. Pfad', 10, 45, @DesktopWidth-65, 20)
GUICtrlSetFont(-1, 10, 400, 0, 'Courier New')
GUICtrlSetColor(-1, 0xffffff)
$edit1 = GUICtrlCreateEdit('', 10, 65, @DesktopWidth-25, @DesktopHeight-170)
GUICtrlSetFont(-1, 10, 400, 0, 'Courier New')
Global $Files, $count, $Byte, $msg, $bBytes, $res, $unit, $start, $diff, $aFileList, $aBytes, $fpath
[/autoit] [autoit][/autoit] [autoit]GUISetState()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Button
$Files = ''
$Bytes = ''
$msg = ''
Start()
EndSwitch
WEnd
Func Start()
$fpath = FileSelectFolder('Bitte einen Ordner auswählen!', '')
If Not @error Then
$start = TimerInit()
If StringRight($fpath, 1) <> '\' Then $fpath &= '\'
GUICtrlSetData($label, $fpath)
$count = 0
_FileListToString($fpath)
GUICtrlSetData($label, 'Bereite Ausgabe vor. Bitte warten...')
$aFileList = StringSplit($Files, '|'); Array $aFileList enthält Auflistung aller Dateien inkl. Pfad
$aBytes = StringSplit($Bytes, '|'); Array $aBytes enthält die Byteanzahl jeder Datei
$bBytes = 0
$kmgBytes = 0
$unit = ' B)'
For $i = 1 To $aFileList[0]-1
$msg &= StringRight(' ' & xStringAddComma($i, '.', ','), 
& StringRight(' ' & xStringAddComma($aBytes[$i], '.', ','), 18) & ' ' & $aFileList[$i] & @CRLF
$bBytes += $aBytes[$i]
Next
If ($bBytes / 2^30) > 1 Then
$kmgBytes = Round($bBytes / 2^30, 2)
$unit = ' GB)'
ElseIf ($bBytes / 2^20) > 1 Then
$kmgBytes = Round($bBytes / 2^20, 2)
$unit = ' MB)'
ElseIf ($bBytes / 2^10) > 1 Then
$kmgBytes = Round($bBytes / 2^10, 2)
$unit = ' KB)'
EndIf
$res = ' ' & xStringAddComma($bBytes, '.', ',') & ' Bytes (' & xStringAddComma($kmgBytes, '.', ',') & $unit
$diff = TimerDiff($start)
GUICtrlSetData($label, Round($diff / 1000, 3) & ' sek. Pfad = "' & $fpath & '" ' & xStringAddComma($count, '.', ',') & ' Dateien ' & $res)
GUICtrlSetData($edit1, $msg)
EndIf
EndFunc
Func _FileListToString($path)
Local $hSearch, $sFile
$hSearch = FileFindFirstFile($path & '*.*')
If $hSearch <> -1 Then
While 1
$sFile = FileFindNextFile($hSearch)
If @error Then
SetError(0)
ExitLoop
EndIf
If StringInStr(FileGetAttrib($path & $sFile), "D") <> 0 Then ContinueLoop
$count += 1
$Bytes &= FileGetSize($path & $sFile) & '|'
$Files &= $path & $sFile & '|'
WEnd
FileClose($hSearch)
EndIf
_ReFileListToString($path)
EndFunc
Func _ReFileListToString($path)
GUICtrlSetData($label, $path)
Local $dFileList = _FileListToArray($path, '*', 2)
If IsArray($dFileList) Then
For $i = 1 To $dFileList[0]
Local $hSearch, $sFile
$hSearch = FileFindFirstFile($path & $dFileList[$i] & "\" & '*.*')
If $hSearch <> -1 Then
While 1
$sFile = FileFindNextFile($hSearch)
If @error Then
SetError(0)
ExitLoop
EndIf
If StringInStr(FileGetAttrib($path & $dFileList[$i] & "\" & $sFile), "D") <> 0 Then ContinueLoop
$count += 1
$Bytes &= FileGetSize($path & $dFileList[$i] & "\" & $sFile) & '|'
$Files &= $path & $dFileList[$i] & "\" & $sFile & '|'
WEnd
FileClose($hSearch)
EndIf
_ReFileListToString($path & $dFileList[$i] & '\')
Next
EndIf
EndFunc
Func xStringAddComma($sStr, $sSeparator = ',', $sEnd = '.')
Local $aNum = StringSplit($sStr, '.,'), $l = StringLen($aNum[1]), $r = ''
If $aNum[0] > 2 Then Return SetError(1, 0, $sStr)
Switch $l
Case 0 To 3
Return StringRegExpReplace($sStr, '[.,]', $sEnd)
Case Else
For $i = 1 To Int($l / 3)
$r = $sSeparator & StringRight($aNum[1], 3) & $r
$aNum[1] = StringTrimRight($aNum[1], 3)
Next
$r = StringTrimLeft($aNum[1] & $r, $aNum[1] = '')
If $aNum[0] > 1 Then $r &= $sEnd & $aNum[2]
Return $r
EndSwitch
EndFunc
Schönes WE und weiterhin
viel Erfolg !
Hi Autoirrer,
Include nicht vergessen, je nach AutoIT-Version.
#include <ButtonConstants.au3> ; $BS_MULTILINE
Schönes WE und weiterhin
viel Erfolg !
Hi,
in den Windows-Autostart legen.
Hi,
hier vielleicht ein erster Hinweis. 
;====================================================
;============= Example of a child window ============
;====================================================
; AutoIt version: 3.0.103
; Language: English
; Author: "SlimShady"
;
; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------
;Include constants
#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
[/autoit] [autoit][/autoit] [autoit];Initialize variables
Local $GUIWidth = 250, $GUIHeight = 250
Local $ParentWin, $ParentWin_Pos, $ChildWin, $msg
;Create main/parent window
$ParentWin = GUICreate("Parent GUI", $GUIWidth, $GUIHeight)
;Save the position of the parent window
$ParentWin_Pos = WinGetPos($ParentWin, "")
;Show the parent window/Make the parent window visible
GUISetState(@SW_SHOW)
;Create child window and add the parameter to make it the child of the parent window
$ChildWin = GUICreate("Child GUI", $GUIWidth, $GUIHeight, $ParentWin_Pos[0] + 100, $ParentWin_Pos[1] + 100, -1, -1, $ParentWin)
;Show the child window/Make the child window visible
GUISetState(@SW_SHOW)
;Switch to the parent window
GUISwitch($ParentWin)
;Loop until:
;- user presses Esc when focused to the parent window
;- user presses Alt+F4 when focused to the parent window
;- user clicks the close button of the parent window
While 1
;After every loop check if the user clicked something in the GUI windows
$msg = GUIGetMsg(1)
Select
;Check if user clicked on a close button of any of the 2 windows
Case $msg[0] = $GUI_EVENT_CLOSE
;Check if user clicked on the close button of the child window
If $msg[1] = $ChildWin Then
MsgBox(64, "Test", "Child GUI will now close.")
;Switch to the child window
GUISwitch($ChildWin)
;Destroy the child GUI including the controls
GUIDelete()
;Check if user clicked on the close button of the parent window
ElseIf $msg[1] = $ParentWin Then
MsgBox(64, "Test", "Parent GUI will now close.")
;Switch to the parent window
GUISwitch($ParentWin)
;Destroy the parent GUI including the controls
GUIDelete()
;Exit the script
Exit
EndIf
EndSelect
[/autoit] [autoit][/autoit] [autoit]WEnd
EndFunc ;==>_Main
Schönes WE und weiterhin
viel Erfolg !
Hi Dönn3y,
überprüfe doch mal, ob die angegebenen Ordner exitieren. Ein Problem von "Fileinstall", es kann keine Ordner erstellen (siehe Beispiel).
#include <GUIConstants.au3>
GUICreate("Beispiel", 300, 200)
GUICtrlCreateLabel("Das ist ein Beispiel, das zeigt wie man Dateien mit einbindet.", 10, 10)
;FileInstall("C:\test\alarm.wav", "C:\tteesstt\alarm.wav")
SoundSetWaveVolume(50);(100)
SoundPlay("Sounds\Error.wav", 1) ; Datei die abgespielt werden soll
GUISetState(@SW_SHOW)
Schönes WE und weiterhin
viel Erfolg !
Hi fabs,
ich nutze dafür einen spez. Link, ganz ohne AutoIT.
"https://freemail.web.de/msg/popmail.htm?user=HierStehtDeinName&goto=/online/startseite"
Schönes WE und weiterhin
viel Erfolg !
Hi Autoirrer,
vielleicht so, „ $ES_MULTILINE“ !
Creates an Edit control for the GUI.
GUICtrlCreateEdit ( "text", left, top [, width [, height [, style [, exStyle]]]] )
Parameters
text
The text of the control.
left
The left side of the control. If -1 is used then left will be computed according to GUICoordMode.
top
The top of the control. If -1 is used then top will be computed according to GUICoordMode.
width
[optional] The width of the control (default is the previously used width).
height
[optional] The height of the control (default is the previously used height).
style
[optional] Defines the style of the control. See GUI Control Styles Appendix.
default ( -1) : $ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL
forced styles : $ES_MULTILINE, $WS_TABSTOP only if not $ES_READONLY
exStyle
[optional] Defines the extended style of the control. See Extended Style Table.
Schönes WE und weiterhin
viel Erfolg !
Edit: Update 2008-05-30
ist der Trabant ([slaw.] „der Begleiter“) von „Running Disk“ nutzt und benötigt deren Dateien bzw. Einstellungen. „RD5.0_1Click_1.0“ wird separat gestartet (siehe 2008-13-03_RD.GIF) liest die „RD.ini“ ein und schreibt am Ende in die „RD.log“. Die Einstellungen von „RD5.0_1Click_1.0“ werden über das Hauptprogramm von „Running Disk“ gesteuert und hier kann man auch die „RD.log“ einsehen. Aber Achtung, der Name „1Click“ ist hier Programm. Auf los geht’s los, keine GUI und keine weiteren Nachfragen !
Erstmalig für mich und Runnig Disk, hier der "GUIOnEventMode". Mit der Tastenkombination "Alt-Shift-r" kann man den Sourcecode ausgeben.
RD5.0_1Click_1.0
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=RDsys\Compile.ico
#AutoIt3Wrapper_Outfile=RD50_1Click_10.exe
#AutoIt3Wrapper_Res_Description=Running Disk 1Click
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=by Ritzelrocker04
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=AutoIt Version|3.2.12.0
#AutoIt3Wrapper_Res_Field=Compiled by|Ritzelrocker04
#AutoIt3Wrapper_Res_Field=Original Name|RD50_1Click_10.exe
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/striponly
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; by Ritzelrocker04 ==> RD50_1Click_10.au3
Opt("MustDeclareVars", 1)
[/autoit] [autoit][/autoit] [autoit]#Region ### Variablen section ###
Global $dest, $src, $7zip = "C:\Programme\7-Zip\7z.exe"
#EndRegion ### Variablen section ###
#Region ### Check Section ###
If Not FileExists($7zip) Then Exit MsgBox(16, "Error ", "Die Datei C:\Programme\7-Zip\7z.exe konnte nicht gefunden werden ! ")
#EndRegion ### Check Section ###
_main()
[/autoit] [autoit][/autoit] [autoit]Func _main()
Local $var1 = IniRead(@ScriptDir & "\RD.ini", "Settings", "sichern", "0")
Local $methode, $logfile, $ziel = "C:\$Backup$" ;<============== ### hier anpassen ###
If Not FileExists(@ScriptDir & "\RD.ini") Or Not FileExists(@ScriptDir & "\RD.log") Then
MsgBox(16, "Error", "Konnte die Dateien RD.ini und RD.log nicht finden ! ",
Exit
EndIf
Switch $var1
Case 0
$methode = "PC Sichern"
Case 1
$methode = "PC Sichern & Ausschalten"
EndSwitch
$dest = $ziel & "\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip "
$src = '"' & @MyDocumentsDir & '"'
_copy()
$logfile = FileOpen("RD.log", 1)
If $logfile = -1 Then
MsgBox(0, "Error", " Konnte RD.log nicht öffnen.",
Exit
EndIf
FileWriteLine($logfile, "Eigene Dateien den " & $methode & " mit RD_1Click, am : " & @YEAR & "-" & @MON & "-" & @MDAY & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
FileClose($logfile)
;SoundSetWaveVolume(50) ; optional
SoundPlay("RDsys\Success.wav", 1)
If $var1 = 1 Then
Shutdown(9)
Else
MsgBox(64, "Sichern fertig", "Sicherung vom " & @CRLF & @CRLF & @MDAY & "-" & @MON & "-" & @YEAR & " um " & @HOUR & ":" & @MIN & " Uhr " & @CRLF & @CRLF & "abgeschlossen !")
EndIf
EndFunc ;==>_main
Func _copy()
If FileExists($dest) Then
FileDelete($dest)
EndIf
RunWait(@ComSpec & ' /c ' & $7zip & " a -tzip " & $dest & $src, @ScriptDir, @SW_MINIMIZE)
EndFunc ;==>_copy
Running Disk 5.0.1.0
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=RDsys\Compile.ico
#AutoIt3Wrapper_Outfile=RDv5010.exe
#AutoIt3Wrapper_Res_Description=Running Disk
#AutoIt3Wrapper_Res_Fileversion=5.0.1.0
#AutoIt3Wrapper_Res_LegalCopyright=by Ritzelrocker04
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=AutoIt Version|3.2.12.0
#AutoIt3Wrapper_Res_Field=Compiled by|Ritzelrocker04
#AutoIt3Wrapper_Res_Field=Original Name|RDv5010.exe
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/striponly
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; by Benjamin C. und Ritzelrocker04
#Region ### Include section ###
#include<GUIConstantsEx.au3>
#include<ButtonConstants.au3>
#include<File.au3>
#EndRegion ### Include section ###
#Region ### Optionen section ###
Opt('GUIOnEventMode', 1) ; 1 Schaltet den OnEvent-Mode ein
#EndRegion ### Optionen section ###
#Region ### Variablen section ###
Global $7zip = "C:\Programme\7-Zip\7z.exe"
Dim $aFile, $methode
$dest = "C:" ;<============== ### hier anpassen ###
$var1 = IniRead(@ScriptDir & "\RD.ini", "Settings", "sichern", "0")
$title = "RDv 5.0.1 RR04 for AutoIT.de"
#EndRegion ### Variablen section ###
#Region ### Check Section ###
If Not FileExists($7zip) Then Exit MsgBox(16, "Error " & $title, "Die Datei C:\Programme\7-Zip\7z.exe konnte nicht gefunden werden ! ")
#EndRegion ### Check Section ###
HotKeySet("!+r", "_openSrc") ; Alt-Shift-r Source ausgeben
[/autoit] [autoit][/autoit] [autoit]#Region ### Running Disk GUI section ###
$GUI = GUICreate($title, 310, 150, -1, 140)
GUISetOnEvent($GUI_EVENT_CLOSE, '_quit')
WinSetOnTop($title, "", 1)
$gb_All = GUICtrlCreateGroup("", 5, 1, 300, 112) ; open group $gb_All
$avi = GUICtrlCreateAvi("RDsys\RDgo.avi", -1, 24, 10, 100, 100)
$gb_EigeneDateien = GUICtrlCreateGroup("Eigene Dateien", 150, 13, 145, 90) ; open group $gb_EigeneDateien
$rb_Sichern = GUICtrlCreateRadio("nur sichern", 165, 40, 113, 17)
$rb_SichernUaus = GUICtrlCreateRadio("nach sichern den PC ausschalten", 165, 65, 113, 33, BitOR($BS_AUTORADIOBUTTON, $BS_MULTILINE))
GUICtrlCreateGroup("", -99, -99, 1, 1) ; close group $gb_EigeneDateien
GUICtrlCreateGroup("", -99, -99, 1, 1) ; close group $gb_All
$bn_Close = GUICtrlCreateButton("&Beenden", 225, 120, 75, 22)
GUICtrlSetOnEvent(-1, '_quit')
GUICtrlSetTip(-1, 'Exit')
$bn_OK = GUICtrlCreateButton("&OK", 145, 120, 75, 22)
GUICtrlSetOnEvent(-1, "_OKpressed")
GUICtrlSetState(-1, $GUI_DEFBUTTON)
GUICtrlSetTip(-1, 'Start' & @CRLF & 'der Sicherung')
$bn_iniWriting = GUICtrlCreateButton("&Speichern", 65, 120, 75, 22)
GUICtrlSetOnEvent(-1, '_iniWriting')
GUICtrlSetTip(-1, 'Speichern' & @CRLF & 'der Einstellungen')
$bn_Info = GUICtrlCreateButton("I", 10, 120, 26, 26, $BS_ICON)
GUICtrlSetOnEvent(-1, '_infoPressed')
GUICtrlSetImage(-1, "RDsys\s_info.ico")
GUICtrlSetTip(-1, 'Info' & @CRLF & 'zur letzten Sicherung')
Switch $var1
Case 0
GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
Case 1
GUICtrlSetState($rb_SichernUaus, $GUI_CHECKED)
EndSwitch
GUISetState(@SW_SHOW)
#EndRegion ### Running Disk GUI section ###
While 1
Sleep(100)
WEnd
Func _OKpressed()
If FileExists($dest & "\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ") Then
$ExistsFileWahl = MsgBox(48 + 4, " Löschen", ' EigeneDateien-0' & @WDAY & '.zip besteht bereits. ' & @CRLF & ' Möchten Sie sie ersetzen ? ')
If $ExistsFileWahl = 6 Then
FileDelete($dest & "\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ")
EndIf
EndIf
If GUICtrlRead($rb_Sichern) = 1 Then
$_Userwahlsich = MsgBox(32 + 4, " Sichern", "Möchten Sie nach der Sicherung weiterarbeiten ? ")
If $_Userwahlsich = 7 Then
MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
$methode = "PC Sichern"
_iniWriting()
_save()
MsgBox(64, " Sichern fertig", "Sicherung vom " & @CRLF & @CRLF & @MDAY & "-" & @MON & "-" & @YEAR & " um " & @HOUR & ":" & @MIN & " Uhr " & @CRLF & @CRLF & "abgeschlossen !")
Exit
Else
$_Userwahlout = MsgBox(32 + 4, " Sichern & Ausschalten", "Möchten Sie nach der Sicherung den PC automatisch ausschalten ? ")
If $_Userwahlout = 7 Then
MsgBox(48, " Sichern & Ausschalten", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
$methode = "PC Sichern & Ausschalten"
_iniWriting()
_save()
Shutdown(9)
EndIf
Exit
EndFunc ;==>_OKpressed
Func _infoPressed()
$file = "RD.log"
$ret = _FileReadToArray($file, $aFile)
If $ret = 0 Then MsgBox(0, '', 'Fehler')
MsgBox(0, 'Info zur letzten Sicherung', $aFile[$aFile[0]]) ; With the help of Bugfix
EndFunc ;==>_infoPressed
Func _iniWriting()
Switch GUICtrlRead($rb_Sichern)
Case $GUI_CHECKED
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichern", "0")
Case $GUI_UNCHECKED
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichern", "1")
EndSwitch
EndFunc ;==>_iniWriting
Func _save()
GUICtrlSetState($avi, 1)
RunWait(@ComSpec & ' /c ' & $7zip & " a -tzip " & $dest & "\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip " & '"' & @MyDocumentsDir & '"', @ScriptDir, @SW_MINIMIZE)
GUICtrlSetState($avi, 0)
$logfile = FileOpen("RD.log", 1)
If $logfile = -1 Then
MsgBox(0, "Error", " Konnte RD.log nicht öffnen.",
Exit
EndIf
FileWriteLine($logfile, "Eigene Dateien den " & $methode & " mit RD, am : " & @MDAY & "-" & @MON & "-" & @YEAR & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
FileClose($logfile)
SoundSetWaveVolume(50) ; optional
SoundPlay("RDsys\Success.wav", 1)
EndFunc ;==>_save
Func _quit()
Exit
EndFunc ;==>_quit
Func _openSrc()
FileInstall("RDv5010.au3", @ScriptDir & "\", 1)
FileInstall("RD50_1Click_10.au3", @ScriptDir & "\", 1)
EndFunc ;==>_openSrc
Edit: Zwei Anpassungen vorgenommen.
Viel Spaß mit Running Disk !
Hi monkey,
ergänzend zu dem bisherigen möchte ich noch sagen/schreiben: Ein Vorteil von Java, es ist platformübergreifend 
Weiterhin viel Erfolg !
Hi Mehmet,
niemand kann Alles wissen.
In der deutschen Hilfe 3.10 unter Appendix>GUI-Stile sind solche und andere Sachen aufgelistet.
$WS_MAXIMIZE
0x01000000
Erzeugt ein Fenster, das von Anfang an maximiert angezeigt wird (den ganzen Bildschirm ausfüllt).
Weiterhin viel Erfolg !
