Powershellで、永久ループの処理と、フォームの処理の合体方法

Question

前提

powershellで、永久ループで、処理するシステムを作っています。
一つの処理が終わると60秒スリープし、また処理を始めるという繰り返しです。
処理中に、if文による条件に一致したら、ログ記録のため、フォームにその時刻を追記する、ということをやりたいです。

フォーム表示スクリプトと、永久ループの処理スクリプトは、別々に作成済みです。

実現したいこと

フォーム表示スクリプトと、永久ループの処理スクリプトを、合体させたいです。

発生している問題

フォームに表示するスクリプトは、ShowDialog() の時点で、処理が止まってしまいます。
どのように合体させたらよいでしょうか？

該当のソースコード

・フォーム表示スクリプト（概略）

$form = New-Object System.Windows.Forms.Form
$Box = New-Object System.Windows.Forms.ListBox
$form.Controls.Add($Box)
$form.ShowDialog() #←ここで止まってしまう。

・永久ループの処理スクリプト（概略）

whlle(1){
    # ～～ここに、時間がかかる、長い処理～～
    if ($flag -eq 1){
        $d = get-date
        $Box.Items.Add($d)
    }
    Start-Sleep -s 60 #処理後、60秒間スリープ。
}

試したこと

イベントを発生させればよいのかと思いますが、
Timer.intervalだと、等しい時間間隔のイベント発生になってしまいます。
処理が終わったら60秒後にイベントが発生するようにしたいです。

補足情報

powershell 5.1
Windows 10

以上、ご教示いただければ幸いです。

Comments

[Zuishin]

ShowDialog は止まります。
Show なら止まりませんが、それが意図した動きかどうかこの質問からは判断できません。

Answer 1

■永久ループとフォームの合体サンプル

Add-Type -AssemblyName System.Windows.Forms
$form        = New-Object System.Windows.Forms.Form
$form.Width  = 640
$form.Height = 480
$Box         = New-Object System.Windows.Forms.ListBox
$Box.Width   = 400
$Box.Height  = 400
$form.controls.add($Box)
$form.Select()
$Global:exit_F = $False
function SUB{
    While(1){
        # ～～ここに、時間がかかる、長い処理～～
        $flag = 1
        if ($flag -eq 1){
            $d = get-date
            $Box.Items.Add($d)
        }
        # 1秒間の停止を60回ループします
        for ( $N=1 ; $N -le 60 ; $N=$N+1 ){
            [System.Windows.Forms.Application]::DoEvents()
            if ( $Global:exit_F -eq $True ){return}
            [console]::TreatControlCAsInput = $True
            While ($host.UI.RawUI.KeyAvailable){
                $Key = $host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown,IncludeKeyUp,AllowCtrlC')
                if ( $Key.KeyDown -eq $True ){ if (($Key.VirtualKeyCode -eq 67) -and ($Key.ControlKeyState -eq "LeftCtrlPressed")){return}}
            }
            Start-Sleep -m 1000  # 1秒間の停止
            Write-host $N 秒間停止しています
            $Box.Items.Add("$N 秒間停止しています")
        }
    }
}
$form.Add_Closing({ $Global:exit_F = $True })
$form.Add_KeyDown({ if ($_.KeyData -eq "C, Control"){ $Global:exit_F = $True } })
$form.Add_Shown({ SUB ; $form.Dispose() ; $form.Close() })
$form.ShowDialog()
$form.Dispose()
$form.Close()

■手順■
①拡張子ps1ファイルを作成して、このプログラムを貼り付けて保存します。
②ps1ファイルをコンテキストメニューから「PowerShell で実行」を選択します。

※フォームとコンソール両対応です（ Ctrl＋Cキーで終了 ）

※お手数ですが分からない命令文はWeb検索をご利用ください。

Comments

[swsfb3bgh5hjh]

このスクリプトを実行したところ、思い通りに動きました。リストボックスにしていただいて、ありがとうございます。やはり1秒ごとに判定が適切な解決手段のようですね。裏で動かすプログラムなので、1秒ごとのタイマーは高負荷すぎるのでは、と不安でしたが、10msまで縮めても最近のCPUだと充分、低負荷でした。GUI操作感の多少のモタつきは許容されるので、1秒ごとタイマーで実装したいと思います。大変助かりました。