Sorry Micha_he,
das kleine Beispiel war nicht auf Deine Situation abgestimmt. Es ist ein Bestandteil aus "SiS" und ich habe eben noch einmal probiert, ob es funktioniert. Ja, in "SiS" funktioniert es, siehe hier:
http://www.autoit.de/index.php?page=Thread&postID=41921#post41921
Viel Erfolg ! 
Hi,
[autoit]
Local $path = FileSelectFolder($languages[71][1], "::{00000000-1080-F9E5-6311-4162E05A6BEE}", 1)
If Not @error Then
GUICtrlSetData($cobDest, $path, $path)
EndIf
Viel Erfolg ! 
Hi,
was für eine DLL und was soll diese aufnehmen ( Funktionen, Icon´s, Avi-Dateien) ?
In der Regel haben meine beiden Vorredner Recht, Ausnahmen bestätigen die Regel. 
siehe z.B. auch hier:
http://www.autoit.de/index.php?page=Thread&postID=62258#post62258
Hallo und herzlich Willkommen Math !
Ich habe hier einmal ergänzend eines der Radios voreingestellt. Am besten, Du schaust Dir die Funktion „GUICtrlCreateRadio“ einmal in der Hilfe an.
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 259, 179, 209, 125)
$Radio1 = GUICtrlCreateRadio("Funktion", 24, 32, 65, 17)
GUICtrlSetState(-1, $GUI_CHECKED) ;i ein Radio ist voreingestellt ################################################
$Radio2 = GUICtrlCreateRadio("Radio1", 24, 48, 65, 17)
$Radio3 = GUICtrlCreateRadio("Radio1", 24, 64, 65, 17)
$Button1 = GUICtrlCreateButton("OK", 32, 88, 137, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Radio1
;InputBox("Sicherheitscheck", "Bitte geben Sie ein Passwort ein.", "", "*")
MsgBox(1, "", "Radio1-Button")
Case $Radio2
;InputBox("Sicherheitscheck", "Bitte geben Sie ein Passwort ein.", "", "*")
MsgBox(1, "", "Radio2-Button")
Case $Radio3
;InputBox("Sicherheitscheck", "Bitte geben Sie ein Passwort ein.", "", "*")
MsgBox(1, "", "Radio3-Button")
EndSwitch
WEnd
ja und anno2008 meint Du kannst später noch einiges in diesem Script sparen.
#include <GUIConstantsEx.au3>
Dim $aRadioLabel[3] = ['Radio1', 'Radio2', 'Radio3'], $aRadio[3]
[/autoit][autoit][/autoit][autoit]$Form1 = GUICreate("RadioBox for Math", 259, 179, 209, 125)
For $i = 0 To 2
$aRadio[$i] = GUICtrlCreateRadio($aRadioLabel[$i], 24, 32+$i*16, 65, 17)
GUICtrlSetState($aRadio[0], $GUI_CHECKED)
Next
$Button1 = GUICtrlCreateButton("OK", 32, 88, 137, 33, 0)
GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
For $i = 0 To 2
If BitAND(GUICtrlRead($aRadio[$i]), $GUI_CHECKED) Then _
MsgBox(0, "Msgbox" & $i + 1, "Radio " & $i + 1 & " wurde selektiert :)")
Next
EndSwitch
WEnd
Viel Erfolg ! 
Anpassung:
Durch die Position von "FileWriteLine", wurde das Schreiben der Log-Datei nach jeder einzelnen Sicherung ausgeführt. Die Log-Datei wird so unnötig groß, jetzt nur noch einmal am Ende.
Hallo,
vielleicht mit:
[autoit]
AdlibEnable("_freeDest_Func", 1000)
Alle 250 ms (oder Zeit ms) wird die spezifizierte "Funktion" aufgerufen.
Herzlich Willkommen und viel Erfolg !
Anpassungen und Weiterentwicklungen in Version SiSv3811 !
Download siehe Post #1
Viel Spaß mit SiS !
Herzlich Willkommen,
ich finde Du hast da ein interessantes Projekt.
Deine Ausführungen aus Post #5 würde ich in einem Spoiler in Post #1 unterbringen.
Zur Sache:
Ich weiß nicht, ob man Truecrypt in der Registrierung auslesen kann 
Auf jeden Fall möglich, ist die Abfrage nach der Existenz und hier bietet sich eine Pfadeingabe durch den Nutzer an. Allerdings nur bei „If Not FileExists($Truecrypt) Then“.
Viel Erfolg !
Hallo,
ich selbst speichere EXE-Dateien, AU3-Dateien sowie die Ressourcen in einem Zip-Paket ab.
Bei einer Situation, wie Deiner würde ich den direkten Dialog mit einem Moderator suchen.
Von diesem „Sicher ist Sicher“ habe ich auch schon gehört.
Hallo Padmak,
schau Dir mal Xeno´s OrganizeIncludes 4.3 an.
Herzlich Willkommen freund777,
für Deinen Code versuche mal auch
SPOILER und Autoit- Tags,
dann sieht es so aus.
Sleep(1000)
Viel Erfolg !
Ja, der Obfuscator ist in dieser Hinsicht nicht wirklich überzeugend. Aber er hilft eben ein wenig. Die Sicherheit weiter erhöhen kann man noch durch Verwendung von DLL-Dateien. Also Funktionen in diese auslagern (AutoIT-Fremd !).
Hallo Leo,
den Obfuscator hast Du schon probiert ?
Auch vom Ritzelrocker04:
Herzlichen Glückwunsch, Xenobiologist!
Hallo,
immer wieder gern genommen werden Projekte, wie Taschenrechner, Lottozahlen, Idealgewicht oder BMI-Rechner. Hier kann man erste eigene Schritte machen und lernt, was Alles dazu gehört.
Viel Spaß !
Hallo,
um animierte Gif´s in AVI-Dateien zu wandeln nehme ich gern "VirtualDub" und habe gute Erfahrungen damit machen können. Inzwischen liegen meine Icon´s und Avi´s in einer "Ressource-DLL" (siehe OES oder SiS).
Viel Erfolg !
Hi,
oder eben nach " *.avi" umwandeln
Hallo Masterfreak0815 !
In Deinem Script wird zweimal das Gleiche abgefragt.
Mit zwei Radiogruppen, also die Erste aus den drei Algos und die Zweite aus Ver- und Entschlüsseln, sowie einem zusätzlichen Startbutton machen es möglich die If-Then-Abfrage zu kaskadieren (verschachteln). Die Struktur kannst Du so etwas straffen. 
zu Post 10
; by Masterfreak0815
#NoTrayIcon
#include-once
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
$frmMain = GUICreate("Ultra CrypT | By LeV-GoT.T", 330, 178, 193, 125)
$txt1 = GUICtrlCreateEdit("", 8, 8, 217, 161, BitOR($ES_AUTOHSCROLL, $ES_WANTRETURN, $WS_VSCROLL))
$radHexa = GUICtrlCreateRadio("Hexa", 232, 8, 97, 17)
GUICtrlSetState(-1, $GUI_CHECKED) ;i auch diese Schreibweise ist möglich
$radBinary = GUICtrlCreateRadio("Binary", 232, 32, 97, 17)
$radUltra = GUICtrlCreateRadio("Ultra", 232, 56, 97, 17)
$cmdVersch = GUICtrlCreateButton("Verschlüsseln", 232, 80, 89, 25, 0)
$cmdEntsch = GUICtrlCreateButton("Entschlüsseln", 232, 112, 89, 25, 0)
$cmdSave = GUICtrlCreateButton("Speichern", 232, 144, 89, 25, 0)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
MsgBox(64, "Ultra CrypT", "Ultra CrypT (C) By LeV-GoT.T" & @CRLF & _
"Vistit levin1993.de & The-coderz.com")
Exit
Case $cmdVersch
If BitAND(GUICtrlRead($radHexa), $GUI_CHECKED) Then
GUICtrlSetData($txt1, _StringToHex(GUICtrlRead($txt1)))
ElseIf BitAND(GUICtrlRead($radBinary), $GUI_CHECKED) Then
GUICtrlSetData($txt1, StringToBinary(GUICtrlRead($txt1)))
ElseIf BitAND(GUICtrlRead($radUltra), $GUI_CHECKED) Then
GUICtrlSetData($txt1, _StringEncrypt(1, GUICtrlRead($txt1), _
"gB7tfG)(64789ZG§=)(/5798z37/&(/)(zhD/(tz54GHF9($z!6pf?üäZÜ*DütfG", 3))
EndIf
Case $cmdEntsch
If BitAND(GUICtrlRead($radHexa), $GUI_CHECKED) Then
GUICtrlSetData($txt1, _HexToString(GUICtrlRead($txt1)))
ElseIf BitAND(GUICtrlRead($radBinary), $GUI_CHECKED) Then
GUICtrlSetData($txt1, BinaryToString(GUICtrlRead($txt1)))
ElseIf BitAND(GUICtrlRead($radUltra), $GUI_CHECKED) Then
GUICtrlSetData($txt1, _StringEncrypt(0, GUICtrlRead($txt1), _
"gB7tfG)(64789ZG§=)(/5798z37/&(/)(zhD/(tz54GHF9($z!6pf?üäZÜ*DütfG", 3))
EndIf
Case $cmdSave
$var = FileSaveDialog("Bitte Wähle den gewünschten speicher Ort. " _
& @HOUR & ":" & @MIN & ":" & @SEC, @ScriptDir, "Text Datei (*.txt)", 2)
If @error Then
MsgBox(4096, "", "Speichern wurde abgebrochen.")
Else
FileWrite($var, $txt1)
MsgBox(64, "Ultra CrypT", "Datei erfolgreich geschpeichert.")
EndIf
EndSwitch
WEnd
Hallo,
bei den Radios würde ich vielleicht einen gleich vorauswählen, da dass ja der Sinn von Radios ist (einer ist immer aktiv).
GUICtrlSetState($radHexa, $GUI_CHECKED)
Hi Lex,
ich habs noch mal versucht, ohne die richtige Eingabe kommt man bei dem Script nicht weiter und generiert immer wieder eine Neuvorlage (logischer Aufbau, Plausibilitätsprüfung).
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("LEX", 633, 454, 192, 114)
$Input1 = GUICtrlCreateInput("", 56, 32, 153, 21)
$Button1 = GUICtrlCreateButton("Button1", 80, 104, 65, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
[/autoit] [autoit][/autoit] [autoit]$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $Button1
$zahl1 = GUICtrlRead($Input1)
If $zahl1 < 50 Then
;Hier wird das Script ausgeführt, wenn der Wert korrekt ist
MsgBox(0, "OK", "Hier wird das Script ausgeführt, wenn der Wert korrekt ist!")
Else
MsgBox(0, "Hinweis", "Bitte nicht größer als 50!")
EndIf
EndSelect
WEnd
Ach ja und herzlich Willkommen hier !
