Hallo Leute!
Ich habe die Idee bekommen, dass man ein Programm schreiben kann, wo man folgendes Machen kann:
Man soll Serialverschlüsselungen für installierte Programme machen können.
Wenn man auf "Neu" klickt, kommt ein zweites GUI <-- Das geht noch.
Aber wenn man im 2. GUI auf OK Klickt, soll das Programm automatisch n GUI schreiben, wo man die Serial von $Input2 eingeben muss. Dann soll er mit FileSave oder so, die Datei mit der GUI vorab nochmal schreiben, mit Send("!J") ersetzen bestätigen und zu guter letzt das Icon von dem alten Programm(z.B, das Firefoxicon) statt das Autoiticon setzen.
Meine GUI´s:
Hauptform:
Spoiler anzeigen
Global $Programmpfad
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("SuperSerial", 295, 177, 192, 125)
$Label1 = GUICtrlCreateLabel("Bisher gespeicherte Verschlüsselungen:", 8, 16, 192, 17)
$List1 = GUICtrlCreateList("", 8, 48, 121, 123)
$Button1 = GUICtrlCreateButton("Hilfe/Info", 136, 144, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Neu", 216, 144, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Neue Serial Form:
Spoiler anzeigen
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("SuperSerial - Neue Serial", 341, 147, 192, 124)
$Label2 = GUICtrlCreateLabel("Name:", 8, 8, 35, 17)
$Input1 = GUICtrlCreateInput("", 48, 8, 289, 21)
$Label3 = GUICtrlCreateLabel("Serialnummer*:", 8, 32, 74, 17)
$Input2 = GUICtrlCreateInput("", 88, 32, 249, 21)
$Label4 = GUICtrlCreateLabel("Programmpfad:", 8, 56, 75, 17)
$Input3 = GUICtrlCreateInput("", 88, 56, 225, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button3 = GUICtrlCreateButton("...", 312, 56, 27, 25, $WS_GROUP)
$Checkbox1 = GUICtrlCreateCheckbox("Programm nach beendigung starten", 8, 80, 193, 17)
$Label5 = GUICtrlCreateLabel("*Beliebige Kombination zwischen 0-10 und A-Z, ohne Sonderzeichen", 0, 96, 328, 17)
$OK = GUICtrlCreateButton("OK", 264, 120, 75, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
Abfrage, die als neue Datei gespeichert werden soll:
Spoiler anzeigen
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Serial eingeben:", 301, 68, 192, 124)
$Serialhelp = GUICtrlCreateLabel("Serialnummer:", 8, 16, 70, 17)
$Serial = GUICtrlCreateInput("", 96, 16, 177, 21)
$OKSerial = GUICtrlCreateButton("OK", 224, 40, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Case-Bereich:
Case $OKSerial
If GUICtrlRead($Serial) = $Input2 Then
Run($Pfad)
EndIf
Fragen:
Wie kann ich es machen, dass er die 3.GUI in eine exe speichert, wo danach dann ja Run($Pfad) kommt?
Wie geht es, das Icon von z.B. Firefox(oder die angegebene exe datei) in die neue exe zu setzen?
ich hoffe das ist nicht zuviel
//EDIT:
Hab oben im 3. Spoiler neuen Code eingefügt
MfG button421