VBS基础篇 - vbscript堆栈
实例代码
脚本文件：d.vbs，包含堆栈的添加元素（压栈）、删除元素（出栈）、遍历、统计元素个数、清空
Option Explicit
'建立堆栈
Dim Stk : Set Stk = CreateObject("System.Collections.Stack")
Stk.Push "Element1"
Stk.Push "Element2"
Stk.Push "Element3"
'查看堆栈中的元素数
WScript.Echo "堆栈中的元素数: " ...
VBS基础篇 - vbscript队列
实例代码
脚本文件：c.vbs，包含队列的添加元素（入队）、删除元素（出队）、遍历、统计元素个数、清空
'建立队列
Dim Que : Set Que = CreateObject("System.Collections.Queue")
Que.EnQueue("Element1")
Que.EnQueue("Element2")
Que.EnQueue("Element3")
'查看队列中的元素数
WScript.Echo "队列中的元素数: " & Qu ...
15分钟学会vbscript中的正则表达式
vbs中的正则表达式
假定要搜索的字符串是 str="hello world Hello World"
1--规则基本与dos中的findstr类似。有细微的差别。如果对规则有困惑的，可以在cmd中看看findstr的说明就可以了。
2--如何使用？
a--创建类RegExp
set reg=new RegExp
b--类的属性
reg.pattern---用正则表达式建立搜索模板
如： reg.pattern="hello" ...
VBS定时执行idea程序的Testng文件的方法
背景:
Windows环境cmd命令行执行TestNG文件，会报一些jar包路径问题，所以改用vbs打开idea程序的通过点击快捷键执行testng.xml文件。
vbs代码如下：
'第一部分：定义变量
Dim RunTime
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
'第二部分：输入等待的分钟数(默认：180分钟)，等待结束后，会 ...
vbs能调用的系统对象小结
vbs能调用系统对象：
文件系统对象相关: ("scripting.filesystemobject")
字典相关: ("scripting.dictionary")
脚本外壳相关: ("wscript.shell")
windows外壳相关: ("shell.application")
正则表达式相关: ("vbscript.regexp")
asp相关: ("mswc.adrotator") ("mswc.nextlink") ("mswc.myinfo")
公用对话框相关: ("mscomdlg. ...
vbs 双引号转义示例详解
目录vbs 双引号转义双引号的转义方法示例代码总结vbs脚本命令：把英文双引号转换成中文双引号的左引号VBS中的转义符vbs 双引号转义
在 Visual Basic Script (VBS) 中，处理字符串时有时需要包含双引号 (")。由于双引号本身用于定义字符串的开始和结束，因此需要在字符串内部使用它们时进行转义。
双引号的转义方法
在 VBS ...
slmgr-命令详解(Windows软件授权管理工具)
slmgr是Software LicenseManger的简称，是Windows软件授权管理工具。slmgr是管理系统激活和密钥、证书的主要组件。slmgr的所有功能都是通过slmgr.vbs提供的，采用VBScript命令行方式执行。图形界面中许多与该命令行相关的激活行为，比如系统属性等，都是通过调用slmgr.vbs脚本来执行授权操作。即使你在COMMAND下使用slmgr命 ...
Windows系统中通过vbs实现循环运行.bat/.exe等文件
在VBScript中，你可以使用一个无限循环，并在每次迭代中使用 WScript.Sleep 方法暂停一段时间，然后后续继续执行。
一、创建循环运行的run-everySecond.vbs文件【双击次文件即可启动运行】
dim a
set a=CreateObject("Wscript.Shell")
Do
##运行xxx.exe文件,后面的0表示：不弹出运行黑窗口
a.run "E:/xxx.exe",0
Wscript.Sl ...
vbs 文件操作集合代码
下面是我写的一个 vbs 文件：
rename.vbs
rename.vbs
'关键字配置文件地址
Const config = "E:\cleandata\key.txt"
'要检查的文件夹
Const dir = "D:\Log\html\"
'日志保存路径
Const LogDir = "E:\cleandata\Log\"
'全局对象
set fso=createobject("scripting.filesystemobject")
Dim keywordList(10000)
Rem ...
使用vbs脚本来监控windows服务器上的应用程序(不存在就启动)
这个vbs代码主要实现的功能就是运行该程序，就会在进程中出现一个wscript.exe 它会每隔10s扫面一次进程中是否存在notepad.exe这个程序,不存在就启动。这个启动程序可能跟进程名不一样，好比tomcat应用，启动的是startup.bat，后台进程名为java.exe,这样就需要调整代码proname="java.exe"
关于如果关掉监控 可以在运行下执行 ...
vbs ShellExecute运行外部程序时如何判断外部程序执行成功与否
需要vbs执行一些命令,比如 ""uwfmgr filter enable"" (统一写入筛选器), 但是这个uwfmgr.exe需要管理员权限才能运行相关命令目前我是这么写的
Set sst = CreateObject("Shell.Application")
Call sst.ShellExecute("uwfmgr","filter enable", ,"runas",0)
这样可以以管理员身份运行命令, 但是我怎么才能判断uwfmgr执行是成 ...
VBS字符串编码转换函数代码
因为业务需要将一些字符串转换为指定编码方便后期操作
核心代码
Const adTypeBinary = 1
Const adTypeText = 2
' accept a string and convert it to Bytes array in the selected Charset
Function StringToBytes(Str,Charset)
Dim Stream : Set Stream = CreateObject("ADODB.Stream")
Stream.Type = adTypeText
S ...
VBS 批量Ping的项目实现
本文用vb编写的 ping程序实现，具体如下：
'判断当前VBS脚本是否由CScript执行
If InStr(LCase(WScript.FullName), "cscript.exe") = 0 Then
'若不是由CScript执行，则使用CScript重新执行当前脚本
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "cscript.exe", """" & ...
教你用vbs实现微信自动发送消息功能
目录前言1、微信自动回复消息2、vbs脚本运行方式总结前言
最近对电脑或手机自动进行某些操作很感兴趣，于是去看了一下有关手机电脑微信自动回复消息相关的东西，发现很多恶搞代码不仅可以通过实现病毒的方式，同时用vb就可以实现一个常见的恶搞脚本。
1、微信自动回复消息
微信，作为日前最热最火的社交软件，应该是家喻户 ...
抖音很火的vbs表白代码(简单实用!)
好玩的循环表白代码
1，右键->新建文本文件
2，右键->编辑
3，粘贴下面代码
MsgBox " 十年相遇"
MsgBox " 百年回眸"
MsgBox " 千年同船渡"
MsgBox " 我愿以万年的等待"
MsgBox " 百世的轮回"
MsgBox " 换你今朝一世情缘"
MsgBox " 可否"
dim a(5)
a(0 ...
vbs实现web自动登录网站的方法
目录一，编写vbs二，配置为开机自启背景：我们的电脑需要开机登录一个网址输入信息才能够上网，这样对远程的话，很不友好。因此查了查vbs可以进行开机在网页上自动登录，实现开机联网。（不同的网页使用的登录方法是不同的，下面的仅作参考）环境：window10专业版
一，编写vbs
网页其中DDDDD是账号的位置，upass为密码，我 ...
VBS入门篇之带你领略脚本语言的快乐
目录前言一、VBS简介二、为什么要学VBS三、第一个VBS脚本四、实现简单的交互功能五、注意点：结束语前言
小弟初来乍到，自诩高中时曾自学过一点VBS脚本语言基础，感觉不错，想把学习到的东西记录下来，和大家分享一下，由于小弟我学艺不精，有误的地方还请多多指教。
入门篇是给电脑小白做的（大佬们可以直接无视），因为我 ...
VBS脚本基础语法实例讲解
目录引言一、编辑VBS的相关软件二、变量的定义三、输入与输出1、输入2、输出四、判断语句五、循环语句1、do – loop 循环2、for – next 循环总结引言
最近在学习VBS语言的时候，搜索了不少资料，但是往往只是介绍一下什么整人代码、表白代码之类的，很少有基础的语法讲解，因此，我在这里写一篇博文来进行一下VB ...
vbs脚本和windows定时任务实现qq消息表情包定时发送功能
目标
在某个时间唤醒电脑屏幕后，自动发送qq信息，并附带表情包，发送完毕后关闭电脑屏幕。整个过程不用过多的程序运行，我们借助vbs脚本和windows定时任务去实现这一功能。
准备
vbs代码qq信息txt文本qq文件表情包文件发送联系人的快捷方式3个windows任务
具体操作
信息和快捷方式准备
qq信息txt文本和表情包文件
桌面新建 ...
使用VBS创建快捷方式的代码
在网吧维护过程中经常要发送桌面快捷方式，有什么批处理的方式能便捷发送桌面快捷方式呢，就拿我这边网吧steam下发为例给大家一个参考，如果要使用直接复制下面代码改下具体参数就行了。代码如下：
@echo off
::设置程序或文件的路径（必选）
set Program=D:\Program Files\Microvirt\MEmu\MEmu.exe
::设置启动参数（可 ...
