¡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!
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