0

新しい win 7 64 コンピューターを入手したばかりで、非常に古いプログラムの 1 つが起動時に正しく表示されません。ウィンドウのサイズを変更するまで、プログラム自体が完全に描画されません。古いプログラムを起動し、そのサイズを変更する (たとえば、最小化してから元に戻す、または最大化してからウィンドウを元に戻す) か、プログラム自体を強制的に再描画する小さなスクリプト プログラムを作成したいと考えています。

そうすれば、ユーザーがプログラム アイコンをクリックすると、一瞬ちらつき、適切に表示されます。

私は試した：

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run("""c:\Program Files (x86)\VideoLan\VLC\vlc.exe""")
objShell.SendKeys "% x"
objShell.SendKeys "% r"
Set objShell = Nothing

VBスクリプトを使用してウィンドウを最大化、復元、または最小化するにはどうすればよいですか? に基づく これはvlc（問題のプログラムではなくテストプログラム）を起動するために機能しましたが、そのサイズは変更されませんでした.

編集: 実行後にわずかな遅延を追加 (wscript.sleep(200)) すると、問題が修正されました。他に良い方法があれば知りたいです。

4

1 に答える 1

0

これが機能するかどうかはわかりませんが、試してみることができます：

CreateObject("Shell.Application").Namespace(0).Self.InvokeVerb "R&efresh"

上記は、デスクトップの「更新」を呼び出します。これにより、アプリケーション ウィンドウも更新される場合と更新されない場合があります。

于 2013-02-23T12:04:51.320 に答える