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()，返回子窗口集合。
VBS脚本实现文件批量处理：一脚本从配置文件读取关键字，遍历文件夹内容，匹配后重命名添加.bak后缀并记日志；另一脚本根据文件路径列表，对衍生文件批量重命名添加.tmp后缀。
VBS调用Shell.Application的ShellExecute方法时需先创建对象。参数包括文件名、附加参数、目录、操作和窗口类型。操作包括编辑、查找、打开、打印、属性、以管理员身份运行六种，窗口类型用0至10数值控制。实战示例以管理员权限运行cmd.exe添加用户。
利用ADODB.Stream对象，VBScript可实现字符串编码转换。核心思路是先将字符串按源编码转为二进制字节流，再按目标编码还原。提供StringToBytes、BytesToString和AlterCharset三个函数，支持GB2312与ISO-8859-1等单字节编码间的转换，适用于旧系统或硬件交互场景。
通过WMI调用Win32_PingStatus实现批量Ping检测，支持循环监测与断线计数。连续失败10次自动发送邮件告警，日志和控制台同步输出。需CScript环境运行，脚本已自动处理切换，适用于多IP持续监控场景。
利用VBS脚本制作循环表白弹窗，点击“否”时依次显示“女友最大”“工资上交”等六个承诺，点击“是”则展现字符爱心与浪漫告白。操作需新建文本文档，粘贴代码后另存为ANSI编码的.vbs文件，双击运行即可。
利用VBS脚本通过InternetExplorer.Application对象操控网页，自动填写账号密码并提交，实现开机自动登录网站。需根据实际页面修改网址、表单及输入框的name属性。将脚本放入系统启动文件夹即可开机自启。
VBS是Windows内置脚本语言，无需安装环境，用记事本即可编写。通过Msgbox和Inputbox函数实现弹窗输出与交互。编写时需注意：文件后缀为.vbs，符号使用英文半角，编码格式改为ANSI，否则中文可能乱码。
VBS脚本基础语法涵盖变量定义、输入输出、判断与循环语句。变量可用“dim”声明，支持自动类型推断；输入输出分别通过inputbox和msgbox实现；判断语句以if...then...else...endif结构为主；循环包括do-loop（支持until、while条件及exitdo控制）和for-next结构。
使用VBS脚本可收集域内远程或本地计算机的软件及Windows版本信息，结果保存为以计算机名命名的txt文件，支持网络路径或脚本目录。脚本内置过滤规则，自动剔除补丁包、Office组件及NVIDIA、Intel驱动等系统组件，兼容32位和64位系统。
VBS脚本在64位系统中因默认调用64位WScript.exe导致32位ActiveX组件无法创建，出现800A01AD错误。可通过修改注册表将解释器切换为32位版本，或直接更改脚本打开方式为SysWOW64下的wscript.exe解决。若在ASP环境中，可重新注册ADODB.Stream组件或启用IIS应用程序池的32位模式。
火山引擎是字节跳动旗下企业级云与AI服务平台。聚焦大模型核心能力，依托字节自研豆包多模态大模型，凭借火山方舟一站式平台，提供模型精调、推理部署、智能应用搭建等全链路服务，结合高性能AI算力，助力各行业快速落地大模型数字化与智能化应用。
