如何讓我的控制檯窗口打開？ VB

Question

我想讓我的控制檯窗口在Visual Basic中打開。用我的代碼，我只能要求一行，然後窗口關閉。這裏是我的代碼：

Module Module1 

Sub Main() 

    If (Console.ReadLine = "e") Then 
     Console.WriteLine("Test") 
    End If 

    Console.ReadKey() 

End Sub 

End Module 

所以當我運行這段代碼時，我可以輸入「e」按回車。單詞出現「測試」，然後控制檯在按下一個鍵後關閉。但是我想讓它開放直到我寫一個特殊的單詞。

Answer 1

這是一個愚蠢的例子：

Sub Main() 
    Dim password As String = "007" 

    Dim response As String 
    Do 
     Console.Write("Password: ") 
     response = Console.ReadLine 
     If response <> password Then 
      Console.WriteLine("Incorrect Password!") 
     End If 
    Loop While response <> password 

    Console.WriteLine("Welcome James Bond!") 
    Console.Write("Press [Enter] to proceed...") 
    Console.ReadLine() 
End Sub