Red de conocimiento informático - Problemas con los teléfonos móviles - ¡El proceso de otros programas escritos en VB se cierra periódicamente! ¡Lo mejor es tener el código fuente detallado! Acabo de comunicarme con VB, ¡lo necesito urgentemente!

¡El proceso de otros programas escritos en VB se cierra periódicamente! ¡Lo mejor es tener el código fuente detallado! Acabo de comunicarme con VB, ¡lo necesito urgentemente!

No seas demasiado codicioso, el tiempo de todos es valioso.

Una sugerencia para usted:

Utilice el siguiente código para obtener una instantánea del proceso en el sistema. Si desea este proceso, abra un archivo y registre el tiempo una vez por vez. segundo Después de que se haya acumulado una cierta cantidad de tiempo, debe usar Shell "cmd /c" amp "Taskkill /f /t /im " amp; El código es mi código de uso común, modifíquelo para lograr el efecto que desea.

Requiere un cuadro de texto; configure el cuadro de texto para que se muestre en varias líneas con barras de desplazamiento horizontales y verticales.

Botón uno

Const TH32CS_SNAPTHEAPLIST = amp; H1

Const TH32CS_SNAPPROCESS = amp; H2

Const TH32CS_SNAPTHREAD = amp; = amp; H8

Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST O TH32CS_SNAPPROCESS O TH32CS_SNAPTHREAD O TH32CS_SNAPMODULE )

Const MAX_PATH AsInteger = 260

Tipo privado PROCESSENTRY32

dwSize durante el tiempo

cntUsage durante el tiempo

th32ProcessID durante el tiempo

th32DefaultHeapID durante el tiempo

th32ModuleID durante el tiempo

cntThreads durante tanto tiempo

th32ParentProcessID durante tanto tiempo

pcPriClassBase durante tanto tiempo

dwFlags durante tanto tiempo

szExeFile como cadena * MAX_PATH

Tipo de finalización

Función de declaración privada CreateToolhelp32Snapshot Lib "Kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long

Función de declaración privada Process32First Lib "Kernel32" ( ByVal lFlags As Long, ByVal lProcessID As Long) As Long

Función de declaración privada "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Función de declaración privada Process32Next Lib " Kernel32" (ByVal hSnapShot siempre, uProcess As Long)

Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)

Private Sub Command1_Click()

Timer1.Caption = "Termina el proceso en 5 segundos"

End Sub

Private Sub Timer1_Timer()

Atenuar hSnapShot mientras dure, uProcess Como PROCESSENTRY32

hSnapShot = CreateToo

lhelp32Snapshot(TH32CS_SNAPALL, 0amp;)

'Obtiene información instantánea de todos los procesos en ejecución en el sistema

uProcess.dwSize = Len(uProcess)

r = Process32First ( hSnapShot, uProcess)

Me.AutoRedraw = True

'Redibujar ventana

Hacer mientras r

Si queda $(uProcess. szExeFile, IIf(InStr( 1, uProcess.szExeFile, Chr$(0)) gt; 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0)) = Text1.Text Luego Shell "cmd /d/d/d/d/d/d/d/d/d/d/d/d/d/d/d/d Luego Shell "cmd /c" amp "Taskkill /f /t /im; " amp; Text1.Text, 0

'Elimina el proceso especificado

r = Process32Next(hSnapShot, uProcess)

Bucle

CloseHandle hSnapShot

Temporizador1.Intervalo = 0

End Sub