¿Cómo utilizar VB para escribir un programa que compruebe si un proceso se está ejecutando? Sea conciso y directo, preferiblemente con código detallado.

Función CheckApplicationIsRun(ByVal szExeFileName As String) como booleano

En caso de error, vaya a Err

Dim WMI

Dim Obj

CheckApplicationIsRun(ByVal szExeFileName As String) como booleano

En caso de error, vaya a Err

Atenuar WMI

Atenuar Obj

CheckApplicationIsRun(ByValszExeFileName As String) como booleano

En caso de error, vaya a Err

Dim Obj

Dim Objs

CheckApplicationIsRun = False

Establecer WMI = GetObject("WinMgmts:")

Establecer Objs = WMI.

Para cada objeto en Objs

Si InStr(UCase(szExeFileName), UCase(Obj.Description)) lt;gt;0 entonces

CheckApplicationIsRun = True

Si Not Objs no es nada, entonces establezca Objs = Nothing

p>

Si no es WMI, entonces establezca WMI = Nada

Salir de la función

Finalizar si

Siguiente

Si Not Objs no es nada, entonces establezca WMI = Nada

CheckApplicationIsRun = True

CheckApplicationIsRun = TrueSi Not Objs no es nada, entonces establezca Objs = Nada

Si no WMI no es nada, entonces establezca WMI = Nada

Salir de la función

Err:

Si no es nada, Objs no es nada, entonces establezca Objs = Nada

Si no es nada, establezca Objs = Nada

Si no es nada, establezca WMI = Nada

Función final

Subcomando privado1_Click()

Si CheckApplicationIsRun("qq.exe") = True Then

MsgBox "¡¡¡El proceso ya existe!!!" , "Pista"

MsgBox "El proceso

ss ya existe!, , "Preguntar"

En caso contrario

MsgBox "¡¡El proceso no existe!!", "Preguntar"

Finalizar si

'Adoptarlo

Fin sub