ハンドルされていない例外エラー (ID:143244)

名前

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

本文

system.stackoverflowexceptionのハンドルされていない例外がsystem.dllで発生しました。

以下のFunction ac_activeをtimerで、１秒に一回起動しています。
随分１時間とかほったらかすと、いつのまにか、エラーが発生しています。
ヘルプに無限ループしているとエラーするとかあるので、これに相当するのかと思いますが、
こういった使い方自体がダメなのでしょうか。

'AutoCADが起動しているか
    Function ac_active()
        On Error Resume Next
        ac_active = False

' 実行中のすべてのプロセスを取得する
        Dim hProcesses As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()

' コンピュータ名を指定すると、別のコンピュータのプロセスが取得可能です
        'hProcesses = System.Diagnostics.Process.GetProcesses("MachineName")

Dim stPrompt As String = String.Empty

' 取得できたプロセスからプロセス名を取得する
        For Each hProcess As System.Diagnostics.Process In hProcesses
            stPrompt &= hProcess.ProcessName & System.Environment.NewLine
            If InStr(hProcess.MainWindowTitle, "AutoCAD") > 0 Then
                ac_active = True
                Exit Function
            End If

Next hProcess

' 実行中のすべてのプロセス名を表示する
        'MessageBox.Show(stPrompt)
    End Function

←解決時は質問者本人がここをチェックしてください。

戻る