前提・実現したいこと
UI Automation PowerShell Extensions でフォルダ内のファイル更新の有無を定期的に監視。
更新を検知した場合にバルーンで知らせるアプリケーションを作りました。
※ファイルの更新日時が変更された場合に更新と判断。
発生している問題・エラーメッセージ
下記19行目にフォルダ内の状態を最新化するため、更新ボタン(F5)を押していますが
この際にフォルダのウィンドウがアクティブとなり、最前面に表示され、他の操作の邪魔になります。
※10秒間隔で監視しているフォルダが最前面に表示されるイメージ。
$window.keyboard.KeyPress([WindowsInput.Native.VirtualKeyCode]::F5) | Out-Null
該当のソースコード
Powershell
1Import-Module .\releases\44\UIAutomation.0.8.7B3.NET35\UIAutomation.dll 2[UIAutomation.Preferences]::Highlight = $false 3 4Function Balloon { 5 Add-Type -AssemblyName System.Windows.Forms 6 $balloon = New-Object System.Windows.Forms.NotifyIcon 7 $balloon.Icon = [System.Drawing.Icon]::ExtractAssociatedIcon('C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe') 8 $balloon.BalloonTipIcon = [System.Windows.Forms.ToolTipIcon]::Info 9 $balloon.BalloonTipText = $time 10 $balloon.BalloonTipTitle = 'File Updated!' 11 $balloon.Visible = $True 12 $balloon.ShowBalloonTip(1000) 13} 14 15$file = ".\update_time.txt" 16$window = Get-UiaWindow -Class 'CabinetWClass' -Name 'test' 17 18while($true) { 19 $window.keyboard.KeyPress([WindowsInput.Native.VirtualKeyCode]::F5) | Out-Null 20 $item = $window | Get-UiaListItem -AutomationId '0' -Class 'UIItem' -Name 'file.txt' | Get-UiaControl 21 $time = $item.Item(2) | Get-UiaListItemText 22 23 if (! (Test-Path $file) ) { 24 $time | Out-File $file 25 Write-Host "File made." 26 } else { 27 if ( $time -gt (Get-Content $file) ) { 28 $time | Out-File $file 29 Balloon 30 } 31 } 32 Start-Sleep 10 33}
試したこと
バックグラウンドジョブとして実行すればと思い、下記を試したところ
フォルダが最前面に表示されることはなくなりましたが
プログラム稼働中にRunnning状態のジョブが10秒毎に積み上がり、これで良いものか不安です。
Start-Job -ScriptBlock { $window.keyboard.KeyPress([WindowsInput.Native.VirtualKeyCode]::F5) | Out-Null }
Id Name PSJobTypeName State HasMoreData Location Command -- ---- ------------- ----- ----------- -------- ------- 9 Job9 BackgroundJob Running True localhost $window.keyboard.KeyP... 11 Job11 BackgroundJob Running True localhost $window.keyboard.KeyP... 13 Job13 BackgroundJob Running True localhost $window.keyboard.KeyP... 15 Job15 BackgroundJob Running True localhost $window.keyboard.KeyP... 17 Job17 BackgroundJob Running True localhost $window.keyboard.KeyP... 19 Job19 BackgroundJob Running True localhost $window.keyboard.KeyP... 21 Job21 BackgroundJob Running True localhost $window.keyboard.KeyP... 23 Job23 BackgroundJob Running True localhost $window.keyboard.KeyP...
補足情報(FW/ツールのバージョンなど)
Windows 10 Pro
UIAutomation.0.8.7B3.NET35
Powershell (下記)
$PSVersionTable Name Value ---- ----- PSVersion 5.1.17134.858 PSEdition Desktop PSCompatibleVersions {1.0, 2.0, 3.0, 4.0...} BuildVersion 10.0.17134.858 CLRVersion 4.0.30319.42000 WSManStackVersion 3.0 PSRemotingProtocolVersion 2.3 SerializationVersion 1.1.0.1
監視しているフォルダ
あなたの回答
tips
プレビュー