Hi,

Ich habe folgendes VBScript geschrieben:

Dim Untergrenze, Obergrenze, Wert, Zufallszahl, Counter

Randomize()

Wert = 0
Untergrenze = 1
Obergrenze = 5
Zufallszahl = Int((Obergrenze - Untergrenze + 1) * Rnd() + Untergrenze)
Counter = 0

Do

Counter=Counter+1

Wert = InputBox("Bitte geben Sie eine Zahl zwischen 1 und 5 ein", "Eingabe")

If Zufallszahl<Wert Then _
    WScript.Echo("Meine Zahl ist kleiner!")

If Zufallszahl>Wert Then _
    WScript.Echo("Meine Zahl ist größer!")

If Wert=Zufallszahl Then _
    WScript.Echo("Richtig. Versuche: " + CStr(Counter))

Loop while Wert<>Zufallszahl

nur will das ganze nicht wirklich funktionieren. Ich hab soweit schon herausgefunden, dass es an der InputBox liegen muss, da das ganze ohne InputBox funktioniert. Für jede Antwort bin ich dankbar.