Subprograma de programación Vb

Esto no es difícil de hacer.

Colocas el siguiente código en un nuevo módulo.

Declarar de forma privada el proceso de función 32 primera Lib "kernel 32" (ByVal hSnapShot es Long, lppe es PROCESSENTRY32) es Long

Declarar de forma privada el proceso de función 32 siguiente Lib "kernel 32" (ByVal hSnapShot es largo, lppe es PROCESSENTRY32) es largo

Función de declaración privada createtoolhelp 32 instantánea Lib "kernel 32" (ByVal dw flags es largo, ByVal th32ProcessID es largo) es largo

Privado Declarar función CloseHandle Lib " kernel 32 . dll " (objeto ByVal ho As Long) As Long

Tipo privado PROCESSENTRY32

dwSize es tan largo

cntUsage As Long

longitud del proceso th32

HeapID predeterminado de th32 tiene la misma longitud

el módulo th32 tiene la misma longitud

cntThreads tiene la misma longitud

th32ParentProcessID tiene la misma longitud

pcPriClassBase tiene la misma longitud

dwFlags es Long

szExeFile como cadena * 260

Tipo de finalización

Constante privada PROCESO _ CONSULTA _ INFORMACIÓN = 1024

Constante privada PROCESO_VM_READ = 16

Constante privada PROCESO _ TODOS _ ACCESO = & ampH1F0FFF

Constante privada TH32CS _ SNAPPROCESS = & amp Deuterium

Función pública TestProcIsRunning(ByVal ProcName as String) como booleano

Dim hFindProc siempre

hFindProc = createtoolhelp 32 instantánea (th 32 cs _ proceso instantáneo, 0)

ProcData como PROCESSENTRY32

ProcData.dwSize = Len(ProcData)

Process32First hFindProc , ProcData

Mientras (Process32Next(hFindProc, ProcData) = 1)

Dim se almacena como cadena

sPro = Left(UCase(proc data . SZ exefile ), InStr(UCase (ProcData.szExeFile), Chr(0)) - 1)

Si sPro = UCase(ProcName), entonces

CloseHandle hFindProc

TestProcIsRunning = True

Salir de la función

Terminará si...

Línea

CloseHandle hFindProc

TestProcIsRunning = False

Finalizar función

Luego puedes usar un temporizador para realizar el juicio.

Subtemporizador privado 1_Timer()

Si TestProcIsRunning("Nombre del proceso a juzgar") = True entonces.

Shell "La ruta para llamar a este programa", vbHide ' ' 'Cuando escribes código fuente de proceso dual, es mejor ocultar el programa.

Terminará si...

Conector final

Hola, también he escrito sobre procesos duales. En cuanto a ejecutar después de la compilación, es fácil que 360 lo intercepte, pero se siente bastante bien después de practicar.

上篇: ¿Cómo crear una pandilla en QQ Westward Journey? 下篇: La multitud de Duke Zhou después del trabajo_La multitud de Duke Zhou después de salir del trabajo peleando