VBS脚本的魅力

开篇：润墨网以专业的文秘视角，为您筛选了一篇VBS脚本的魅力范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！

一谈起vbs脚本，很多人就会想起狂袭全球数百万电脑的“爱虫”网络蠕虫病毒和让广大电脑用户苦不堪言的“新欢乐时光”病毒。这两个病毒有一个共同特点，那就是都是使用VBScript编写。实际上，VBScript是一种功能非常强大的脚本语言，它可以利用Windows系统的开放性，通过调用一些现成的Windows对象、组件，直接对Windows的文件系统、注册表等进行操作。本文将介绍三个用VBScript编写的非常实用的脚本文件，让我们一起来领略它的魅力。

快速全文翻译

复制需要翻译的英文到剪贴板，双击脚本文件“全文翻译.vbs”，该脚本即会打开“金山快译”的全文翻译窗口自动翻译粘贴到该窗口的英文（如图1）。

提示：用VBS编写的脚本程序在图形界面是由WScript.exe文件解释并执行的，运行中一些杀毒软件会弹出类似图2所示的对话框，不要担心，单击“允许脚本运行一次”执行该脚本。

制作“快速全文翻译”脚本，打开记事本，输入以下代码：

Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

WshShell.Run "F:\progra~1\kingsoft\fastai~1\KingTr~1.exe"

WScript.Sleep 1000

WshShell.AppActivate "金山全文翻译 - [KingTrans1]"

WshShell.SendKeys "^v"

WScript.Sleep 1000

WshShell.SendKeys "{F10}"

完成后，将该脚本另存为“全文翻译.vbs”。

提示：上述代码第三行中的“F:\progra~1\kingsoft\fastai~1\KingTr~1.exe”为作者“金山快译”全文翻译程序的安装路径，你可以根据自己电脑上“金山快译”的安装路径按8.3格式改写。

下面，我们再为这个脚本文件创建一个快捷方式，操作时，只要双击桌面上的快捷方式就行了。在脚本文件“全文翻译.vbs”上单击右键，在弹出的快捷菜单上选择“发送到”|“桌面快捷方式”命令。在桌面上，右键点击该快捷方式，在弹出的菜单上选择“属性”，打开该快捷方式的“属性”对话框。选择对话框的“快捷方式”选项卡，在“快捷键”文本框中为该脚本指定一个快捷键。你还可以单击“更改图标”，为该快捷方式指定一个个性化的图标。

新建并粘贴

复制需要粘贴的文本到剪贴板，双击脚本文件“新建并粘贴.vbs”，该脚本会打开记事本新建文件，并把刚才复制的内容粘贴到该文件中。

制作“新建并粘贴”脚本，打开记事本，输入以下代码：

Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

WshShell.Run "notepad"

WScript.Sleep 1000

WshShell.AppActivate "无标题 - 记事本"

WshShell.SendKeys "^v"

完成后，将该脚本另存为“新建并粘贴.vbs”。参照上面的方法，在桌面上为该脚本创建一个快捷方式。

一键创建还原点

需要创建还原点时，双击脚本文件“一键还原点.vbs”，该脚本就会在后台为你创建一个还原点。制作此脚本，打开记事本，输入以下代码：

Set IRP=getobject("winmgmts:\\.\root\default:Systemrestore")

MYRP=IRP.createrestorepoint("一键还原点",0,100)

完成后，将该脚本另存为“一键还原点.vbs”。参照上面的方法，在桌面上为该脚本创建一个快捷方式。