tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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>

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。