| 投稿日 | ： 2004/01/28(Wed) 12:27 |
| 投稿者 | ： Lantern |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: コマンドプロンプトへの入力について |
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Call Shell("cmd.exe", vbNormalFocus)
Call Sleep(1000)
Clipboard.Clear
Clipboard.SetText "Dir" & vbCrLf
Call SendKeys("% ep", True)
End Sub
たとえばこんな感じです。
アクティブフォームにはSetForegroundWindow等が使えます。
ハンドルはGetForegroundWindow、GetWindowText、FindWindow
等を使って取得します。