Beiträge von RR04

RR04

Hallo Fast2,

ja genau.
Ich kann mich erstmal gut ausdrücken, was !

TrueMu, super Danke und ab in den Keller.

Schönes WE und Danke an Euch

RR04

Hi,

hier ein Bild, was ich meine. Es sollte gleich nach oben übernommen werden und keine erneute Wahl nötig machen

RR04

Hi Xeno,

der Unterschied ist die sofortige Übernahme der Auswahl, wie bei Input. Bei Combo ist eine erneute bzw. zusätzliche Einstellung notwendig, da die Nutzerwahl erst einmal an die Voreinstellungen hinten angehängt werden.

Ich habe mir auch schon das Beispiel „setlabel.au3“ angesehen.

Schönes WE und Danke

RR04

In meinem Beispiel möchte ich dem Nutzer ein paar Voreinstellungen mitgeben. Aber auch die Möglichkeit selbst wählen zu können. Das klappt auch ganz gut.

Mein Problem ist es, dass die Nutzerwahl hinten angehängt wird und zusätzliche Klicks sind nötig. Ich möchte aber die Nutzerwahl gleich übernehmen lassen, wie zB. bei "GUICtrlCreateInput" . Was mache ich falsch bzw. muss ich tun um es zu realisieren.

Spoiler anzeigen

[autoit]

; by Ritzelrocker04

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START GUI section ###
$GUI = GUICreate(@ScriptName, 400, 300, -1, -1)

[/autoit] [autoit][/autoit] [autoit]

$bnDest = GUICtrlCreateButton("&...", 12, 222, 75, 20, 0)

[/autoit] [autoit][/autoit] [autoit]

$cobDest = GUICtrlCreateCombo("C:\$Backup$", 95, 222, 180, 20)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetData(-1,"D:\$Backup$|E:\$Backup$", "C:\$Backup$")

[/autoit] [autoit][/autoit] [autoit]

$bnClose = GUICtrlCreateButton("&Beenden", 242, 265, 75, 25)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)
#EndRegion ### END GUI section ###

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $bnClose
Exit
Case $msg = $bnDest
$path = FileSelectFolder('Bitte ein Laufwerk oder Verzeichnis auswählen !', '')
If not @error Then
GUICtrlSetData($cobDest, $path)
EndIf
EndSelect
Wend

[/autoit]

Schönes WE und Danke

RR04

Herzlich Willkommen Gespenst,

wird es für den Koda-FD zu filigran kann eine Nachjustierung von Hand nötig sein. Vielleicht noch einmal das Auto-Wiki>Koda einsehen, der erste Einstieg ist manchmal etwas holprig. Die Übernahme in Dein Script ist nicht gelungen.

Schönes WE und weiterhin
viel Erfolg

RR04

Eine neue Version ist eingetroffen. Version RDv3.5.0.0.
PS: siehe Dummys

Spoiler anzeigen

[autoit]

; by Benjamin C. und Ritzelrocker04 ==> RDv3500.au3

[/autoit] [autoit][/autoit] [autoit]

#include <AVIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

Dim $aFile

[/autoit] [autoit][/autoit] [autoit]

$var1 = IniRead(@ScriptDir & "\RD.ini", "Settings", "sichern", "0")
$criptName = "Running Disk v 3.5 RR04 for AutoIT.de"

[/autoit] [autoit][/autoit] [autoit]

#Region ### START RD GUI section ###
$GUI = GUICreate($criptName, 310, 150, -1, 180)
$gb_All = GUICtrlCreateGroup("", 5, 1, 300, 112)
$avi = GUICtrlCreateAvi("RDsys\RDgo.avi", -1, 24, 10, 100, 100)
$gb_EigeneDateien = GUICtrlCreateGroup("Eigene Dateien", 150, 13, 145, 90)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$rb_Sichern = GUICtrlCreateRadio("sichern", 165, 40, 113, 17)
$rb_SichernUaus = GUICtrlCreateRadio("nach sichern den PC ausschalten", 165, 65, 113, 33, BitOR($BS_AUTORADIOBUTTON,$BS_MULTILINE))
GUICtrlSetState(-1, $GUI_CHECKED)
$bn_Close = GUICtrlCreateButton("Beenden", 235, 120, 65, 25)
GUICtrlSetTip(-1, 'Exit')
$bn_OK = GUICtrlCreateButton("OK", 165, 120, 65, 25)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
GUICtrlSetTip(-1, 'Start' & @CRLF & 'der Sicherung')
$bn_Save = GUICtrlCreateButton("Speichern", 95, 120, 65, 25)
GUICtrlSetTip(-1, 'Speichern' & @CRLF & 'der Einstellungen')
$bn_LB = GUICtrlCreateButton("LB", 10, 120, 26, 26, $BS_ICON)
GUICtrlSetImage (-1, "RDsys\s_info.ico")
GUICtrlSetTip(-1, 'Info' & @CRLF & 'zur letzten Sicherung')

[/autoit] [autoit][/autoit] [autoit]

Switch $var1
Case 0
GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
Case 1
GUICtrlSetState($rb_SichernUaus, $GUI_CHECKED)
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)
#EndRegion ### END RD GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Sichern = GUICtrlRead($rb_Sichern)
Select
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
Case $nMsg = $bn_OK
If FileExists("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ") Then
$ExistsFileWahl = MsgBox(32+4, "Löschen", 'Möchten Sie die bereits existierende Datei "EigeneDateien-0' & @WDAY & '.zip" löschen ? ')
If $ExistsFileWahl = 6 Then
MsgBox(48, "Simulation...", "...einer Funktion - Dummy für FileDelete, siehe Script ! ")
; ==> FileDelete("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ")
EndIf
EndIf
If $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"

_iniWritingFunc()
_SichernFunc()

MsgBox(64, " Sichern", " Sicherung 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"

_iniWritingFunc()
_SichernFunc()

MsgBox(48, "Simulation...", "...einer Funktion - Dummy für Shutdown, siehe Script ! ")
; ==> Shutdown(9)
EndIf
ExitLoop
Case $nMsg = $bn_Save

_iniWritingFunc()

Case $nMsg = $bn_LB
$file = "RD.log"
$ret = _FileReadToArray($file, $aFile)
If $ret = 0 Then MsgBox(0, '', 'Fehler')
MsgBox(0, 'Letzte Sicherung', $aFile[$aFile[0]])
EndSelect
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _iniWritingFunc()

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 ; ==> _iniWritingFunc()

[/autoit] [autoit][/autoit] [autoit]

Func _SichernFunc()

GUICtrlSetState ($avi, 1)

MsgBox(48, "Simulation...", "...einer Funktion - Dummy für RunWait, siehe Script ! ")
; ==> RunWait(@ComSpec & ' /c ' & "RDsys\7za.exe a -tzip " & "E:\$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", " Die Datei RD.log konnte nicht geöffnet werden.", 3)
;Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

FileWriteLine($logfile, "Eigene Dateien - " & $Methode & " mit RD, am : " & @YEAR & "-" & @MON & "-" & @MDAY & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
FileClose($logfile)
SoundPlay("RDsys\Success.wav", 1)

EndFunc ; ==> _SichernFunc()

[/autoit]

Weiterhin viel Spaß

RR04

In meinem Vergleich liegen die Beiden sehr eng beieinander und Au3toolkit kann den Vorsprung für sich verbuchen. Bei näherer Betrachtung der jeweiligen Scripte wird ersichtlich, warum dass so ist. Au3toolkit fügt dem Script erstaunlich wenig hinzu (im Vergleich zum Obfuscator). Natürlich ist das so gewollt und beide Scripte sind voll funktionstüchtig. Berücksichtigt man die noch niedrige Versionsnummer des Au3toolkit, frage ich mich, ob bei einer Weiterentwicklung nicht auch die Anderen Einträge hinzu kommen (oder sogar müssen)?

PS: Mit diesen Nachrichten möchte ich meine Erkenntnisse vermitteln und eine Weiterentwicklung erleichtern.

Weiterhin viel Erfolg !

RR04

Hallo (A)lina,

in dieser Sache keine Erfahrung, würde ich mich dennoch in Richtung Array orientieren. Aber vielleicht gibt es ja Hilfe durch diesen Neuaufruf ?

Weiterhin viel Erfolg !

RR04

Anpassung an die neuen AutoIT-Versionen
PS: Zeile 81 = Dummy

Spoiler anzeigen

[autoit]

; by Ritzelrocker04 ==> siehe $version

[/autoit] [autoit][/autoit] [autoit]

#include<ButtonConstants.au3>
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<String.au3>
#include<WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

; Ziel
Global $dest_LW = StringLeft(@MyDocumentsDir,2)
; Quelle
Global $src_LW = StringLeft(@ScriptDir,2) & "\"

[/autoit] [autoit][/autoit] [autoit]

$version = " USB v 3.0"
$uccess = "USBsound\Success.wav"

[/autoit] [autoit][/autoit] [autoit]

; - Start - GUI
$GUI = GUICreate($version, 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
GUICtrlSetState(-1, $GUI_DISABLE)
$gb_Ziel = GUICtrlCreateGroup("", 64, 8, 225, 60)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$pg_Ziel = GUICtrlCreateProgress(75, 32, 195, 17)
$bn_Pic = GUICtrlCreateButton("PicButton", 8, 14, 55, 55, $BS_BITMAP)
GUICtrlSetImage (-1, "USBsys\images3.bmp", 22)
$bn_Sichern = GUICtrlCreateButton("&Sichern", 126, 80, 75, 25, 0)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$bn_Close = GUICtrlCreateButton("&Beenden", 212, 80, 75, 25, 0)
$bn_Autor = GUICtrlCreateButton("RR04", 2, 96, 30, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

; - 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)
$tb_src_Total = GUICtrlCreateInput("", 8, 20, 140, 17, $ES_READONLY)
$tb_src_Free = GUICtrlCreateInput("", 152, 20, 140, 17, $ES_READONLY)
$tb_src_Belegt = GUICtrlCreateInput("", 8, 70, 140, 17, $ES_READONLY)
$tb_src_Prozent = GUICtrlCreateInput("", 152, 70, 57, 17, $ES_READONLY)
$pg_Quelle = GUICtrlCreateProgress(8, 45, 284, 17)
$bn_Return = GUICtrlCreateButton("zurück", 212, 80, 75, 25, 0)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW, $GUI)

[/autoit] [autoit][/autoit] [autoit]

; starten Func _LW_info()
_LW_info()

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg(1)
Switch $msg[1] ; window-handle
Case $GUI
Switch $msg[0] ; event/control-handle
Case $bn_Pic
GUISetState(@SW_HIDE, $GUI)
GUISetState(@SW_SHOW, $GUI_Stick)
Case $GUI_EVENT_CLOSE
Exit
Case $bn_Close
Exit
Case $bn_Autor
$logfile = FileOpen("TheStick.log", 0) ; 0 = nur Lesemodus (read mode)
If $logfile = -1 Then
MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
EndIf
$line = FileReadLine($logfile)
MsgBox(64, 'About', 'The Stick v 3.0.00 Build 2008-03-02 ' & @CRLF & '' & @CRLF & 'Copyright by : Ritzelrocker04 ' & @CRLF & 'Thx an das http://www.Autoit.de - Team ' & @CRLF & '' & @CRLF & 'Die letzte Sicherung war am : ' & @CRLF & $line)
FileClose($logfile)
Case $bn_Sichern
If FileExists(@MyDocumentsDir & '\My Stick\USB-Stick-0' & @WDAY & '.zip') Then
$ExistsFileWahl = MsgBox(32+4, "Löschen", 'Möchten Sie die bereits existierende Datei "USB-Stick-0' & @WDAY & '.zip" löschen ? ')
If $ExistsFileWahl = 6 Then
FileDelete(@MyDocumentsDir & '\My Stick\USB-Stick-0' & @WDAY & '.zip')
EndIf
EndIf
$_Userwahlsich = MsgBox(32+4, " Sichern", "Sichern, möchten Sie fortfahren ? ")
If $_Userwahlsich = 7 Then
MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
MsgBox(48, " OK", "Simulation des Kopiervorgangs (Dummi, siehe Script-Zeile 80 & 81) ! ")
; ==> RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\My Stick\USB-Stick-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir, @SW_MINIMIZE)
_LW_info() ; starten Func _LW_info()
_Log_Write() ; starten Func _Log_Write()
;SoundSetWaveVolume(50) ; optional (50)Lautstärke in %
SoundPlay($uccess, 1) ; 1 = Skript wartet, bis der Sound abgespielt ist.
MsgBox(64, " Sicherung", " Sicherung abgeschlossen ! ")
Exit
EndSwitch
Case $GUI_Stick
Switch $msg[0]
Case $bn_Return
GUISetState(@SW_SHOW, $GUI)
GUISetState(@SW_HIDE, $GUI_Stick)
Case $GUI_EVENT_CLOSE
GUISetState(@SW_SHOW, $GUI)
GUISetState(@SW_HIDE, $GUI_Stick)
EndSwitch
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

; die Funktion _LW_info()
Func _LW_info()

[/autoit] [autoit][/autoit] [autoit]

; Quelle
$VOL_Quelle = DriveGetLabel($src_LW)
$TOTAL_Quelle = DriveSpaceTotal($src_LW)
$FREE_Quelle = DriveSpaceFree($src_LW)
$FREE_Quelle_Prozent = StringReplace(Round(($FREE_Quelle) / ($TOTAL_Quelle / 100), 0), ".", ",")
$FREE_Quelle_MB = _StringAddComma(StringReplace(Round ($FREE_Quelle, 2), '.', ','), ".", ",")
$Belegt_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle - $FREE_Quelle, 2), '.', ','), ".", ",")
$TOTAL_Quelle_MB = _StringAddComma(StringReplace(Round ($TOTAL_Quelle, 2), '.', ','), ".", ",")
$i_Progress_Quelle = StringReplace(Round(($TOTAL_Quelle - $FREE_Quelle) / ($TOTAL_Quelle / 100), 2), ".", ",")

[/autoit] [autoit][/autoit] [autoit]

; Ziel
$VOL_Ziel = DriveGetLabel($dest_LW)
$TOTAL_Ziel = DriveSpaceTotal($dest_LW)
$FREE_Ziel = DriveSpaceFree($dest_LW)
$FREE_Ziel_Prozent = StringReplace(Round(($FREE_Ziel) / ($TOTAL_Ziel / 100), 0), ".", ",")
$FREE_Ziel_MB = _StringAddComma(StringReplace(Round ($FREE_Ziel, 2), '.', ','), ".", ",")
$i_Progress_Ziel = StringReplace(Round(($TOTAL_Ziel - $FREE_Ziel) / ($TOTAL_Ziel / 100), 2), ".", ",")

[/autoit] [autoit][/autoit] [autoit]

; letzte Berechnungen und setzen der Ergebnisse
; Ziel
GUICtrlSetData($pg_Ziel, $i_Progress_Ziel)
GUICtrlSetData($gb_Ziel, "( " & $dest_LW & " )" & " = " & $FREE_Ziel_MB & " MB = " & $FREE_Ziel_Prozent & " % frei ")
; Quelle
GUICtrlSetData($tb_src_Total, "Gesamt: " & $TOTAL_Quelle_MB & " MB")
GUICtrlSetData($tb_src_Free, "Frei: " & $FREE_Quelle_MB & " MB")
GUICtrlSetData($pg_Quelle, $i_Progress_Quelle)
GUICtrlSetData($tb_src_Belegt, "Belegt: " & $Belegt_Quelle_MB & " MB")
GUICtrlSetData($tb_src_Prozent, "Frei: " & $FREE_Quelle_Prozent & " %")

[/autoit] [autoit][/autoit] [autoit]

EndFunc ; ==> _LW_info()

[/autoit] [autoit][/autoit] [autoit]

; die Funktion _Log_Write()
Func _Log_Write()

[/autoit] [autoit][/autoit] [autoit]

$logfile = FileOpen("TheStick.log", 2) ;2 = Schreibmodus mit Löschen des vorherigen Inhaltes

If $logfile = -1 Then
MsgBox(0, "Error", " Die Datei TheStick.log konnte nicht geöffnet werden.", 5)
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

FileWriteLine($logfile, @MDAY & "." & @MON & "." & @YEAR & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr ")
FileClose($logfile)

EndFunc ; ==> _Log_Write()

[/autoit] [autoit][/autoit] [autoit][/autoit]

Schönes WE und weiterhin
viel Erfolg

RR04

Hallo Mehmet,

hier mal ein funktionierendes Beispiel mit „GUICtrlSetState(-1, $GUI_DISABLE)“ siehe Scripte>The Stick

Spoiler anzeigen

[autoit]

$GUI = GUICreate(" USB v 2.2", 300, 115, -1, 183, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
GUICtrlCreatePic("USBskin\Blau43.jpg", 0, 0, 300, 115)
GUICtrlSetState(-1, $GUI_DISABLE)

[/autoit]

Schönes WE und weiterhin
viel Erfolg

RR04

Jetzt auch für die neuen AutoIT-Versionen und ein paar Fehler bereinigt

Spoiler anzeigen

[autoit]

; by Benjamin C. und Ritzelrocker04 ==> RDv3000.au3

[/autoit] [autoit][/autoit] [autoit]

#include <AVIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>

[/autoit] [autoit][/autoit] [autoit]

Dim $aFile

[/autoit] [autoit][/autoit] [autoit]

$var1 = IniRead(@ScriptDir & "\RD.ini", "Settings", "sichern", "0")

[/autoit] [autoit][/autoit] [autoit]

#Region ### START RD GUI section ###
$GUI = GUICreate("Running Disk v 3.0 RR04 for AutoIT.de", 315, 150, -1, 180)
$gb_All = GUICtrlCreateGroup("", 8, 1, 300, 112)
$avi = GUICtrlCreateAvi("RDsys\RDgo.avi", -1, 24, 10, 100, 100)
$gb_EigeneDateien = GUICtrlCreateGroup("Eigene Dateien", 144, 13, 145, 90)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$rb_Sichern = GUICtrlCreateRadio("sichern", 155, 40, 113, 17)
$rb_SichernUaus = GUICtrlCreateRadio("nach sichern den PC ausschalten", 155, 65, 113, 33, BitOR($BS_AUTORADIOBUTTON,$BS_MULTILINE))
GUICtrlSetState(-1, $GUI_CHECKED)
$bn_Close = GUICtrlCreateButton("Beenden", 229, 120, 75, 25)
$bn_OK = GUICtrlCreateButton("OK", 149, 120, 75, 25)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$bn_LB = GUICtrlCreateButton("LB", 10, 115, 32, 32, $BS_ICON)
GUICtrlSetImage (-1, "RDsys\ico2770.ico")

[/autoit] [autoit][/autoit] [autoit]

Switch $var1
Case 0
GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
Case 1
GUICtrlSetState($rb_SichernUaus, $GUI_CHECKED)
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)
#EndRegion ### END RD GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Sichern = GUICtrlRead($rb_Sichern)
Select
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
Case $nMsg = $bn_OK
If FileExists("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ") Then
$ExistsFileWahl = MsgBox(32+4, "Löschen", 'Möchten Sie die bereits existierende Datei "EigeneDateien-0' & @WDAY & '.zip" löschen ? ')
If $ExistsFileWahl = 6 Then
FileDelete("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ")
EndIf
EndIf
If $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 = "Sichern"

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

_SichernFunc1()
MsgBox(64, " Sichern", " Sicherung 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 = "Sichern & Ausschalten"

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

_SichernFunc1()
Shutdown(9)
EndIf
ExitLoop
Case $nMsg = $bn_LB
$file = "RD.log"
$ret = _FileReadToArray($file, $aFile)
If $ret = 0 Then MsgBox(0, '', 'Fehler')
MsgBox(0, 'Letzte Sicherung', $aFile[$aFile[0]-1])
EndSelect
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _SichernFunc1()

GUICtrlSetState ($avi, 1)

RunWait(@ComSpec & ' /c ' & "RDsys\7za.exe a -tzip " & "E:\$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", " Die Datei RD.log konnte nicht geöffnet werden.", 3)
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

FileWriteLine($logfile, "Eigenen Dateien - " & $Methode & " mit RD, am : " & @YEAR & "-" & @MON & "-" & @MDAY & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
FileClose($logfile)
SoundPlay("RDsys\Success.wav", 1)

EndFunc ; ==> _SichernFunc1()

[/autoit]

Schönes WE und weiterhin
viel Spaß

RR04

Hi (A)lina,

für mich klingt Deine Beschreibung nach einer typischen Datenbankanwendung. Also man gibt einen Namen bzw. § ein und erhält Straße, Telefonnr. bzw. den Gesetzestext.

Weiterhin viel Erfolg !

RR04

Aber ich teste Au3toolkit nicht nur, ich nutze es auch. Zur Vorgänger - Version hat es schon den gewissen Aha – Efekt und läuft flüssiger. Doch inzwischen taucht ein Mitbewerber mit Namen „Obfuscator.exe“ auf

Im Anhang meine Ergebnisse zu Au3toolkit

Weiterhin viel Erfolg

RR04

Ich hatte es vorhin nur kurz über eine Batch-Datei laufen lassen. Nun noch einmal mit Scite/AutoIT und wieder stellt sich ein kleineres Ergebnis ein. Das ist schon sehr knapp für Au3toolkit. Ein paar Unregelmäßigkeiten (Bugs) kann man sich da nicht mehr leisten.

Spoiler anzeigen

[autoit]

Obfuscator.exe RDv2100.au3 /striponly

[/autoit]

(siehe Post 16)

Weiterhin viel Erfolg !

RR04

@ Xeno

Ich habe es noch einmal nachgetragen oben im Post .

Manchmal begreife ich eben langsam und vergesse schnell !

Gruß !

RR04

Hallo Xeno,

mal auf die Schnelle

Spoiler anzeigen

RDv2100
Original
239 KB

RDv2100
Au3toolkit
234 KB

RDv2100
Obfuscator
339 KB

RDv2100
Obfuscator mit /striponly in Batch-Datei
239 KB

RDv2100
Obfuscator mit /striponly in Scite/AutoIT
236 KB

Gruß !

RR04

Hallo Xeno,

dass ist auch mein Gedanke und Interesse. Wie verhält sich der Obfuscator, gerade jetzt, im Zusammenhang mit der neuen Autoit-Version und den vielen neuen Includes ? Aufgrund des aktuellen Interesses, wollte ich nur meine bisher gesammelten Informationen weitergeben.

Den Obfuscator behalte ich im Auge

Weiterhin viel Erfolg !

RR04

Zur Sache habe ich mal meine letzten Ergebnisse aktualisiert

Siehe CleanScript vs. Au3toolkit
http://www.autoit.de/index.php?page…39956#post39956

Weiterhin viel Erfolg

RR04

Post 29 habe ich inzwischen aktualisiert

Hier mal eine Gegenüberstellung von CleanScript und Au3toolkit. Im direkten Vergleich kann Au3toolkit etwas zulegen.

Weiterhin viel Erfolg

RR04

Hi,

und Danke für die Antworten, sowie die erneute Nachfrage. Ich werde mich noch einmal mit befassen. Die Ausführungen von Greenhorn klingen gut

Beiträge von RR04

FileSelectFolder & GUICtrlCreateCombo ?

FileSelectFolder & GUICtrlCreateCombo ?

FileSelectFolder & GUICtrlCreateCombo ?

FileSelectFolder & GUICtrlCreateCombo ?

GUI für mein kleines Progrämmchen ;-)

RD Daten sichern

CleanScript - verkleinert au3 und Exe deutlich ohne Funktionsverlust

Mega-GAU im Kopf

The Stick

Probleme mit guictrlcreatepic

RD Daten sichern

Mega-GAU im Kopf

CleanScript - verkleinert au3 und Exe deutlich ohne Funktionsverlust

Größe von compilierten Dateien verringern

Größe von compilierten Dateien verringern

Größe von compilierten Dateien verringern

Größe von compilierten Dateien verringern

Größe von compilierten Dateien verringern

CleanScript - verkleinert au3 und Exe deutlich ohne Funktionsverlust

Progress & 7-Zip ?