如题 以下为程序代码
Private Sub Form_Load()
MsgBox "你是个**，不服点“确定”！", vbInformation, "SB"
MsgBox "此文件无毒，请放心使用。", vbRetryCancel, "系统提示。"
Dim a
Do
a = InputBox("输入abc，否则关机。")
If a = "abc" Then
MsgBox " 很遗憾，你中招了，这是整人程序，你就等着关机吧！"
Exit Do
Else
MsgBox "乖点，输入abc"
End If
Loop
On Error Resume Next
WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ", 0, True
Dim ac
Do While (ac <> "我是猪")
ac = InputBox("说我是猪,就不关机，快撒，说 ""我是猪"" ", "说不说", "不说", 8000, 7000)
MsgBox "乖"
Loop
MsgBox "早说就行了嘛"
On Error Resume Next
MsgBox "即将格式化！请做好准备！", vbYesNo
MsgBox "准备好后点yes！", vbYesNo
MsgBox "sorry，忘说了，点no也行！"
MsgBox "我对不起你啊！呜呜呜555哈哈哈哈！"
MsgBox "靠，我笑个屁呀！我可是著名博士！在精神病院搞一种研究。。。"
MsgBox "被人研究！"
MsgBox "就知道你会笑！告诉你，我最讨厌两种人！一是讨厌别人的人，二是爱笑人，三是不识数的人！"
MsgBox "你咋还笑？！是时候惩罚你了！"
MsgBox "自己骂自己的不要脸~~~~~~", 4, " "
MsgBox "你是不是很无聊啊？", 4
MsgBox "我来陪你玩会儿"
MsgBox "做好玩儿的准备吧！"
MsgBox "呵呵，你知道我是谁吗？", 16
MsgBox "什么？？不知道？", 16
MsgBox "那你打开我干什么？", 16
MsgBox "你有空没事做吧？！", 16
MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16
MsgBox "算了算了，不玩你了", 16
MsgBox "现在我数3声就闪人,行了吧?", 16
MsgBox "1.............", 16
MsgBox "2.............", 16
MsgBox "3.............", 16
MsgBox "噔噔噔噔,我又回来了！", 16
MsgBox "哈哈，是不是很过瘾呢？", 16
MsgBox "现在我先介绍下自己..", 16
MsgBox "不好意思噢，我好像说多了..", 16
MsgBox "不要这样喇，听我说完先好不？", 16
MsgBox "来来来，开始喇..", 16
MsgBox "我叫王得地..", 16
MsgBox "家中有屋又有田..", 16
MsgBox "生活乐无边..", 16
MsgBox "好像我又说多了...", 16
MsgBox "不要生气嘛，你认真看下去我就放你走..", 16
MsgBox "好，开始喇..", 16
MsgBox "从前有座山..", 16
MsgBox "山里有个座庙..", 16
MsgBox "庙里有个和尚..", 16
MsgBox "哈哈，想哭吗？", 16
MsgBox "被骗的感觉不爽吧？", 16
MsgBox "喂喂喂！别别..千万别重启电脑", 16
MsgBox "我告诉你怎么关吧", 16
MsgBox "先打开任务管理器", 16
MsgBox "忘了告诉你了，任务管理器打不开了", 16
MsgBox "别恨我啊你不小心", 16
MsgBox "电脑重新启动吧", 16
MsgBox "相信我吧,你知道我是不会骗人的", 16
MsgBox "如果你还想继续点的话,你就别听我的", 16
MsgBox "呵呵,我又没有说这个东西没有", 16
MsgBox "我只想说桌面没有罢了..", 16
MsgBox "嘻嘻,爽不爽吖?", 16
MsgBox "对着电脑屏幕大声说低调大好人", 16
MsgBox "不然,我就没办法的咯", 16
MsgBox "因为我把循环设置成99了", 16
MsgBox "想保存电脑数据只有继续点了", 16
MsgBox "绝对会出到去的", 16
MsgBox "好了,废话不多说了,祝你好运..", 16
MsgBox "制作:XXX", 16
MsgBox "QQ：12345678901", 16
MsgBox "E-mail:不告诉你", 16
Do
MsgBox "你无聊吗?", vbInformation, "你无聊吗？"
Loop
End Sub
Private Sub Form_Load()
MsgBox "你是个**，不服点“确定”！", vbInformation, "SB"
MsgBox "此文件无毒，请放心使用。", vbRetryCancel, "系统提示。"
Dim a
Do
a = InputBox("输入abc，否则关机。")
If a = "abc" Then
MsgBox " 很遗憾，你中招了，这是整人程序，你就等着关机吧！"
Exit Do
Else
MsgBox "乖点，输入abc"
End If
Loop
On Error Resume Next
WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ", 0, True
Dim ac
Do While (ac <> "我是猪")
ac = InputBox("说我是猪,就不关机，快撒，说 ""我是猪"" ", "说不说", "不说", 8000, 7000)
MsgBox "乖"
Loop
MsgBox "早说就行了嘛"
On Error Resume Next
MsgBox "即将格式化！请做好准备！", vbYesNo
MsgBox "准备好后点yes！", vbYesNo
MsgBox "sorry，忘说了，点no也行！"
MsgBox "我对不起你啊！呜呜呜555哈哈哈哈！"
MsgBox "靠，我笑个屁呀！我可是著名博士！在精神病院搞一种研究。。。"
MsgBox "被人研究！"
MsgBox "就知道你会笑！告诉你，我最讨厌两种人！一是讨厌别人的人，二是爱笑人，三是不识数的人！"
MsgBox "你咋还笑？！是时候惩罚你了！"
MsgBox "自己骂自己的不要脸~~~~~~", 4, " "
MsgBox "你是不是很无聊啊？", 4
MsgBox "我来陪你玩会儿"
MsgBox "做好玩儿的准备吧！"
MsgBox "呵呵，你知道我是谁吗？", 16
MsgBox "什么？？不知道？", 16
MsgBox "那你打开我干什么？", 16
MsgBox "你有空没事做吧？！", 16
MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16
MsgBox "算了算了，不玩你了", 16
MsgBox "现在我数3声就闪人,行了吧?", 16
MsgBox "1.............", 16
MsgBox "2.............", 16
MsgBox "3.............", 16
MsgBox "噔噔噔噔,我又回来了！", 16
MsgBox "哈哈，是不是很过瘾呢？", 16
MsgBox "现在我先介绍下自己..", 16
MsgBox "不好意思噢，我好像说多了..", 16
MsgBox "不要这样喇，听我说完先好不？", 16
MsgBox "来来来，开始喇..", 16
MsgBox "我叫王得地..", 16
MsgBox "家中有屋又有田..", 16
MsgBox "生活乐无边..", 16
MsgBox "好像我又说多了...", 16
MsgBox "不要生气嘛，你认真看下去我就放你走..", 16
MsgBox "好，开始喇..", 16
MsgBox "从前有座山..", 16
MsgBox "山里有个座庙..", 16
MsgBox "庙里有个和尚..", 16
MsgBox "哈哈，想哭吗？", 16
MsgBox "被骗的感觉不爽吧？", 16
MsgBox "喂喂喂！别别..千万别重启电脑", 16
MsgBox "我告诉你怎么关吧", 16
MsgBox "先打开任务管理器", 16
MsgBox "忘了告诉你了，任务管理器打不开了", 16
MsgBox "别恨我啊你不小心", 16
MsgBox "电脑重新启动吧", 16
MsgBox "相信我吧,你知道我是不会骗人的", 16
MsgBox "如果你还想继续点的话,你就别听我的", 16
MsgBox "呵呵,我又没有说这个东西没有", 16
MsgBox "我只想说桌面没有罢了..", 16
MsgBox "嘻嘻,爽不爽吖?", 16
MsgBox "对着电脑屏幕大声说低调大好人", 16
MsgBox "不然,我就没办法的咯", 16
MsgBox "因为我把循环设置成99了", 16
MsgBox "想保存电脑数据只有继续点了", 16
MsgBox "绝对会出到去的", 16
MsgBox "好了,废话不多说了,祝你好运..", 16
MsgBox "制作:XXX", 16
MsgBox "QQ：12345678901", 16
MsgBox "E-mail:不告诉你", 16
Do
MsgBox "你无聊吗?", vbInformation, "你无聊吗？"
Loop
End Sub
