大家好,今天小六子来为大家解答以下的问题，关于好玩的病毒代码，简单的玩笑病毒代码这个很多人还不知道，现在让我们一起来看看吧！

1、首先，楼主的出发点还是较好的，但病毒不是随便来整人用的，若你直接上网上搜几个所谓的“整人病毒”，当你把病毒传播给别人的时候自己也可能中招了，正所谓“整人病毒有的是，整人整你整到死”这是我听别人说的一句话。

2、乍一听好像与你的问题没有什么关系，可你仔细的想一想，整人的病毒有的是（典型的如SOLA病毒，更例如很老的欢乐时光病毒），但“整人整你”这句话就说明病毒似乎在“整你”的时候（或是开玩笑的时候）就已经破坏了你的电脑。

3、至今这种情况我见过好几次了。

4、这些连恶搞都不是，更别提“整人”了。

5、到时候真的闹大了，你就该后悔了：“真是整到死啊” 如果楼主真的想要那种能让对方强制接受的“整人病毒”，我可以实话实说的告诉楼主没有。

6、想通过QQ什么的强制接受的不太可能。

7、除非你事先在目标机器设置好病毒或让他中招（实际上这种行为就是属于恶性行列了），才能让目标机器强制接受文件（由目标机器里的病毒程序强制操控）。

8、假如是楼主给个恶意链接之类的啊骗他进去下载病毒还有一些可能（但这也是属于恶性行为，是目前恶性木马常用的招数）。

9、不过楼主可以耍一些小把戏（对电脑无任何伤害，只是整人的），但怎样让目标接受这个文件误入你设下的圈套就要看你了：1.关机命令（可以让对方机器在60分钟后自动关机） Shutdown.exe -s -t 3600 将上面的命令复制到记事本存为 清理系统垃圾.bat 就可以了 2.这个别乱用，也是关机的 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("***.shell") ***.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("***.shell")***.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"将以上代码复制到记事本， 存为 别点我.vbe 文件。

10、你可以试一下，刚才害惨我了~以上代码摘自网友希望我的回答对你有帮助，谢谢如有问题请补充。

本文分享完毕，希望对你有所帮助。