vbs-toolkit VBSEdit 提供 免费的COM组件
VBSEdit安装目录下提供免费COM组件vbs.toolkit,注册后通过CreateObject("VbsEdit.Toolkit")调用,支持剪贴板操作、文件对话框、浏览文件夹、枚举顶层窗口及子窗口等功能,有效弥补VBScript功能短板,极大简化脚本开发,适合自动化办公和系统管理任务,是VBS脚本扩展的得力工具。
VBScript 语法虽然简单、强大,但在功能上确实有些先天不足——很多场景下得靠 COM 组件这类第三方控件来“续命”。而 VBSEdit 安装目录下自带了一个免费的工具箱组件 vbs.toolkit,正好能填补不少短板。

下载 VBSEDIT 工具后,会得到两个版本的 DLL:
- 32 位 DLL: vbsedit32.dll
- 64 位 DLL: vbsedit64.dll
注册组件
注册需要管理员权限。分别执行以下命令即可注册 32 位和 64 位的组件:
regsvr32 vbsedit32.dll
regsvr32 vbsedit64.dll
如果需要注销,加上 /u 参数:
regsvr32 /u vbsedit32.dll
regsvr32 /u vbsedit64.dll
注册成功后,就可以用 CreateObject("VbsEdit.Toolkit") 来调用工具箱了。它提供了一些非常实用的功能扩展,比如剪贴板操作:
Set toolkit = CreateObject("VbsEdit.Toolkit")
toolkit.PutClipboardText "Hello World"
WScript.Echo toolkit.GetClipboardText()
剪贴板操作
GetClipboardText 方法 —— 获取剪贴板中的文本内容:
Set toolkit = CreateObject("VbsEdit.Toolkit")
WScript.Echo toolkit.GetClipboardText()
PutClipboardText 方法 —— 将指定内容设置到剪贴板:
Set toolkit = CreateObject("VbsEdit.Toolkit")
toolkit.PutClipboardText "Hello World"
执行后,剪贴板里的数据就变成 "Hello World" 了。
对话框
OpenFileDialog 方法
弹出打开文件的对话框。完整签名:toolkit.OpenFileDialog ([initialFolder,[filters,[multiselect,[title]]]])。
下面是只允许选择一个文件的例子:
'Opens a single file
Set toolkit = CreateObject("VbsEdit.Toolkit")
files=toolkit.OpenFileDialog("c:scripts","Text Files (*.txt)|*.txt",False,"Open a text file")
If UBound(files)>=0 Then
WScript.Echo files(0)
Else
Wscript.Quit
End If
支持多文件选择的版本,只要把 multiselect 参数设为 True:
'Opens multiple files
Set toolkit = CreateObject("VbsEdit.Toolkit")
files=toolkit.OpenFileDialog("c:scripts","Text Files (*.txt)|*.txt",True,"Open a text file")
If UBound(files)>=0 Then
For Each filepath In files
WScript.Echo filepath
Next
Else
Wscript.Quit
End If
Sa veFileDialog 方法
弹出另存为对话框。签名:toolkit.Sa veFileDialog ([initialFolder,[initialFilename,[filters,[title]]]])。
Set toolkit = CreateObject("VbsEdit.Toolkit")
filepath = toolkit.Sa veFileDialog("c:scripts","test.txt","Text Files (*.txt)|*.txt")
If Not(IsNull(filepath)) Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(filepath,True)
objFile.WriteLine Date
objFile.Close
Else
Wscript.Quit
End If
SelectFolder 方法
弹出浏览文件夹对话框。签名:toolkit.SelectFolder ([initialDir,[title]])。
Set toolkit = CreateObject("VbsEdit.Toolkit")
myfolder=toolkit.SelectFolder("c:scripts","Please select a folder")
If Not(IsNull(myfolder)) Then
WScript.Echo myfolder
Else
Wscript.Quit
End If
枚举窗口
TopLevelWindows 方法
用于枚举顶层窗口:
Set toolkit = CreateObject("VbsEdit.Toolkit")
For each window in toolkit.TopLevelWindows()
WScript.Echo window.WindowTitle
WScript.Echo window.ProcessId
Next
返回的 Window 对象具有以下常用属性和方法:
- ClassName:获取窗口所属的类名
- WindowTitle:获取窗口标题栏的标题,或控件的文本
- DlgCtrlID:获取控件的标识符
- Height / Width:获取窗口的高度和宽度
- X / Y:获取窗口左上角的坐标
- IsVisible:判断窗口是否可见
- ProcessId:获取创建该窗口的进程 ID
- Click 方法:向窗口发送鼠标点击事件,可指定偏移坐标(
offsetX, offsetY),不指定则点击窗口中央 - SendText 方法:向窗口发送文本内容
- ChildWindows 方法:枚举指定父窗口下的子窗口
Click 方法签名:window.Click ([offsetX ,[offsetY]])。如果未指定偏移,则默认点击窗口中央。
SendText 方法签名:window.SendText text,将文本发送到指定窗口。
ChildWindows 方法:window.ChildWindows(),返回子窗口集合。
Windows 10 是一款微软推出的经典操作系统,拥有硬件兼容性与多任务处理能力。它更偏向把系统状态查看和常用调节动作放在一起,适合需要持续观察和微调设备状态的场景。
极度公式是一款跨平台专业LaTeX公式识别编辑软件,支持OCR公式识别和多平台编辑。和使用说明,避免使用,享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时,它能把识别后的处理步骤接得更顺,资料录入这类场景会省下不少时间。
















