ウォッチドッグタイマーの実装方法 (ID:103282)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Windowsフォーム・アプリケーションである処理(Hoge.main)を数万回 繰り返し実行していますが、この処理がごく稀にフリーズしてので1分間 のウォッチドッグタイマを作っています。 タイマ起動時の呼び出し元側(Class From1)と呼び出し先(Class test)で 安全に終了処理させる仕方が判りません。 どなたがご教授お願いします。 <呼び出し元> Public Class Form1 Private Sub Form1_Load(ByVal sender ・・・・・ Hoge.Main() 【質問１】Class testをタイマにより強制的に抜けてきた場合の処理 End Sub End Class <呼び出し先> Public Class test Public Shared Sub Main() Dim timerCallback As _ New TimerCallback(AddressOf WatchdogTimer) ' ' Watch dog Timerとして、1分後にtimerCallbackメソッドを呼び出す Dim timer As New Timer( _ timerCallback, Nothing, 60 * 1000, 0) ' ・ (数万回の繰り返し処理を実装) ・ End Sub 'Watch dog Timerの処理 Private Shared Sub WatchdogTimer(state As Object) ' msgbox "フリーズしているので強制終了します" 【質問２】Class testを強制的に抜けるには？ End Sub End Class