vbs代码

什么是vbs？

在生活中我们有时候会收到朋友发来的一个奇怪的文件，点开之后一直有弹窗怎么关闭都没用，最后只能调用任务管理器才"大功告成"，这其实就是一个vbs小程序。你的朋友只是仅仅和你开一个玩笑，你可不要小瞧它，它可是可以直接破环你的电脑系统，关机，重启也不过是“小技俩”。

VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition，简称为VBScript，文件的后缀是.vbs,如果你看到一个红蓝绿的小盒子，没错，就是它了。

vbs的编译

如此具有破坏性的vbs它的编译条件确十分简单，不需要安装任何工具，只要我们启动电脑打开记事本，随时随地便可以编译一个vbs程序，下面我们来创建一个简单vbs程序

在桌面创建一个文本文档

输入以下代码：

`name=Inputbox("请输入名字：")``Msgbox(name)`

修改后缀为vbs保存到桌面

效果如下：

这只是一个最简单的程序，vbs的用途不只于此！

vbs的用法

计算
处理文件和文件夹
管理Windows
处理Word, Excel, PowerPoint等Office文档
嵌入网页，驱动dHTML
编写HTTP通信
调用系统功能（COM组件），比如说语音说话
分析HTML, XML
调用命令行并分析返回结果
处理图片
自动化按键
调用Windows Media Player并管理
调用Windows Live Messenger并管理
服务端技术：Active Server Page (ASP)
脚本病毒
处理数据库

这里我简单介绍两个功能：

管理window系统

我们可以编译一个vbs程序控制来控制某个应用

创建.vbs后缀文件输入以下代码：

On Error Resume Next Dim bag,pipe,honker,good Do good="." set bag=getobject("winmgmts:\\"& good &"\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='？.exe'")for each i in pipei.terminate() next wscript.sleep 5loop

修改代码中“？.exe”为你要测试的应用程序的地址，例如"WeChat.exe",启动程序，你可以点击微信的图像，发现微信已经被禁止启动了，如果你想要终止，在任务管理器进程中找到Script.exe结束任务即可。

脚本病毒

操作同上，代码如下：

示例一：

set ws=createobject("wscript.shell")call shutdown(1)do while a<>"我是猪"a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")loopcall shutdown(2)msgbox "早说就行了嘛",4096+64msgbox"再输一遍我是猪!",4096+64msgbox"我是猪!",4096+64MsgBox"最后一次!",4096+64MsgBox"如果你很快的点过去,不看的话",4096+64MsgBox"我就要你踩我空间的!哼!",4096+64MsgBox"从前有座山!",4096+64MsgBox"山里有个庙.",4096+64MsgBox"庙里有个老和尚在讲故事.",4096+64ws.run"iexplore.exe http://tieba.baidu.com/f?kw=%C9%BD%C0%ED%D6%B0%D4%BA"msgbox"哎呀累了！数绵羊哄我睡觉",4096+64for i=1 to 100MsgBox i&"只绵羊",4096+64nextmsgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64msgbox"最后问个问题，我是不是大好人！",4096+64if inputbox("是不是","请选择","是")<>"是" thencall shutdown(1)end ifsub shutdown(s)select case scase 1ws.run"cmd.exe /c shutdown -r -t 60 -c",0case 2ws.run"cmd.exe /c shutdown -a",0end selectend sub

在其中有一个for循环，我设置的为100次，可以自行修改循环次数（善良的你会怎么做呢）

实例二：

WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉")WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSNaPEe)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉，这你都不知道吗？")WScript.Echo("怎么才来，说~是不是不关心我")WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")WScript.Echo("小强很生气，后果很严重哦。")WScript.Echo("嘿嘿！你也会很惨滴哦")WScript.Echo("是不是想清除我？")WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")WScript.Echo("还剩49下，快点点哦")WScript.Echo("还剩48下，快点，小笨蛋！")WScript.Echo("还剩47下对，就这样快点点！")WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")WScript.Echo("还剩45下，记得要快哦！")WScript.Echo("还剩43下")WScript.Echo("还剩42下")WScript.Echo("还剩41下")WScript.Echo("还剩40下")WScript.Echo("还剩39下")WScript.Echo("还剩38下")WScript.Echo("还剩37下")WScript.Echo("还剩36下")WScript.Echo("还剩35下")WScript.Echo("还剩34下")WScript.Echo("还剩33下")WScript.Echo("还剩32下")WScript.Echo("还剩30下")WScript.Echo("还剩29下")WScript.Echo("还剩28下")WScript.Echo("还剩27下")WScript.Echo("还剩26下")WScript.Echo("还剩25下")WScript.Echo("还剩24下")WScript.Echo("还剩23下")WScript.Echo("还剩22下")WScript.Echo("还剩21下")WScript.Echo("还剩20下")WScript.Echo("还剩19下")WScript.Echo("还剩18下")WScript.Echo("还剩17下")WScript.Echo("还剩16下")WScript.Echo("还剩15下")WScript.Echo("还剩14下")WScript.Echo("还剩13下停停！！！慢点，我有话要说")WScript.Echo("还剩12下，你继续点我就会消失滴")WScript.Echo("还剩11下，以后就看不到我拉。555555")WScript.Echo("还剩10下，你现在可以选择停止！")WScript.Echo("还剩9下。你还点啊，不要我拉？")WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")WScript.Echo("还剩7下。疯了，你有点负意！")WScript.Echo("还剩6下。对。你就点吧，我恨你！")WScript.Echo("还剩5下，不明白，删除我你就好吗？")WScript.Echo("还剩4下！真要删除我？")WScript.Echo("还剩3下。可是我真的很眷恋你。。。")WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")WScript.Echo("想结素我么?那你就再多点一次")

关机设置：

shut -s -t 时间

时间可以自行设置，当时间为0，直接关机，可以用shutdown -a 命令取消。

vbs的病毒分析防范

一般情况下只要下载杀毒软件都可以识别删除，不过我尝试过火绒似乎无法防范，具体操作，附上链接

http://blog.csdn.net/menuconfig/article/details/1827158

如果想要了解更多vbs，可以在菜鸟教程，W3school上学习

菜鸟教程： http://www.runoob.com/vbscript/vbscript-tutorial.html

Wschool： http://www.w3school.com.cn/vbscript/index.asp

vbs介绍与常见整人代码相关推荐

vbs关不掉的计算机窗口,vbs怎么关闭_vbs整人代码-关不掉的窗口
摘要腾兴网为您分享:vbs整人代码-关不掉的窗口,智慧医疗,猿辅导,熊猫视频,幸福一百等软件知识,以及手机解锁工具,autocad2004,小学英语冀教版,电池校准软件,当当读书app,藏宝天下,东 ...
vbs整人代码大集合(多年以来的整合)
博客超链接首页博客超链接资源 vbs整人代码大集合/不要乱使用! 前言一.删除D:\所有文件二.不断弹出窗口三.不断按下alt+f4 (开什么都关闭--) 四.按999次回车五.关不掉的窗口 ...
笔记3：关于VBS整人代码的浅谈
今天又看到有人在群里刷屏了.就想到了以前玩过的发QQ骚扰信息程序了.其实蛮简单的和网上很多的整人代码差不多一.直接在网上搜索"VBS整人代码",然后找到有用的代码复制着. ps ...
股票期货数据接口常见的代码介绍
我们在自己设计股票期货数据接口时,少不了要用到一些代码,今日我们就来介绍几个比较常见的代码,希望能对各位投资者有帮助. 众所周知,虽然期货交易是证券交易的其中一种方式,但当中有很多交易模式和术语跟股票 ...
笔记3：关于VBS整人代码
今天又看到有人在群里刷屏了.就想到了以前玩过的发QQ骚扰信息程序了.其实蛮简单的和网上很多的整人代码差不多一.直接在网上搜索"VBS整人代码",然后找到有用的代码复制着. ps ...
VBS整人代码(1)。
首先,我们要知道什么是VBS代码. 什么是VBScript呢? VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). ...
php整蛊关机代码,整人代码大全
01 [代码一] 你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). 代码如下: On Error ...
php正则运用,php中常用的正则表达式的介绍及应用实例代码
更全面的实例,可以参考最常用的PHP正则表达式收集整理 //www.jb51.net/article/14049.htm php 正则表达式小结 //www.jb51.net/article/198 ...
java 代码冲突检测_Java中常见的代码冲突
java 代码冲突检测在工作中,最近我对现有Java项目进行了代码清理. 完成该练习后,我可以看到在代码中一次又一次地发生了一组常见的代码冲突. 因此,我想出了此类常见违规的清单,并与同行共享,以提 ...

vbs介绍与常见整人代码