連続投稿で失礼します。
色々試してみましたが、「お気に入り」や「設定」のサイドバーをフローティングに
していると、また状況が違うようです。
その場合は、フローティングしたウィンドウにフォーカスが移っているので、
teruさんのように
WSHShell.AppActivate("Lunascape")
で、Lunascape本体をアクティブにする必要があるようです。
'旧形式のスクリプト
Option Explicit
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
MsgBox("一旦このダイアログにフォーカスを移動させて" & chr(13) & "% と AMFFO のキーを送る")
WSHShell.AppActivate("Lunascape") 'タイトルに"Lunascape"を含むウィンドウをアクティブに。
WSHShell.SendKeys("%") 'キーを送る
WSHShell.SendKeys("AMFFO") 'キーを送る
今回は、Lunascape5.1.6で試しました。
Lunascape Core Version 5.1.6.19479 / Unicode
Operating System Version 5.0.2195
Internet Explorer Version 6.0.2800.1106