vbsからアプリケーション操作

yizm

5年前

WinActorの拡張機能のつもりで作ってたUIAutomationですが、引数さえ揃ってればスクリプトでも実行できるんじゃねってことで、さっそくVBSめーかーに組み込んでみた。

１．「7-1.アプリケーション操作」として組み込んであるよ

２．クリックすると、メニューはこうなってます。

処理名　⇒　右側のフローにアイテムとして組み込まれる時のラベル名です。
対象アプリ名　⇒　プロセス名かウィンドウタイトルの一部を使って操作対象アプリを特定します。
プロパティ　⇒　Name・AutomationIDのどちらかを選択
プロパティ値　⇒　操作対象のName or AutomationIDの値を指定
処理内容　⇒　コントロールに対して行う処理を選択
- クリック
- 選択（フォーカスする）
- テキスト値取得
- テキスト設定
- コンボボックス・リスト選択値取得
- リスト項目・ラジオボタン状態取得
- コンボボックス・リスト・ラジオボタン設定
- チェックボックス取得
- チェックボックス設定
- Nameプロパティ取得
設定値　⇒　設定系の操作を選択した場合に指定
コントロール選択オプション　⇒　Next・Previous・FirstChild・LastChildから選択
処理結果　⇒　取得系の操作を選択した場合に指定

３．UIA_cmd.exeを同梱ZIPをダウンロード

このアクションが含まれる状態でZIPダウンロードするとUIA_cmd.exeとinspect.exeを同梱したZIPファイルが取得できます。

４．スクリプト実行でスムーズに動かすために変更したところ

WinActorからの起動の場合は、「GetUMSWindowHandle(@ウィンドウ識別名@)」を

使えばサクッとウィンドウハンドル取得できたんだけども純粋なvbsだとそうはいかないので、UIA_cmd.exe側でウィンドウハンドルを取得する様に処理を追加した。

具体的には、UIA_cmd.exeの２番目の引数に直接ウィンドウハンドルを指定すればそれでも動くし、２番目引数の先頭に「GetHWND:」を付けることでその後ろの文字列をプロセス名かウィンドウタイトルに含むアプリを対象としてウィンドウハンドルを取得し直す様にした。

VB.net側でのウィンドウハンドル取得処理がこちら。

    Private Function GetWindowHandle(part_key As String) As String
        Dim hwnd As String = part_key
        For Each p As Process In System.Diagnostics.Process.GetProcesses()
            If (p.ProcessName Like "*" & part_key & "*") Or
               (p.MainWindowTitle Like "*" & part_key & "*") Then
                hwnd = p.MainWindowHandle
                Exit For
            End If
        Next
        Return hwnd
    End Function

Private Function GetWindowHandle(part_key As String) As String

Dim hwnd As String = part_key

For Each p As Process In System.Diagnostics.Process.GetProcesses()

If (p.ProcessName Like "*" & part_key & "*") Or

(p.MainWindowTitle Like "*" & part_key & "*") Then

hwnd = p.MainWindowHandle

Exit For

End If

Return hwnd

End Function

５．実際にサンプルフォームを操作する例

疲れた・・・寝る。今度、ここに動かし方を整理して書くつもり。