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("想结素我么?那你就再多点一次")