指定時間後にVBコンソールアプリケーションを閉じる方法

Question

一連のタスクを実行するVBコンソールアプリケーションを作成しました。スケジュールに基づいて実行するようにWindowsタスクスケジューラで設定する予定です。私はそのタスクを完了すると30秒後にexeを終了したいと思います。私はそれが閉じる前に何かを押す必要がある "Console.readline（）"に慣れています。あなたは助けることができますか？

Sub Main() 
    If Directory.Exists(MyPath) Then 
     RenameAll(MyPath) 
     Console.WriteLine(vbCrLf + vbCrLf + "Press ENTER to exit...") 
     Console.ReadLine() 
    Else 
     Console.WriteLine(vbCrLf + "Path is invalid") 
     Console.WriteLine(vbCrLf + vbCrLf + "Press ENTER to exit...") 
     Console.ReadLine() 
    End If 
End Sub 

Answer 1

あなたは...これで

Console.WriteLine(vbCrLf + vbCrLf + "Press ENTER to exit...") 
Console.ReadLine() 

をあなたの行を置き換えることができます。

Dim sw As New Diagnostics.Stopwatch 
sw.Start() 
Console.WriteLine("This console window will close in 30 seconds") 
Console.WriteLine("Or press any key") 
Do 
Loop Until sw.ElapsedMilliseconds >= 30000 Or console.KeyAvailable 

これはストップウォッチを作成し、経過ミリ秒数> = 30000またはユーザのいずれかのキーを押すまでループし続けます。

また

---

、あなただけのコンソールは、ユーザーの操作なしで30秒間開いたまま

Threading.Thread.Sleep(30000)