Comment arrêter un script spécifique dans VBScript

Question

Existe-t-il un code pour arrêter un script spécifique? J'ai vu un moyen qui vous permet de terminer tous les scripts en utilisant taskkill.

Option Explicit 
Dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.Run "taskkill /f /im Cscript.exe", , True 
WshShell.Run "taskkill /f /im wscript.exe", , True 

Je veux simplement mettre fin à un script spécifique qui dort dans un WScript.Sleep pas chaque script qui exécute à la fois.

Answer 1

Essayez ci-dessous. Vous devez conserver le ProcessId du processus que vous voulez tuer. Le code ci-dessous ouvre un bloc-notes et le tue. Cet exemple vous montre comment capturer le ProcessId du script quand il a été démarré et ensuite le tuer.

Private Sub KillTest() 
    Dim killCmd 
    Dim pid 

    Set WshShell = CreateObject("WScript.Shell") 
    Set EngineRun = WshShell.Exec("notepad") 
    pid = EngineRun.ProcessID 

    killCmd = "taskkill /pid " & CStr(pid) 
    Set EngineRun = WshShell.Exec(killCmd) 
    Set EngineRun = Nothing 
    Set WshShell = Nothing 
End Sub