Serien-Nummer

  • Ich habe folgenden Script genauso im Internet entdeckt und weiß nicht, wie ich ihn nutzen könnte, um ein Programm mit dieser Abfrage auszustatten.

    Wie baue ich es so, das bei richtiger Serien-Nummer ein Programm weiter läuft und bei falscher Serien-Nummer ein Fenster kommt mit "Falsche Serien-Nummer" und dann das Programm beendet wird.

    Spoiler anzeigen

    hotkeyset('{ESC}', 'ciao')
    $delay=60
    $requiresdelay=0
    $requirestab=0

    $serial=inputbox("Seriennummerprüfen", "Bitte Seriennummer eingeben.")

    for $t=$delay to 0 step -1
    sleep(100)
    $r=StringFormat("%.1f", $t/10)
    traytip("Bitte warten", $r & " Secs ",10,16+1)
    next

    if $requiresdelay OR $requirestab then
    $array = StringSplit($serial,"-", 1)
    for $t=1 to $array[0]
    send($array[$t])
    sleep(100)
    if $requirestab then send (@tab)
    next
    else
    send ($serial)
    If $serial = "123456789" Then
    MsgBox(0, "Beispiel", "Die Seriennummer " & ($serial) & " war okay") ; SN OKAY
    Else
    MsgBox(0, "Beispiel", "Die Seriennummer " & ($serial) & " war falsch") ; SN FALSCH
    EndIf
    exit
    endif
    ;__________ EXIT _____________________________
    func ciao()
    EndFunc
    exit


    So, ich muß mich wieder hinlegen, da es mir derzeitig nicht so gut geht.

    LG Lina.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    OuBVU5ebLhHu5QvlnAyQB4A7SzBrvWulwL7RLl2BdH5tI6sIYspeMKeXMSXl

  • [autoit]


    hotkeyset('{ESC}', 'ciao')
    $delay=60
    $requiresdelay=0
    $requirestab=0

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

    While 1
    $serial=inputbox("Seriennummerprüfen", "Bitte Seriennummer eingeben.")

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

    for $t=$delay to 0 step -1
    sleep(100)
    $r=StringFormat("%.1f", $t/10)
    traytip("Bitte warten", $r & " Secs ",10,16+1)
    next

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

    if $requiresdelay OR $requirestab then
    $array = StringSplit($serial,"-", 1)
    for $t=1 to $array[0]
    send($array[$t])
    sleep(100)
    if $requirestab then send (@tab)
    next
    else
    send ($serial)
    If $serial = "123456789" Then
    MsgBox(0, "Beispiel", "Die Seriennummer " & ($serial) & " war okay") ; SN OKAY
    ExitLoop
    Else
    MsgBox(0, "Beispiel", "Die Seriennummer " & ($serial) & " war falsch") ; SN FALSCH
    EndIf

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

    endif

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


    sleep (10)
    WEnd

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

    ;Hier kommt der rest des Programms wenn die seriennr ok war.
    MsgBox (0,"","test")

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

    ;__________ EXIT _____________________________
    func ciao()
    EndFunc
    exit

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

    Einmal editiert, zuletzt von Tam0r (30. April 2007 um 02:24)

  • Hallo TamOr.

    Ich möchte mich bei Dir recht ehrzlich bedanken.

    LG Lina

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    OuBVU5ebLhHu5QvlnAyQB4A7SzBrvWulwL7RLl2BdH5tI6sIYspeMKeXMSXl