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