求vbs高手帮助，如何vbs监视进程

Set Wmi = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\\root\cimv2")Set A = WmiExecquery("Select From Win32_Process")Set ws = createobject("wscriptshell")doFor Each B In AIf BName = "1exe" thenno = Falsewsrun "2exe" '可以在这里修改2exe地址，1exe无需修改elseif BName <> "1exe" thenno = TrueEnd ifNextIf no = True thenwsrun "taskkill /f /im 2exe"End Ifwscriptsleep 1000 '休息的毫秒数。你看着办吧，太快了浪费内存。loop'来自 EnergyHaibo 的 BLOGER ：energyhaiboml

vbs是一个U盘病毒,它会把你的U盘文件夹隐藏起来,并用相应的EXE文件代替。

这个病毒依附在wscriptexe(WINDOWS系统中的,不知什么用,最好别删),用任务管理器看不见,用Process

Explorer可以看见,也可以用其他软件结束掉wscriptexe进程,用优化大师专业版在注册表中查找vbs,删除

Public Function killTask(strTaskName)   

Dim objShell,objTaskName

Set objShell = CreateObject("WScriptShell")

for each objTaskName In getobject("winmgmts:\\\root\cimv2:win32_process")instances_

if(objTaskNamename=strTaskName )Then

objShellRun "cmd /c taskkill /im " + strTaskName + " /f",0,1

end if

next

End Function 

Public Function realTimeTask(intSleepTime )

intSleepTime = intSleepTime  1000

Do While True

                                 killTask  "tasknameexe"

Loop

End Function 

realTimeTask 5

以上就是关于求vbs高手帮助，如何vbs监视进程全部的内容，包括:求vbs高手帮助，如何vbs监视进程、.vbs的进程名是什么、vbs 检测进程 如有则关闭进程 如无 则继续循环等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！