"Switch to"

[Mauricio_ODN]

Hola, antes que nada, les agradezco el interés en la publicación.

 

Estoy trabajando en el siguiente código:

--->>>

Sub SoftToken_Test()

Dim cObj As Object
Dim Programa As Object
Dim Proceso As Object
 

Set cObj = GetObject("winmgmts://.")
Set Proceso = cObj.ExecQuery("SELECT * FROM " & _
"Win32_Process WHERE Name = 'SoftToken.exe'")

For Each Programa In Proceso
    On Error Resume Next
        Call Programa.Terminate
    On Error GoTo 0
Next

Set Proceso = Nothing
Set cObj = Nothing

End Sub

<<<---

El cual termina la ejecución del programa en cuestión, pero desearía su ayuda en saber cuan es la linea de código para hacer "switch to" o poner activa la ventana del programa en cuestión.

De antemano muchas gracias

[Mauricio_ODN]

Buen día a todos.

Les agradezco a los que leyeron la publicación, después de una entretenida búsqueda si con la solución:

Sub Soft_Test()

Dim cObj As Object
Dim Programa As Object
Dim Proceso As Object
 

Set cObj = GetObject("winmgmts://.")
Set Proceso = cObj.ExecQuery("SELECT * FROM " & _
"Win32_Process WHERE Name = 'SoftToken.exe'")

For Each Programa In Proceso
    On Error Resume Next
    If Err.Number = 0 Then AppActivate Programa '<- esta linea es la realiza lo que necesitaba
        Call Programa.Terminate
    On Error GoTo 0
Next

Set Proceso = Nothing
Set cObj = Nothing

End Sub

Por lo que no tengo inconveniente en cerrar el tema. Saludos.