效果：
首先是一段冰冰的人声“嘿，谢谢你打开我哦，我等你很久拉”，然后就打开了让人不耐烦的提示窗口，把他烦死，一个一个点，然后开始说，你是否失眠，然后是漫长的人声开始属羊，最后就是弹出一个窗口，问知道电脑自爆吗，如果倒计时结束，到不至于自爆，只是会关机，不过我用了系统自带的倒计时，确实有爆炸倒计时的感觉
这时，多半被耍的人可能会联系你，这时候你就勒索他的qq密码就好了，相信大家都知道如何强行结束这玩意
屡试不爽，自己看吧，这里应该没有vbs小白吧
CreateObject("SAPI.SpVoice").Speak "嘿，谢谢你打开我哦，我等你很久拉"
XXXXXXXXXXho("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)

XXXXXXXXXXho("你是可爱的小朋吗?")
XXXXXXXXXXho("哈,我想你拉，这你都不知道吗？")
XXXXXXXXXXho("怎么才来，说~是不是不关心我")

XXXXXXXXXXho("哼,我生气拉，等你这么久，心都凉啦。")
XXXXXXXXXXho("小强很生气，后果很严重哦。")

XXXXXXXXXXho("嘿嘿！你也会很惨滴哦")
XXXXXXXXXXho("是不是想清除我？")

XXXXXXXXXXho("那你要点上50下哦，不过会给你惊喜滴")
XXXXXXXXXXho("还剩49下，快点点哦")
XXXXXXXXXXho("还剩48下，快点，小笨蛋！")
XXXXXXXXXXho("还剩47下对，就这样快点点！")
XXXXXXXXXXho("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")
XXXXXXXXXXho("还剩45下，记得要快哦！")
XXXXXXXXXXho("还剩43下")
XXXXXXXXXXho("还剩42下")
XXXXXXXXXXho("还剩41下")
XXXXXXXXXXho("还剩40下")
XXXXXXXXXXho("还剩39下")
XXXXXXXXXXho("还剩38下")
XXXXXXXXXXho("还剩37下")
XXXXXXXXXXho("还剩36下")
XXXXXXXXXXho("还剩35下")
XXXXXXXXXXho("还剩34下")
XXXXXXXXXXho("还剩33下")
XXXXXXXXXXho("还剩32下")
XXXXXXXXXXho("还剩30下")
XXXXXXXXXXho("还剩29下")
XXXXXXXXXXho("还剩28下")
XXXXXXXXXXho("还剩27下")
XXXXXXXXXXho("还剩26下")
XXXXXXXXXXho("还剩25下")
XXXXXXXXXXho("还剩24下")
XXXXXXXXXXho("还剩23下")
XXXXXXXXXXho("还剩22下")
XXXXXXXXXXho("还剩21下")
XXXXXXXXXXho("还剩20下")
XXXXXXXXXXho("还剩19下")
XXXXXXXXXXho("还剩18下")
XXXXXXXXXXho("还剩17下")
XXXXXXXXXXho("还剩16下")
XXXXXXXXXXho("还剩15下")
XXXXXXXXXXho("还剩14下")
XXXXXXXXXXho("还剩13下停停！！！慢点，我有话要说")
XXXXXXXXXXho("还剩12下，你继续点我就会消失滴")
XXXXXXXXXXho("还剩11下，以后就看不到我拉。555555")
XXXXXXXXXXho("还剩10下，你现在可以选择停止！")
XXXXXXXXXXho("还剩9下。你还点啊，不要我拉？")
XXXXXXXXXXho("还剩8下，有点伤心拉，干嘛丢弃人家")
XXXXXXXXXXho("还剩7下。疯了，你有点负意！")
XXXXXXXXXXho("还剩6下。对。你就点吧，我恨你！")
XXXXXXXXXXho("还剩5下，不明白，删除我你就好吗？")
XXXXXXXXXXho("还剩4下！真要删除我？")
XXXXXXXXXXho("还剩3下。可是我真的很眷恋你。。。")
XXXXXXXXXXho("还剩2下。不要这么绝情嘛，人家是爱你的！")
XXXXXXXXXXho("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")
XXXXXXXXXXho("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")
CreateObject("SAPI.SpVoice").Speak "兄弟开来要和你玩恨得了"  
MsgBox "兄弟呀，你最近是否失眠",vbinformation
Randomize()
Dim a
a=Int(rnd*2)
Select Case a
Case 0
MsgBox ("我也是这样啊``````")
Case 1
MsgBox ("(-.-)，同是天涯失眠人。")
Case 2
MsgBox ("(~.~)，还是说你没有失眠")
End select
MsgBox ("告诉你一个祖传秘方")
Dim b(99)
For ji=0 To 10
b(ji)=ji+1
CreateObject("SAPI.SpVoice").Speak b(ji) &"只羊"
Next
MsgBox ("算了，不数了！")
MsgBox ("还是来点更爽的吧")
MsgBox ("电脑自爆听说过吧")
MsgBox ("没错，就玩这个")
MsgBox ("我有点残忍啊")
MsgBox ("那就给你个机会把，你有三个选择")
MsgBox ("1.从窗户跳出去！")
MsgBox ("2.联系作者！")
MsgBox ("3.等待电脑爆炸")
MsgBox ("注意千万不能把电源，我已经启动超级程序，你要是把电源只能让硬盘信息丢失")
MsgBox ("倒计时3")
MsgBox ("2")
MsgBox ("这可不是个玩笑")
MsgBox ("1")
MsgBox ("来吧")
If b(99)=100 Then
Set Wshell=XXXXXXXXXXeateObject("XXXXXXXXXXell")
XXXXXXXXXn "shutdown -s -t 100"
End if