投稿日 | : 2005/01/12(Wed) 13:39 |
投稿者 | : まさよし |
Eメール | : |
URL | : |
タイトル | : sendkeys関数について |
はじめて投稿いたします。
VB6でAutoCADLTの外部アプリを作成しています。
一応完成はしましたが、ちょっと変な感じです。
↓がソースの一部ですが
-------------------------------------------------------------------------------------------
-
'AutoCAD LT 2004を起動
Ret = Shell("C:\Program Files\AutoCAD LT 2004\aclt.exe", vbMaximizedFocus)
'AutoCADをアクティブにします。
AppActivate "AutoCAD"
'3000ミリ秒待機させる(3秒)
Sleep (3000)
'コマンドラインに送信
SendKeys "filedia" & Chr$(13) & "0" & Chr$(13) & &
quot;script" & Chr$(13)
& "c:\temp\scriptC.scr" & Chr$(13), True
-------------------------------------------------------------------------------------------
-
外部アプリを実行するとAutoCADLTが起動します。(shell関数)
しかし、この時点ではsendkeysの文字列を送信しません。
そこで、再度、プログラムを実行するとsendkeysの文字列を送信してちゃんと動きます。
結局、一度目の実行でAutoCADLTのウインドウが起動するだけ、二度目の実行でもうひとつ
ウインドウが起動してプログラムが動作します。とりあえずこれで使っていますが
やはり、ウインドウは一つの方がいいのでどうしても修正したいのですが
スキルがない為ここで止まっています。どこがおかしいのでしょうか?
レベルの高い皆様でしたら解決策をご存知かと思われます。
なにとぞ*ご教授願えませんでしょうか?宜しくお願い致します。