大家好，又见面了，我是你们的朋友全栈君。
部分经典vbs代码
一、上代码：
代码语言：javascript复制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发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/132307.html原文链接：https://javaforall.cn
