Question

有人有用VB写的整人小程序吗。别的语言写的也行，小病毒就不要了，

发到我QQ邮箱

Answer 1

Private Sub Command1_Click() MsgBox "进行测试前，请一定要照着提示上说的回答，可不要乱写，不然的话会让测试不准的！切记！现在放松一下，记住，写的时候应该完全是你的第一直觉！！！" MsgBox "这个测试源于印度的一个神秘的密教经典，当时发现它的人按照它说的做了，结果他的愿望在10分钟内就实现了！" MsgBox "这是一个非常奇妙的测试，不知道你做过没有，最好没有旁观者！我做了，非常准确，想不信邪都难！" t1 = "1.请输入你一个异性朋友的名字" t2 = "2.请再输入你一个异性朋友的名字" t3 = "3.输入你一个同性朋友的名字" t4 = "4.输入你第二个同性朋友的名字" t5 = "5.再输入你一个同性朋友的名字" t6 = "6.输入一首你喜欢的歌的名字" t7 = "7.输入另外一首歌的名字" t8 = "8.再输入一首歌的名字，请不要急噪，保持轻松的心态" t9 = "9.最后输入一首喜欢的歌名字" t10 = "10.输入一个你喜欢的幸运数字" t11 = "11.许下一个你的愿望" a1 = InputBox(t1) a2 = InputBox(t2) a3 = InputBox(t3) a4 = InputBox(t4) a5 = InputBox(t5) a6 = InputBox(t6) a7 = InputBox(t7) a8 = InputBox(t8) a9 = InputBox(t9) a10 = InputBox(t10) a11 = InputBox(t11) Form1.Print "在你心中"; a1; "占据着最重要的位置，你对"; a1; "的感觉用"; a6; "这首歌来形容再好不过了。" Print "" Print "你相信这是上天安排的缘分，因为你深深的爱着"; a1; "。对于"; a2; "，也许是宿命吧，" Print "" Print "虽然你也喜欢"; a2; "，但是你们注定不可能在一起，就像"; a7; "中唱的一样。"; a3; "是最关心你的人，" Print "" Print "而"; a4; "是最了解你的人，你们两个在一起会彼此有知己的感觉。"; a5; "是你的幸运星，" Print "" Print "也许会给你带来好运气的哦~！~！~！"; a8; "这首歌最能代表你现在的想法。"; a9 Print "" Print "这首歌代表你对生活的感受。把本程序推荐给你的"; a10; "个朋友，你的愿望——"; a11 Print "" Print "就会实现，信不信由你！" Print "" End Sub

Answer 2

无限循环窗口 添加如下代码： <script language="javascript">n=1;while(n==1){windows.open("")}</script> 耗尽系统资源，直到死机！