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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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