Prevent console from terminate by ctrl-C or multi press enter key when console is running async task?

See more:

C#

VB

Visual-Studio

console

Hi guys,

How to prevent console from exiting while the async task is currently running or on Await Task.Delay(milliseconds)?

Currently on my Main:

Sub Main(ByVal args() As String)
    If args.Length <> 0 Then
        Dim i As Integer = 0
        While i < args.Length
            If (args(i)) = "config" Then
                HideConsole()
                System.Windows.Forms.Application.EnableVisualStyles()
                System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(False)
                System.Windows.Forms.Application.Run(New formsettings)
            End If
            i = i + 1
        End While
    Else
        ShowConsole()
        MaximizeConsole()
        Trace.Listeners.Clear()
        Dim twtl As New TextWriterTraceListener(AppDomain.CurrentDomain.BaseDirectory & "out.txt")
        twtl.Name = "TextLogger"
        twtl.TraceOutputOptions = TraceOptions.ThreadId Or TraceOptions.DateTime
        Dim ctl As New ConsoleTraceListener(False)
        ctl.TraceOutputOptions = TraceOptions.DateTime
        Trace.Listeners.Add(twtl)
        Trace.Listeners.Add(ctl)
        Trace.AutoFlush = True
        Trace.WriteLine("Program started at " & DateTime.Now.ToString("dd-MM-yyyy HH:mm:ss:fff"))
        ConsoleStartup()
        Console.ReadKey()
    End If
End Sub

Where ConsoleStartup is where the task will running by interval. Lets say every one hours:-

Private Sub ConsoleStartup()
	Try
		Do
			tmr_repeat = TimeSpan.Parse(My.MySettings.Default.Interval).TotalMilliseconds
			For i = 1 To 7
				Console.WriteLine(DateTime.Now.ToString("dd-MM-yyyy HH:mm:ss:fff") & " > Checking for Line: {0}", i)
				dt_local = ShowTotalCount(objlocalconn, i)
				Await CompareValue(i)
			Next
			Dim date1 As Date = Date.Now
			Dim toadd As Integer = TimeSpan.Parse(My.MySettings.Default.Interval).TotalSeconds
			Dim date3 As Date = date1.AddSeconds(toadd)
			Console.WriteLine(DateTime.Now.ToString("dd-MM-yyyy HH:mm:ss:fff") & " > Timer restarted. Next batch process {0}", date3.ToString(dateFormat))
			Await Task.Delay(tmr_repeat)
		Loop
	Catch ex As Exception

	End Try
End Sub

Currently whenever I press Ctrl-C or accidently pressing Enter key 2 times, it will suddently terminate the console even the console is on doing some async loop task. I have try some code but not works and even I stuck on placing the code and merge with my ConsoleStartup Sub

What I have tried:

Sub Main(ByVal args() As String)
Dim t As Task = MainAsync(args)
t.Wait()
End Sub
Private Function MainAsync(ByVal args() As String) As Task
ShowConsole()
MaximizeConsole()
Trace.Listeners.Clear()
Dim twtl As New TextWriterTraceListener(AppDomain.CurrentDomain.BaseDirectory & "out.txt")
twtl.Name = "TextLogger"
twtl.TraceOutputOptions = TraceOptions.ThreadId Or TraceOptions.DateTime
Dim ctl As New ConsoleTraceListener(False)
ctl.TraceOutputOptions = TraceOptions.DateTime
Trace.Listeners.Add(twtl)
Trace.Listeners.Add(ctl)
Trace.AutoFlush = True
Trace.WriteLine("Program started at " & DateTime.Now.ToString("dd-MM-yyyy HH:mm:ss:fff"))
ConsoleStartup()
Console.ReadKey()
End Function