大家好,又见面了,我是你们的朋友全栈君。
部分经典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
发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/132307.html原文链接:https://javaforall.cn
【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛
【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...