Discussion :

[tbdarkspirit]

Bonjour à tous!

Voilà j'aimerai trouver un moyen de suspendre un processus précis, afin de faire une pause...

quelqu'un saurait-il faire ça ici?

Merci d'avance

[Aspic]

OUi c'est facile :
Méthode WaitForExit de la classe Process

[tbdarkspirit]

salut Aspic et merci pour ta réponse.

Toutefois peux-tu detailler un peu plus stp?

en effet, je croyais que WaitForExit servait à attendre que le processus soit terminé pour passer à la suite...

mais je ne vois pas comment suspendre le processus en question?

[Aspic]

salut Aspic et merci pour ta réponse.

Toutefois peux-tu detailler un peu plus stp?

en effet, je croyais que WaitForExit servait à attendre que le processus soit terminé pour passer à la suite...

mais je ne vois pas comment suspendre le processus en question?

Qu'entends tu par suspendre le processus car je ne comprends pas ce que tu cherches à faire...

Oui WaitForExit sert à attendre la fin d'un processus et si on ne précise pas de TimeOut.

[tbdarkspirit]

en fait mon programme lance un java script qui peut durer plusieurs heures...

ce que j'aimerai c'est suspendre se javascript en gelant le processus java.exe. et le remprendre là ou on l'avait geler par la suite...

faire une pause dans l'exécution du javascript quand on appuie sur un bouton...

si j'ai bien compris la source qu'il y a en lien dans mon 1er post c'est ce qui est fait en VB6 en suspendant le processus par son PID... donc si c'est faisable en VB6 je suppose que ça l'est aussi en vb.net!?

C'est plus clair ou toujours pas?

[Aspic]

Oui c'est clair et c'est possible par API

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Private Declare Function NtSuspendProcess Lib "Ntdll.dll" (ByVal hProc As Long) As Long
    Private Declare Function NtResumeProcess Lib "Ntdll.dll" (ByVal hProc As Long) As Long
    Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal hObject As Long) As Long
    Private Const PROCESS_SUSPEND_RESUME As Long = &H800
 
    Public Function SuspendResumeProcess(ByVal Pid As Long, ByVal Action As Boolean) As Long
 
        Dim hProcess As Long
 
        hProcess = OpenProcess(PROCESS_SUSPEND_RESUME, 0&, Pid)
 
        If hProcess Then
            If Action Then
                SuspendResumeProcess = NtSuspendProcess(hProcess)
            Else
                SuspendResumeProcess = NtResumeProcess(hProcess)
            End If
            CloseHandle(hProcess)
        End If
 
    End Function

++