Win画面入力の操作で「↓」キーを50回繰り返す処理をする必要があり、

エミュレーションの「↓」キーをループさせると処理に時間がかかるため、

スクリプト実行をすることにしました。

ライブラリ等検索してみましたが見つけることができませんでした。

「↑、↓、←、→、TAB」からキーを選択し、指定の画面、指定の回数実行できます。

VBScript初心者のため例外処理はかけていません。動作も保証できません。

WinActor向けの例外処理、このライブラリがあるよ！などありましたらご教授よろしくお願い申し上げます。

＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

Dim kaisu
Dim key
Dim keyType
Dim objWshShell

'引数の取得
winTitle = GetUMSWindowTitle(@ウィンドウ識別名@)
kaisu  = !回数!
key  = !キー|↑,↓,←,→,TAB!

Select Case key
          Case "↑"
                    keyType = "{UP}"
          Case "↓"
                    keyType = "{DOWN}"
          Case "←"
                    keyType = "{LEFT}"
          Case "→"
                    keyType = "{RIGHT}"
          Case "TAB"
                    keyType = "{TAB}"
End Select

'オブジェクト変数の宣言とWshShellオブジェクトの作成。
Set objWshShell = WScript.CreateObject("WScript.Shell")

objWshShell.AppActivate winTitle

For i = 1 To kaisu
          objWshShell.SendKeys keyType
Next