powershellで作成したウィンドウがうまく動かない

Question

実現したいこと

Powershellでバッチを1秒おきに実行し、戻り値を受け取ってウィンドウ(フォーム)に描画したい

発生している問題・分からないこと

バッチ実行→処理→描画はうまくいっているが、なぜかウィンドウにどの操作(ウィンドウを閉じる、動かす、最小化)をしても受け付けない

該当のソースコード

# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

# ウィンドウの作成・表示
$screen = New-Object System.Windows.Forms.Form
$screen.Width = 640
$screen.Height = 480
$screen.Text = "New Window"
$screen.Show()
$screen.Activate()
$hellolabel = New-Object System.Windows.Forms.Label
$hellolabel.Text = "" 
$hellolabel.Location = New-Object System.Drawing.Point(0, 0)
$hellolabel.Font = New-Object System.Drawing.Font("ＭＳ ゴシック", 20)
$hellolabel.Size = New-Object System.Drawing.Point(500, 32)
$hellolabel.TextAlign = [System.Drawing.ContentAlignment]::MiddleCenter
$screen.Controls.Add($hellolabel)

while(1){
    #batで処理をして、戻り値を取得
    cmd.exe /c ".\main.bat"
    if ($LASTEXITCODE -eq 1){
        $hellolabel.Text = "-"
    }else{
        $hellolabel.Text = "インターネット接続中"
    }
    $screen.Controls.Add($hellolabel)
    Write-Host $LASTEXITCODE 
    # ラベルの作成・表示
    Start-Sleep -m 1000  # 1秒間の停止
}

#フォームが閉じられた(FormClosed)ときに、Runから抜ける
Write-Host "イベントループから脱出しました"
exit

@echo off
set server_ip=8.8.8.8
ping -n 1 -w 1000 %server_ip% >nul
exit %errorlevel%

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

ウィンドウが応答するように直すには
[System.Windows.Forms.Application]::Run($screen)
をソースコードに入れるとうまくいくことが分かったが、これを実行するとほかの処理が停まってしまう

補足

windows10
powershell PSVersion 5.1.19041.5607

Answer 1

原因

どの操作(ウィンドウを閉じる、動かす、最小化)をしても受け付けない

フリーズしている原因は while(1) ループにあります。
Windows GUIアプリケーションは「メッセージループ」という仕組みで動作しており、UIスレッドがメッセージキューからメッセージ（クリック、描画要求、ウィンドウ移動など）を取得して処理することで、GUI操作が実現されています。
while(1) + Start-Sleep により、UIスレッドが1秒間ブロックされることで、メッセージループが停止し、ユーザーの操作を受け付けなくなります。

解決方法：タイマーを使用

whileループの代わりにタイマーを使用することで、UIスレッドをブロックせずに定期的な処理を実現できます。

# アセンブリのロード
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

# ウィンドウの作成・表示
$screen = New-Object System.Windows.Forms.Form
$screen.Width = 640
$screen.Height = 480
$screen.Text = "New Window"

# ラベルの作成
$hellolabel = New-Object System.Windows.Forms.Label
$hellolabel.Text = "" 
$hellolabel.Location = New-Object System.Drawing.Point(0, 0)
$hellolabel.Font = New-Object System.Drawing.Font("ＭＳ ゴシック", 20)
$hellolabel.Size = New-Object System.Drawing.Point(500, 32)
$hellolabel.TextAlign = [System.Drawing.ContentAlignment]::MiddleCenter
$screen.Controls.Add($hellolabel)

# Timerを作成（1秒間隔で実行）
$timer = New-Object System.Windows.Forms.Timer
$timer.Interval = 1000  # 1秒 = 1000ミリ秒
$timer.Add_Tick({
    # ping処理をここで実行
    cmd.exe /c ".\main.bat"
    if ($LASTEXITCODE -eq 1){
        $hellolabel.Text = "-"
    }else{
        $hellolabel.Text = "インターネット接続中"
    }
    Write-Host $LASTEXITCODE 
})

# Timerを開始
$timer.Start()

# 適切なイベントループを開始（UIスレッドを解放）
[System.Windows.Forms.Application]::Run($screen)

# ウィンドウが閉じられたときの処理
Write-Host "イベントループから脱出しました"

メッセージループのイメージ

※ 図は Claude Sonnet 先生に描いてもらいました。PowerShell ではなくC言語による疑似コードです。

Comments

[fumi4125]

返信が遅くなってしまいすみません。回答ありがとうございます。
試したところ問題が解決しました！
ベストアンサーに選ばせていただきました。