投稿日	： 2005/01/14(Fri) 14:12
投稿者	： YK
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^3: 外部アプリの終了方法

こんにちは。

まさよしさんのやりたい事が良く分からないのですが。
終了させるように書いてありますから終了します。
このようなことですか。

Ret をモジュールレベルで書いて
Dim Ret as Long

Private Sub Command1_Click()
    Ret = Shell("C:\Program Files\AutoCAD LT 2004\aclt.exe", vbMaximizedFocus)
    Sleep (8000)
    '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
End Sub

Private Sub Command2_Click()
    ' 保存しないで終了
    AppActivate Ret
    SendKeys "%{F4}N", True
End Sub

★ - 外部アプリの終了方法 - まさよし 01/13-21:21No.1578
• Re: 外部アプリの終了方法 - 花ちゃん 01/13-22:53 No.1580
  • Re^2: 外部アプリの終了方法 - まさよし 01/14-08:42 No.1585
• Re: 外部アプリの終了方法 - YK 01/14-09:43 No.1587
  • Re^2: 外部アプリの終了方法 - まさよし 01/14-11:44 No.1592
    • Re^3: 外部アプリの終了方法 - YK 01/14-14:12 No.1595
      • Re^4: 外部アプリの終了方法 - まさよし 01/14-16:00 No.1600
        • Re^5: 外部アプリの終了方法 - YK 01/14-16:51 No.1602
          • Re^6: 外部アプリの終了方法 - まさよし 01/14-23:01 No.1607
            • Re^7: 外部アプリの終了方法 - INA 01/17-10:32 No.1611
              • Re^8: 外部アプリの終了方法 - いな 01/18-12:20 No.1634
                • Re^9: 外部アプリの終了方法 - まさよし 01/19-07:41 No.1643