SuperSerial - Paar Fragen

  • 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
    [autoit]


    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 ###

    [/autoit]

    Neue Serial Form:

    Spoiler anzeigen
    [autoit]


    #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 ###

    [/autoit]

    Abfrage, die als neue Datei gespeichert werden soll:

    Spoiler anzeigen
    [autoit]


    #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

    [/autoit]

    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 :whistling:
    //EDIT:
    Hab oben im 3. Spoiler neuen Code eingefügt :)
    MfG button421 :party:

    Meine fertigen Projekte:
    VirtualCash
    Monopoly Digital

    Daran arbeite ich gerade:
    Einem Skript, womit man ohne Programmierkentisse eigene Programme machen kann (habe ich selber früher gesucht :D ) Stand: ||||||||||||||||||||||||| 6%

    Einmal editiert, zuletzt von button421 (19. Mai 2010 um 19:18)

  • Du bist echt SCHLIMMER als ich ;)
    Naja egal

    [autoit]


    ;3tte Gui
    FileInstall(@ScriptDir&"\gui3.exe", @ScriptDir&"\gui3.exe")
    Run (@ScriptDir&"\gui3.exe")

    [/autoit]

    Es gibt sehr viele Leute, die glauben. Aber aus Aberglauben.
    - Blaise Pascal

  • IN GUI3 muss doch RUN stehen!
    Die Abfrage wäre doch dann:

    [autoit]


    If GUICtrlRead($Serial) = $Input2 Then
    Run($Pfad)
    EndIf

    [/autoit]

    Meine fertigen Projekte:
    VirtualCash
    Monopoly Digital

    Daran arbeite ich gerade:
    Einem Skript, womit man ohne Programmierkentisse eigene Programme machen kann (habe ich selber früher gesucht :D ) Stand: ||||||||||||||||||||||||| 6%

  • Also ich für meinen Teil verstehe dein Problem nicht :huh:
    Kannst du das vielleicht noch mal genauer erläutern?

    mfg Ubuntu

  • man!!!!! wozu ist dieses FORUM DA?

    Ruhig Blut !
    Reg dich nicht sofort auf.
    Wir können nicht hellsehen, was dir passt oder nicht.
    Es war ein Vorschlag.

    Und glaub mir, wenn du weiter auf der Schiene fährst, wird die hier niemand mehr helfen :thumbdown:

  • Ruhig Blut !
    Reg dich nicht sofort auf.
    Wir können nicht hellsehen, was dir passt oder nicht.
    Es war ein Vorschlag.

    Und glaub mir, wenn du weiter auf der Schiene fährst, wird die hier niemand mehr helfen :thumbdown:

    Wie recht er hat ;)

    ich kann (leider) aus erfahrung mit reden ;)

    Es gibt sehr viele Leute, die glauben. Aber aus Aberglauben.
    - Blaise Pascal

  • Du solltest halt im kopf behalten, das wir das hier ohne gegenleistung machen.

    Ein wenig Gedult und ein freundlicher Umgangston wären da angebracht.

    mfg Ubuntu

  • Also man soll im 2.GUI Name, Serial und Programmpfad eingeben. Sobald man auf OK klickt soll er die Quelldatei in $Pfad gelöscht werden(vlt. FileDelete($Pfad)) und dann wieder erstellt werden, mit dem gleichen Namen und dem gleichen Icon, nur dass voher die 3.GUI kommt und nach der Nummer fragt, die wir im 2.GUI eingegeben haben.

    Jetzt verstanden? Hab ganz oben noch mal editiert :)

    Meine fertigen Projekte:
    VirtualCash
    Monopoly Digital

    Daran arbeite ich gerade:
    Einem Skript, womit man ohne Programmierkentisse eigene Programme machen kann (habe ich selber früher gesucht :D ) Stand: ||||||||||||||||||||||||| 6%

  • So?

    [autoit]


    Run($ScriptPath)
    FileDelete(@ScriptFullPath)
    Exit

    [/autoit]

    Edit: Irgenwie weiss ich immer noch nicht worauf du hinaus willst.
    Was soll das Programm denn tun?

  • Das Programm soll einfach eine Datei löschen, dann wieder erstellen, aber mit Serialabfrage.
    edit: Aber eine externe exe kann doch nicht auf $Input2 zugreifen. Die muss dann ja in mein Script rein.
    Oder vlt. mit IniWrite( ... )?

    Meine fertigen Projekte:
    VirtualCash
    Monopoly Digital

    Daran arbeite ich gerade:
    Einem Skript, womit man ohne Programmierkentisse eigene Programme machen kann (habe ich selber früher gesucht :D ) Stand: ||||||||||||||||||||||||| 6%

    Einmal editiert, zuletzt von button421 (19. Mai 2010 um 19:38)

  • [autoit]


    $readFileRead(file)
    FileDelete($filepath)
    ;variable $read an gui 3 geben http://www.autoit.de/index.php?page=Thread&threadID=20203
    RunWait($Gui3)
    FileDelete(@ScriptFullPath);Selbstzerstörung
    Exit

    [/autoit][autoit]

    ;in gui3
    ;varaiable empfangen
    _FileCreate($filepath)
    FileWrite($read)

    [/autoit]

    Das kannst du mal ausprobieren.
    Wenn alles in einem Prozess/Script wäre wäre es einfacher.

    mfg Ubuntu

  • Hmmm... in der UDF stehts jetzt so:

    [autoit]


    ;#FUNCTION===================
    Global $Programmpfad
    $Programmpfad = FileOpenDialog("Programmpfad!",@DesktopDir,"Ausführbare Dateien (*.exe)", 15)

    [/autoit]


    Und dann startet der FileOpenDialog auch gleich. Und das lesen von dem Inhalt der Variable vom HauptProgramm geht auch nicht :( Ich kann mit UDF´s einfach nicht umgehen

    Meine fertigen Projekte:
    VirtualCash
    Monopoly Digital

    Daran arbeite ich gerade:
    Einem Skript, womit man ohne Programmierkentisse eigene Programme machen kann (habe ich selber früher gesucht :D ) Stand: ||||||||||||||||||||||||| 6%