Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de programación de VB, determine si ejecutar QQ y, de ser así, ejecute el código correspondiente.

Problema de programación de VB, determine si ejecutar QQ y, de ser así, ejecute el código correspondiente.

si checkexeisrun("QQ.EXE") luego ejecute el código correspondiente

'Compruebe si el proceso se está ejecutando, el parámetro exeName es el nombre exe del proceso que se va a verificar. como QQ.EXE

Función privada CheckExeIsRun(exeName As String) Como booleano

En caso de error Ir a Err

Dim WMI

Dim Obj

Dim Objs

CheckExeIsRun = False

Establecer WMI = GetObject("WinMgmts:")

Establecer Objs = WMI.InstancesOf ("Win32_Process")

Para cada objeto en Objs

If (InStr(UCase(exeName), UCase(Obj.Description)) lt; gt; 0) Then

CheckExeIsRun = True

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

Si Not WMI no es nada, entonces configure WMI = Nothing

Salir de la función

Finalizar si

Siguiente

Si no es nada, establezca Objs = nada

Si no es nada, establezca WMI = Nada

Salir de la función

Err:

Si no es nada Objs, entonces establezca Objs = Nada

Si no es WMI, entonces establezca WMI = Nada

Función final