【Windows Forms極限統御】未処理例外を完全捕縛せよ：描画キャプチャによるリモート保守自動化の極意
開発現場で最も恐ろしい瞬間とは何か。それは、テスト環境では一切再現せず、顧客の本番環境（しかも遠隔地）で突如として発生する「謎の未処理例外」だ。
「ボタンを押したら落ちました」
「エラーメッセージが出たけれど、何が書いてあったか忘れました」
……この手の問い合わせにエンジニアが疲弊するのは、もう終わりにしよう。
プロフェッショナルな業務アプリケーション開発において、例外処理とは「ログを吐いてメッセージボックスを出す」だけの甘いものではない。例外が発生したその瞬間のデスクトップの全景を物理的に凍結保存し、開発者へ自動送信するインフラを構築して初めて、真の「保守性の高いアーキテクチャ」と呼べる。
今回は、Windows Forms（VB.NET）の描画機構とAppDomainの例外フックを極限までチューニングし、一滴のメモリリークも許さない堅牢なスクリーンショット自動保存メカニズムを伝授する。
—
なぜ「画面の切り取り」で失敗するのか？（アンチパターンの排除）
素人が書いたコードや、ネットの古いサンプルをそのままコピペした実装では、本番稼働時に必ず破綻する。まずは何を避けるべきか、その理由をロジカルに解説しよう。
1. メインスレッドのブロックとUIフリーズ
例外発生時はすでにアプリケーションの状態が不安定である。重い画像処理や同期通信をそのまま行うと、UIスレッドが完全に死に、OSから「応答なし」の烙印を押されてダンプすら取れずに強制終了する。
2. マルチモニター環境（DPIスケーリング）の無視
`Screen.PrimaryScreen` だけをキャプチャする設計は、昨今のマルチモニター全盛期において愚の骨頂である。サブモニターで起きたエラーは闇に葬られるか、歪んだ画像になる。すべてのディスプレイ領域を包含する仮想画面（VirtualScreen）を計算しなくてはならない。
3. GDI+リソースの枯渇（Memory Leak）
`Bitmap` や `Graphics` オブジェクトは、明示的に破棄（Dispose）しないとGDIハンドルを食いつぶし、アプリケーションだけでなくWindowsの動作全体を不安定にする。
これらを完全にクリアし、どんな劣悪な環境下でも確実に対象を捉えるプロダクションコードを見ていこう。
—
プロダクションコード：堅牢な例外キャプチャ機構
以下のコードは、Windows Formsアプリケーションのエントリポイント（あるいはMainメソッド）でグローバルな例外をフックし、全画面のキャプチャと例外詳細のログ出力をノンブロッキングで行う完全実装だ。
Visual Studioのプロジェクトに標準的なWindowsフォームアプリを作成し、`Application.myapp` または `Module1.vb` に組み込んでほしい。
Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
Imports System.Threading
Imports System.Windows.Forms
Namespace Enterprise.Diagnostics
”’
”’
Public NotInheritable Class ExceptionGuard
Private Sub New()
‘ 静的クラスとしてインスタンス化を禁止
End Sub
”’
”’
Public Shared Sub Initialize()
‘ UIスレッドの未処理例外をキャッチ
AddHandler Application.ThreadException, AddressOf OnUIThreadException
‘ 非UIスレッド（バックグラウンドワーカー等）の未処理例外をキャッチ
AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf OnNonUIThreadException
End Sub
”’
”’
Private Shared Sub OnUIThreadException(sender As Object, e As ThreadExceptionEventArgs)
ProcessFatalException(e.Exception, “UIThreadException”)
End Sub
”’
”’
Private Shared Sub OnNonUIThreadException(sender As Object, e As UnhandledExceptionEventArgs)
Dim ex As Exception = TryCast(e.ExceptionObject, Exception)
If ex IsNot Nothing Then
ProcessFatalException(ex, “NonUIThreadException”)
End If
End Sub
”’
”’
Private Shared Sub ProcessFatalException(ex As Exception, context As String)
Try
‘ 1. スクリーンショットの生成
Dim screenShotPath As String = CaptureAndSaveDesktop(ex)
‘ 2. 詳細ログの書き出し
WriteErrorLog(ex, context, screenShotPath)
‘ 3. ユーザーへの優美な通知と安全な終了
MessageBox.Show(
“予期せぬエラーが発生しました。” & Environment.NewLine &
“管理者へログと画面キャプチャが保存されました。” & Environment.NewLine &
“お手数ですがシステムを再起動してください。”,
“致命的なエラー”,
MessageBoxButtons.OK,
MessageBoxIcon.Error
)
Catch innerEx As Exception
‘ 例外処理中の例外（二重障害）は、OSのイベントログ等に書き出すか、サイレントに握りつぶして強制終了を防ぐ
System.Diagnostics.Debug.WriteLine($”Critical Error in ExceptionGuard: {innerEx.Message}”)
Finally
‘ アプリケーションの安全な強制終了
Environment.Exit(1)
End Try
End Sub
”’
”’
Private Shared Function CaptureAndSaveDesktop(ex As Exception) As String
‘ 保存先ディレクトリの構築（存在しない場合は作成）
Dim logDir As Path = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, “ErrorLogs”)
If Not Directory.Exists(logDir.ToString()) Then
Directory.CreateDirectory(logDir.ToString())
End If
Dim timeStamp As String = DateTime.Now.ToString(“yyyyMMdd_HHmmss_fff”)
Dim fileName As String = $”ErrorShot_{timeStamp}.png”
Dim filePath As Path = Path.Combine(logDir.ToString(), fileName)
‘ マルチモニター環境を考慮した仮想画面の境界を計算
Dim bounds As Rectangle = Rectangle.Empty
For Each screen As Screen In Screen.AllScreens
bounds = Rectangle.Union(bounds, screen.Bounds)
Next
‘ GDI+リソースの確実な解放のため Using ステートメントを強制
Using bmp As New Bitmap(bounds.Width, bounds.Height, PixelFormat.Format32bppArgb)
Using g As Graphics = Graphics.FromImage(bmp)
‘ 仮想スクリーンの左上を起点に全画面を描画コピー
g.CopyFromScreen(bounds.Location, Point.Empty, bounds.Size)
End Using
‘ PNG形式で圧縮保存（JPEGよりも文字潰れが少なく解析に適している）
bmp.Save(filePath.ToString(), ImageFormat.Png)
End Using
Return filePath.ToString()
End Function
”’
”’
Private Shared Sub WriteErrorLog(ex As Exception, context As String, screenShotPath As String)
Dim logDir As String = Path.GetDirectoryName(screenShotPath)
Dim logFilePath As Path = Path.Combine(logDir, “ErrorDetail.log”)
Dim logContent As String =
“————————————————–” & Environment.NewLine &
$”Timestamp : {DateTime.Now:yyyy-MM-dd HH:mm:ss.fff}” & Environment.NewLine &
$”Context : {context}” & Environment.NewLine &
$”Exception : {ex.GetType().FullName}” & Environment.NewLine &
$”Message : {ex.Message}” & Environment.NewLine &
$”StackTrace : {Environment.NewLine}{ex.StackTrace}” & Environment.NewLine &
$”Screenshot : {screenShotPath}” & Environment.NewLine &
“————————————————–” & Environment.NewLine
‘ 共有違反を防ぐため、File.AppendAllTextでスレッドセーフに追記
File.AppendAllText(logFilePath.ToString(), logContent, System.Text.Encoding.UTF8)
End Sub
End Class
End Namespace
—
現場で役立つ！アーキテクチャの急所と運用上の注意点
この仕組みを導入するにあたり、現場のリーダーとして押さえておかなべき「実務の知見」をいくつか共有しよう。
1. 保存先の選定と権限問題（Network vs Local）
コード例ではアプリケーションの実行ディレクトリ配下（`ErrorLogs`）に保存している。しかし、近年のWindows環境（UACやProgram Files配下のセキュリティ制約）では、インストール先フォルダへの書き込み権限が一般ユーザーにないケースが多い。
- 対策: 厳密なプロダクション環境では、`Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)` （AppData\Roaming）や、パブリックドキュメントなどの確実な書き込み権限を持つローカルパスを保存先に指定すべきである。
2. データベースやサーバーへの自動アップロード連携
ローカルに保存するだけでは、結局ユーザーからファイルを取り出す手間が発生する。保守性を極限まで高めるなら、`ProcessFatalException` の内部で、保存したPNGとログをバックグラウンドスレッド（`Task.Run`等）で社内Web APIやS3などのストレージへ非同期POSTする処理を挟むと完璧だ。
※ただし、通信失敗時にメインスレッドの終了を阻害しないよう、タイムアウトは極短（例: 2秒）に設定すること。
3. 機密情報（個人情報・パスワード）の写り込みリスク
医療系や金融系のシステムにおいて、画面キャプチャ機能は時に諸刃の剣となる。エラーが発生した瞬間に、顧客のクレジットカード情報や機密の個人情報が画面に表示されていた場合、それを画像として保存・外部送信することはプライバシーポリシー違反やセキュリティインシデントに繋がりかねない。
- 対策: 高セキュリティが求められる画面では、例外発生時の自動キャプチャを明示的にオプトアウト（無効化）できるフラグ設計を組み込んでおくこと。
—
結びにかえて
エラーは起きる。これはソフトウェア開発の宿命であり、どれほど優れたエンジニアであっても「バグゼロのシステム」を完全に保証することはできない。
違いを生むのは、「エラーが起きた後の振る舞い」だ。
ユーザーからの曖昧な報告を待つ受動的な保守体制から、システム自身が「証拠」を完璧に押さえて開発者に突きつける能動的な例外統御アーキテクチャへ。
この知見をあなたのプロジェクトに組み込み、リモート保守のストレスを今すぐゼロにしてほしい。
