vb 不执行sendkeys.

Question

Function CheckApplicationIsRun(ByVal szExeFileName As String) As Boolean
      On Error GoTo Err
      Dim WMI
      Dim Obj
      Dim Objs
      CheckApplicationIsRun = False
      Set WMI = GetObject("WinMgmts:")
      Set Objs = WMI.InstancesOf("Win32_Process")
      For Each Obj In Objs
               If InStr(UCase(szExeFileName), UCase(Obj.Description)) <> 0 Then
                     CheckApplicationIsRun = True
                     If Not Objs Is Nothing Then Set Objs = Nothing
                     If Not WMI Is Nothing Then Set WMI = Nothing
                     Exit Function
               End If
      Next
      If Not Objs Is Nothing Then Set Objs = Nothing
      If Not WMI Is Nothing Then Set WMI = Nothing
      Exit Function
Err:
      If Not Objs Is Nothing Then Set Objs = Nothing
      If Not WMI Is Nothing Then Set WMI = Nothing
   End FunctionPrivate Sub Command1_Click()
If CheckApplicationIsRun("Main.exe") = True Then
SendKeys "%{TAB}"
Else
Shell "C:\Main.exe"
End If
End Sub能够判断进程存不存在，但是为什么他不能执行sendkeys呀。
(因为我只是想让main.exe进程存在的时候重新获得焦点。类似于alt+tab。)

Answer 1

If CheckApplicationIsRun("Main.exe") = True Then
msgbox "执行到此"SendKeys "%{TAB}" '看是否执行到这里
Else
Shell "C:\Main.exe"
End If
End Sub

Answer 2

可以显示执行到此。但是不能调用alt+tab。其实就是main.exe隐藏到了我写的这个vb程序后面。只要alt+tab就能调出来，我还能怎么实现呢？谢谢了。。

Answer 3

其实它是执行的，你运行程序，然后最小化你VB的IDE编程环境，再单击你窗体上的按钮测试。