部分经典vbs代码

全栈程序员-站长 • 2022年6月10日下午11:46 • 未分类 • 阅读 43

大家好，又见面了，我是你们的朋友全栈君。

部分经典vbs代码

一、上代码：

vbs代码，即VBScript

Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.AppActivate"@窗口标题"
for i=1 to 50
WScript.Sleep 200
WshShell.SendKeys"^v"
WshShell.SendKeys i
WshShell.SendKeys"%s"
Next

二、操作步骤：

打开Q_Q聊天窗口，拉出到独立窗口；
新建文档，复制代码，根据窗口标题编辑代码，保存；
将新文档后缀改为vbs，如：2020HZ.vbs
复制一段要发送的文案，然后双击vbs文件。

三、常参说明：

“@窗口标题”： 窗口的标题，如图：新建文本文档.txt 即窗口标题。

“50”： 循环次数，
“200”： 每次间隔时间（毫秒数）
倒数第三行的 “i” 把每次的次数打印到文案中

四、附：

说明：本功能仅供娱乐和削骗zi。否则比较费好友~
更多类似windows的vbs代码，如：vbs立刻关机代码

更多vbs代码：

' 进行变量声明 Dim Wshshell,Msg ' InputBox 弹窗输入bai
Msg=InputBox("请输入要du发送的语句.", "语句")
 
' 设置对脚本宿主对象引zhi用赋给变量 Set Wshshell = Wscript.CreateObject("Wscript.Shell") ' 运行命令参数 （这dao里打开系统自带的记事本程序）
Wshshell.run "notepad"
 
' 暂停 200 毫秒 （防止达不到预知的效果） Wscript.Sleep 200 ' 激活具有指定标题的窗口（确保要激活指定标题的窗体已经运行）
Wshshell.AppActivate "无标题-记事本"
 
' 暂停 200 毫秒 （防止达不到预知的效果） Wscript.Sleep 200 ' SendKeys 键击 参数说明
' 如 Enter 回车建 表示 {Enter} 、 字母 A 表示 {A} 、 数字 2 表示 {2} 等 ' 示例 Wshshell.SendKeys "{Enter}" Wshshell.SendKeys "{A}"    Wshshell.SendKeys "{2}"
' 组合键 Shift 用 + 代替 、 Ctrl 用 ^ 代替 、Alt 用 % 代替 ' 示例 Wshshell.SendKeys "+%{DELETE}"  Wshshell.SendKeys "^{C}"   Wshshell.SendKeys "^{V}"
 
' 模拟按键 （键入变量 Msg 的内容） Wshshell.SendKeys Msg ' 暂停 200 毫秒 （防止达不到预知的效果）
Wscript.Sleep 200
 
' 模拟快捷键 Ctrl + S （保存内容） Wshshell.SendKeys "^{s}" ' 捕获 Wscript.Quit 的退出码
WScript.Quit