【VBS, Windows10】エクスプローラー上でプレビューウィンドウが有効だとプログラムが止まってしまいます。

Question

初心者ですがvbsでエクスプローラー上で同一フォルダ内のファイル名を変更するプログラムを書いています。
想定はpdfで、プレビューを見ながらファイル名を入力しようとしています。
しかし、プレビューを有効にしているとなぜかファイル名を変更する段階でF2で入力するステップに進めません。

切り分けていったところpdfのプレビューが表示されるところで処理が止まってしまうようです。
（下記｛UP｝連続でpdfのデータをハイライトするとそこで動作が止まります。）
どなたか原因と解決策をご教授お願いします。

～～～～～～～～～～～～～～～～～～～～～～～～～～

Option Explicit
Dim x
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")

WScript.Sleep 1000
objWshShell.SendKeys "{UP}"
WScript.Sleep 1000
objWshShell.SendKeys "{UP}"
WScript.Sleep 1000
objWshShell.SendKeys "{UP}"
WScript.Sleep 1000
objWshShell.SendKeys "{UP}"

WScript.Sleep 1000
objWshShell.SendKeys "{F2}"

WScript.Sleep 100
objWshShell.SendKeys (123)
WScript.Sleep 100
objWshShell.SendKeys (456)

Set objWshShell = Nothing

Comments

[XYLIToooL]

追記
上のプログラムは切り分け用に作った仮プログラムです。
gif, jpgなどの画像ファイルではプレビュー表示しても正常に動作しました。
pdfは既定のプログラムを変更しても変わらず止まってしまいました。

[XYLIToooL]

追記
sendkeyが動作しませんが、msgboxなどは問題なく動くようです。
sendkeyとmsgboxを並べるとsendkeyだけスルーしてmsgboxが処理されました。

[XYLIToooL]

追記
NumLockが悪さをしているようでした！

Answer 1

PDFが重くてプレビュー表示に時間がかかっている可能性が極めて高いので、
プレビュー表示を無効にするしかなさそう。

Comments

[XYLIToooL]

ただ、Sleep10000とかにしても動作しないんですよね…

[RiaFeed]

または単なる推測ですが、プレビュー表示のせいでフォーカスが外れてるかもしれないですね。

[XYLIToooL]

回答ありがとうございます。
固まった所で手動でF2を押すと普通に入力に進めるんですよね。
プレビューが重いせいでプログラムを途中で終了してしまうなんてこともあるんでしょうか。

[XYLIToooL]

追記に書きましたが、
pdfをフォーカスした後、sendkeyは動作しませんが、msgboxなどは問題なく動くようです。
sendkeyとmsgboxを並べるとsendkeyだけスルーしてmsgboxが処理されました。

[XYLIToooL]

いろいろ調べた結果どうやらNumLockが原因のようでした。
相談に乗ってくださりありがとうございました！