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
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
Hi,
hier ein Bild, was ich meine. Es sollte gleich nach oben übernommen werden und keine erneute Wahl nötig machen
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
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.
; by Ritzelrocker04
#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]#Region ### START GUI section ###
$GUI = GUICreate(@ScriptName, 400, 300, -1, -1)
$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 ###
While 1
$msg = GUIGetMsg()
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
Schönes WE und Danke
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
Eine neue Version ist eingetroffen. Version RDv3.5.0.0.
PS: siehe Dummys
; by Benjamin C. und Ritzelrocker04 ==> RDv3500.au3
#include <AVIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
Dim $aFile
[/autoit] [autoit][/autoit] [autoit]$var1 = IniRead(@ScriptDir & "\RD.ini", "Settings", "sichern", "0")
$criptName = "Running Disk v 3.5 RR04 for AutoIT.de"
#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')
Switch $var1
Case 0
GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
Case 1
GUICtrlSetState($rb_SichernUaus, $GUI_CHECKED)
EndSwitch
GUISetState(@SW_SHOW)
#EndRegion ### END RD GUI section ###
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
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()
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
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()
Weiterhin viel Spaß
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 !
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 !
Anpassung an die neuen AutoIT-Versionen
PS: Zeile 81 = Dummy
; by Ritzelrocker04 ==> siehe $version
#include<ButtonConstants.au3>
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<String.au3>
#include<WindowsConstants.au3>
; Ziel
Global $dest_LW = StringLeft(@MyDocumentsDir,2)
; Quelle
Global $src_LW = StringLeft(@ScriptDir,2) & "\"
$version = " USB v 3.0"
$uccess = "USBsound\Success.wav"
; - 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)
GUISetState(@SW_SHOW, $GUI)
[/autoit] [autoit][/autoit] [autoit]; starten Func _LW_info()
_LW_info()
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
; die Funktion _LW_info()
Func _LW_info()
; 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), ".", ",")
; 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), ".", ",")
; 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 & " %")
EndFunc ; ==> _LW_info()
[/autoit] [autoit][/autoit] [autoit]; die Funktion _Log_Write()
Func _Log_Write()
$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
FileWriteLine($logfile, @MDAY & "." & @MON & "." & @YEAR & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr ")
FileClose($logfile)
EndFunc ; ==> _Log_Write()
Schönes WE und weiterhin
viel Erfolg
Hallo Mehmet,
hier mal ein funktionierendes Beispiel mit „GUICtrlSetState(-1, $GUI_DISABLE)“ siehe Scripte>The Stick
$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)
Schönes WE und weiterhin
viel Erfolg
Jetzt auch für die neuen AutoIT-Versionen und ein paar Fehler bereinigt
; by Benjamin C. und Ritzelrocker04 ==> RDv3000.au3
#include <AVIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
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")
Switch $var1
Case 0
GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
Case 1
GUICtrlSetState($rb_SichernUaus, $GUI_CHECKED)
EndSwitch
GUISetState(@SW_SHOW)
#EndRegion ### END RD GUI section ###
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
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
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()
Schönes WE und weiterhin
viel Spaß
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 !
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
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.
Obfuscator.exe RDv2100.au3 /striponly
(siehe Post 16)
Weiterhin viel Erfolg !
@ Xeno
Ich habe es noch einmal nachgetragen oben im Post .
Manchmal begreife ich eben langsam und vergesse schnell !
Gruß !
Hallo Xeno,
mal auf die Schnelle
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ß !
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 !
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
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
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