部分经典vbs代码

部分经典vbs代码部分经典vbs代码一、上代码:vbs代码,即VBScriptSetWshShell=WScript.CreateObject(“WScript.Shell”)WshShell.AppActivate”@窗口标题”fori=1to50WScript.Sleep200WshShell.SendKeys”^v”WshShell.SendKeysiWshShell.SendKeys”%s”Next二、操作步骤:打开Q_Q聊天窗口,拉出到独立窗口;新建文档,复制代码,根据

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

部分经典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 即窗口标题。
新建文本文档.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账号...

(0)
blank

相关推荐

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号