タイトル : Re^6: sleep関数の待機について 投稿日 : 2008/09/12(Fri) 12:07 投稿者 : 悩める子羊
すみません<(_ _)> MsgBox "表示しました" は、出ました。音もしました。 こんな感じです。 Private Sub Command1_Click() On Error GoTo ErrorHand '処理開始 ----------------------------------- ' ここに、処理構文があります ----------------------------------- Dim TaskID As Long Dim hProcess As Long Dim Ret As Long '***CADを起動 TaskID = Shell("C:\Program Files\***CAD\***.exe", vbMaximizedFocus) hProcess = OpenProcess(SYNCHRONIZE, False, TaskID) If hProcess = 0 Then MsgBox "ハンドルが取得できません" End If Ret = WaitForInputIdle(hProcess, &HFFFF) Call CloseHandle(hProcess) MsgBox "表示しました" '***CADをアクティブにします。 AppActivate "***CAD" '3000ミリ秒待機させる(3秒) Sleep (2000) 'コマンドラインに送信 SendKeys "%T" & "R", True Sleep (2000) SendKeys "c:\temp\***.scr" & "%O", True Exit Sub ErrorHand: Exit Sub End Sub です。 宜しく、お願いします<m(__)m> |