我有一个基于Windows 93中hydra程序的程序,该程序创建一个消息框,当您关闭它时,它又创建了两个相同的消息框。这是代码。
set objShell = CreateObject("WScript.Shell")
do
X=MsgBox("Cut off one head, two more will appear.",0+64,"Hydra")
objShell.run(WScript.ScriptFullName)
loop
我想创建一个关闭所有这些消息框的计数器程序,但是当我尝试使用objShell.run(taskkill /im wscript.exe)
时,只是使它们再次打开。我想找到一种方法来结束任务,例如任务管理器,因为它可以永久关闭它们。
编辑:有人帮了我我的代码是
set objShell = CreateObject("Wscript.Shell")
objShell.Run("TASKKILL /F /IM wscript.exe")
是如何使用VB进行任务杀死。
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_Process where name='Calculator.exe'")
For Each objItem in colItems
wscript.stdout.writeline objItem.name & " " & objItem.ProcessID & " " & objItem.CommandLine
If objItem.name = "Calculator.exe" then objItem.terminate
Next