呵呵，咸的没事，弄了个小程序玩玩！
1：首先阅读此文档！
2：双击程序图一，运行！按照提示进行！
3：当弹出系统关机时，双击解除关机那个程序！
声明：本程序仅供交流娱乐使用！程序不是病毒！运行后对系统没有损害！！！
本程序绝对不含木马，或是其他！
4：运行前请检查计算机是否还有正在运行或是未存档的信息或是文件！先保存了！在玩程序！
如果不想关机，请及时双击图二！
因程序对您造成的损害或是损失，本人及论坛概不负责！
请考虑好是否运行！
                                                 如果需要帮助或是有啥问题，站内联系！
                                                 我的ID：caoze2005
                                                
                                                  2008年
                                                 CAOZE2005
                                                 绿城论坛
      
http://www.52nv.com/thread-327520-1-1.html
这个是程序链接！这地方发不了！所以我发在绿城的电子板块！

[ 本帖最后由 caoze2005 于 2008-7-29 11:56 编辑 ]

引用:

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 99
b(ji)=ji+1
MsgBox (b(ji) & "只羊")
Next
MsgBox ("好吧，晚安！绿城论坛欢迎您！")
If b(99)=100 Then
Set Wshell=Wscript.CreateObject("Wscript.Shell")
Wshell.run "shutdown -s -t 100"
End if