Lizenzcode

1. offizieller Beitrag

    Hallo, wie mache ich es das ein bestimmter Lizenzcode [Den ich vorher bestimmt habe] eingegeben werden muss damit das Programm startet?
    (Ist für mein Updater ;) )

    Mein Code:

    [autoit]


    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    $hIE = _IECreateEmbedded()
    $Form1 = GUICreate("Updater/Programme", 987, 696, 108, 6)
    GUISetIcon("C:\Users\********\Documents\Dokumente\icons\Component.ico")
    $Pic1 = GUICtrlCreateObj($hIE, 0, 24, 985, 665)
    $Label1 = GUICtrlCreateLabel("Du weisst nicht welche Version du von ein bestimmten Programm hast? Links oben bei den Programm steht es!", 8, 0, 525, 17)
    $Pic2 = GUICtrlCreatePic("C:\Users\********\Videos\version.jpg", 552, 0, 129, 25, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    _IENavigate($hIE, "http://**********.bplaced.net/")
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

    Einmal editiert, zuletzt von slin (18. Oktober 2009 um 02:35)

    Für dein Updater, den du bereits im anderen Thread erfragst. Sorry, aber ich bitte dich mal selber etwas zu machen. Du kannst doch nicht ernsthaft erwarten, dass wir dir jede einzelne Zeilen coden? Probier es einfach mal und poste dann deine Ansätze. Dann sehen wir auch, dass du dich bemühst.

    Zitat von blubbstar

    Für dein Updater, den du bereits im anderen Thread erfragst. Sorry, aber ich bitte dich mal selber etwas zu machen. Du kannst doch nicht ernsthaft erwarten, dass wir dir jede einzelne Zeilen coden? Probier es einfach mal und poste dann deine Ansätze. Dann sehen wir auch, dass du dich bemühst.

    Denkst du ich probiere nichts selber? :cursing: Da hast du dich aber geschnitten! Du "Profi" :rofl:

    Hallo slin,

    Zitat von slin

    Hallo, wie mache ich es das ein bestimmter Lizenzcode [Den ich vorher bestimmt habe] eingegeben werden muss damit das Programm startet?

    Einfach ein Edit-Control zur Eingabe und einen Button zum Bestätigen, das ganze am besten in einer eigenen Gui vor dem eigentlichen Programmstart. Wenn der Code X-mal falsch eingeben wurde einfach Programm mit exit beenden, ansonsten bei richtiger Eingabe Programm starten.

    mfg (Auto)Bert

    • Offizieller Beitrag
    Zitat von slin

    Denkst du ich probiere nichts selber? :cursing: Da hast du dich aber geschnitten! Du "Profi"

    Bleib bitte auf dem Teppich und halte dich an die Netiquette!
    Der Einwurf von blubbstar ist völlig berechtigt: Wenn du nicht weiterkommst, dann zeig uns bitte, was du bisher versucht hast. Dann können wir auch ganz gezielt helfen.

    Hallo,
    ich versuche dir ein paar Gedankenstützen zu geben.

    [autoit]


    $Serial_Input = InputBox ("Serial", "Bitte Serial eingeben!")
    If $Serial_Input = $Serial Then
    Start()
    Else MsgBox (1, "Falsch", "Falsch")
    EndIf

    [/autoit]

    Das ganze Programm setzt du einfach in eine Funktion.
    Den Rest kannst du doch selber erkennen oder?! :)
    :D

    um es ganz einfach zum machen würde ich eine input box empehlen wund ein if um den code zu überprüfen.
    schau dir mal die hilfe zur input box an

    Hallo slin,

    auf deine Frage perf PN zu

    Zitat von AutoBert

    Einfach ein Edit-Control zur Eingabe und einen Button zum Bestätigen, das ganze am besten in einer eigenen Gui vor dem eigentlichen Programmstart. Wenn der Code X-mal falsch eingeben wurde einfach Programm mit exit beenden, ansonsten bei richtiger Eingabe Programm starten.

    Hierbei hatte ich an eine Lösung wie diese gedacht:

    Spoiler anzeigen
    [autoit]

    #include <GuiConstantsEx.au3>
    #include <EditConstants.au3>
    #include <Misc.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    Opt("MustDeclareVars", 1)

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

    If _LicencePlease("TEST",5) = 1 Then _Main()

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

    Func _LicencePlease($sLic = "",$iTimes =0)
    Local $hfrmGui, $coords[4], $hedtLic, $hlblLic, $bLoop, $text, $btnOK, $msg, $sRet = 0
    $hfrmGui = GUICreate("Zugriff Verweigert!!!", 200, 140)
    ;GUISetBkColor(0xff5001, $hfrmGui)
    $hlblLic = GUICtrlCreateLabel("Zuerst den Lizenz-Code eingeben.", 10, 10, 180, 30)
    $hedtLic = GUICtrlCreateEdit("", 10, 80, 180, 20, BitOR($ES_UPPERCASE, $ES_PASSWORD))
    $btnOK = GUICtrlCreateButton("an&melden", 10, 110, 70)
    $bLoop = 0
    GUISetState()
    $coords = WinGetPos($hfrmGui)
    _MouseTrap($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])

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

    While $bLoop < $iTimes
    $msg = GUIGetMsg()
    Switch $msg
    Case $Gui_EVENT_CLOSE
    Exit
    Case $btnOK
    $bLoop += 1
    If $sLic = GUICtrlRead($hedtLic) Then;Fragt die eingegebene Lizenz ab
    ConsoleWrite($sLic & " = " & GUICtrlRead($hedtLic) & " ?" & @CRLF)
    MsgBox(4096, "Congratulation", "You typed in the Licence-Key word!")
    $sRet = 1
    ExitLoop
    Else
    If $bLoop = $iTimes Then
    MsgBox(4096, "Error", "You typed in the wrong Licence-Key for " & $iTimes & " Times =>EXIT!")
    ;Exit
    Else
    MsgBox(4096, "Error", "You typed in the wrong Licence-Key - try again!")
    EndIf
    EndIf
    EndSwitch
    WEnd
    _MouseTrap()
    GUIDelete($hfrmGui)
    Return $sRet
    EndFunc ;==>_LicencePlease

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

    Func _main()
    Local $hIE, $Form1, $Pic1, $Pic2, $Label1, $nMsg
    $hIE = _IECreateEmbedded()
    $Form1 = GUICreate("Updater/Programme", 987, 696, 108, 6)
    GUISetIcon("C:\Users\********\Documents\Dokumente\icons\Component.ico")
    $Pic1 = GUICtrlCreateObj($hIE, 0, 24, 985, 665)
    $Label1 = GUICtrlCreateLabel("Du weisst nicht welche Version du von ein bestimmten Programm hast? Links oben bei den Programm steht es!", 8, 0, 525, 17)
    $Pic2 = GUICtrlCreatePic("C:\Users\********\Videos\version.jpg", 552, 0, 129, 25, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    _IENavigate($hIE, "http://**********.bplaced.net/")
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $Gui_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd
    EndFunc ;==>_main

    [/autoit]


    mfg (Auto)Bert

    Einmal editiert, zuletzt von AutoBert (18. Oktober 2009 um 16:32)