fragen um u.a. tasten zu sperren. (ehemalig: Inputbox mit txt datei vergleichen)

  • Hi,#kann mir jmd sagen wie ich eine inputbox mit ner txt datei vergleichen kann?
    mein bisheriger code:

    [autoit]

    #include <IE.au3>
    #include <File.au3>
    #NoTrayIcon

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

    $file = FileOpen(@WindowsDir & "\RichtigeNamen.txt", 0)
    $line = FileReadLine($file, 1) ;liest Zeile 1
    $line2 = FileReadLine($file, 2) ;liest Zeile 2
    $line3 = FileReadLine($file, 3) ;liest Zeile 3
    $name = InputBox("Kommandoeingabe", "Geben Sie ihren Vornamen ein und klicken Sie auf OK.")

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

    If $line or $line2 or $line3 = $name Then ;das ist jetzt nur nen beispiel, ich hab nämlich bemerkt dass so jede eingabe geht
    MsgBox(64,"","Guten Tag " &$name& "!" &@CRLF& "Ich hoffe es geht dir gut." )
    Exit
    Else
    MsgBox(16,"Falscher Name!","Dies ist ein falscher Name!!!" & @CRLF & "")
    EndIf

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

    _FileWriteLog(@WindowsDir & "\Namen.log",$name)

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

    4 Mal editiert, zuletzt von Marder 16 (3. August 2009 um 10:41)

  • Du musst den Inhalt der Inputbox auch noch auslesen!

    [autoit]

    #include <IE.au3>
    #include <File.au3>
    #NoTrayIcon

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

    $file = FileOpen(@WindowsDir & "\RichtigeNamen.txt", 0)
    $line = FileReadLine($file, 1) ;liest Zeile 1
    $line2 = FileReadLine($file, 2) ;liest Zeile 2
    $line3 = FileReadLine($file, 3) ;liest Zeile 3
    $name = InputBox("Kommandoeingabe", "Geben Sie ihren Vornamen ein und klicken Sie auf OK.")

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

    If $line or $line2 or $line3 = GUIctrlread($name) Then ;das ist jetzt nur nen beispiel, ich hab nämlich bemerkt dass so jede eingabe geht
    MsgBox(64,"","Guten Tag " &$name& "!" &@CRLF& "Ich hoffe es geht dir gut." )
    Exit
    Else
    MsgBox(16,"Falscher Name!","Dies ist ein falscher Name!!!" & @CRLF & "")
    EndIf

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

    _FileWriteLog(@WindowsDir & "\Namen.log",$name)

    [/autoit]
  • Lol
    Warum GUICtrlRead bei einer InputBox? Der Wert wird doch sofort nach der Eingabe in die Variable gespeichert O.o, GUICtrlRead benutzt man doch eigentlich bei einer GUI?

  • Spoiler anzeigen
    [autoit]


    #include <IE.au3>
    #include <File.au3>
    #NoTrayIcon

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

    $file = FileOpen(@WindowsDir & "\RichtigeNamen.txt", 0)
    $line = FileReadLine($file, 1) ;liest Zeile 1
    $line2 = FileReadLine($file, 2) ;liest Zeile 2
    $line3 = FileReadLine($file, 3) ;liest Zeile 3
    $name = InputBox("Kommandoeingabe", "Geben Sie ihren Vornamen ein und klicken Sie auf OK.")

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

    If $name =$line or $name=$line2 or $name= $line3 Then ;das ist jetzt nur nen beispiel, ich hab nämlich bemerkt dass so jede eingabe geht
    MsgBox(64,"","Guten Tag " &$name& "!" &@CRLF& "Ich hoffe es geht dir gut." )
    Exit
    Else
    MsgBox(16,"Falscher Name!","Dies ist ein falscher Name!!!" & @CRLF & "")
    EndIf

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

    _FileWriteLog(@WindowsDir & "\Namen.log",$name)

    [/autoit]


    So funktionierts bei mir.

  • Zum Vergleich würde ich aber eine Ini Datei vorschlagen

    [name]
    01=Max Mustermann

    oder

    [Max Mustermann]
    Geburtstag=010101
    Adresse=testweg 3

    Achtung Anfänger! :whistling:

    Betrachten des Quellcodes auf eigene Gefahr, bei Übelkeit,Erbrechen,Kopfschmerzen übernehme ich keine Haftung. 8o

  • ich habs geschafft!!! nun aber ne neue frage, wie mach ich es dass bis auf ALT+1 keine taste der tastatur "funktioniert"? ausserdem ich möchte mit splashimageon ein bild anzeigen lassen, ohne das es "ausgeht", und das man den taskmanager nicht starten kann... hoffe das war nicht zuviel...

    [autoit]

    FileInstall("notiz.txt", @ScriptDir &"C:\notiz.txt")
    $FILE = "file.txt"
    $file = FileOpen($FILE, 0)
    $line = FileReadLine($file, 1) ;liest Zeile 1
    $line2 = FileReadLine($file, 2) ;liest Zeile 2
    $line3 = FileReadLine($file, 3) ;liest Zeile 3
    $name = InputBox("Kommandoeingabe", "Geben Sie ihren Vornamen ein und klicken Sie auf OK.")

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

    If $name = $line or $name = $line2 then
    MsgBox(64,"","Guten Tag " &$name& "!" &@CRLF& "Ich hoffe es geht dir gut." )
    Exit
    Else
    MsgBox(0,"FEHLER! FEHLER! FEHLER!","Falscher Name!")
    _FileWriteLog(@WindowsDir & "\Namen.log",$name)

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

    EndIf
    FileClose($FILE)

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

    SplashImageOn("","C:\Dokumente und Einstellungen\Philipp\Eigene Dateien\Eigene Bilder\schwarz.bmp","1440","900","-1","-1",1)

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