Консольное приложение VB.net приостанавливается и остается открытым

Question

Привет всем, я пытаюсь понять, как сохранить мое консольное приложение открытым даже после того, как оно соберет данные и отправит их. Я конвертирую графический интерфейс для консольного приложения. У него есть таймер, который запускает саб каждые 20 секунд. Но похоже, что это не работает в консольном приложении, так как после того, как оно сработает, оно закрывает приложение без ожидания.

Dim secTimer As New System.Timers.Timer(20000)

Sub Main()
    Call copyRTDtoWS()
    AddHandler secTimer.Elapsed, AddressOf TimerDone
    secTimer.Enabled = True
End Sub

Public Sub copyRTDtoWS()
    Dim connectionString As String = GetConnectionString()
    Dim dataReader As SqlDataReader = Nothing
    etc etc...
    Call resetTimer()
End Sub

Private Sub resetTimer()
    secTimer.Stop()
    secTimer.Start()
End Sub

Public Sub TimerDone(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
    secTimer.Stop()
    Call copyRTDtoWS()
End Sub

Что все, что мне нужно сделать, чтобы оно работало так же, как и версия с графическим интерфейсом?

Спасибо за ваше время,

David

Answer 1

Как уже писал DharaPPatel в своем комментарии, console.readkey () заставляет консольное приложение ждать нажатия клавиши.Поместите его в конец вашей основной записи ():

Sub Main()
    Call copyRTDtoWS()
    AddHandler secTimer.Elapsed, AddressOf TimerDone
    secTimer.Enabled = True


    Console.ReadKey()

End Sub