vbs介绍与常见整人代码

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的用法

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

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

管理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 pipe
	i.terminate() 
	next 
	wscript.sleep 5
	loop 

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

脚本病毒

操作同上，代码如下：

示例一：

set ws=createobject("wscript.shell")
	call shutdown(1)
	do while a<>"我是猪"
	a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")
	loop
	call shutdown(2)
	msgbox "早说就行了嘛",