大家好，又见面了，我是你们的朋友全栈君。
Dim name,msg
name="请输入要刷屏的文字:"
msg=Inputbox("请输入要刷屏文字(在刷屏期间不要将光标移出聊天框，不然会打开光标所在的程序)")
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "无标题记事本"
num= 20
sleeptime=400
for i=1 to num
caution="，总共有" & num & "条刷屏，当前是第" & i &"条刷屏;总共需要" & sleeptime/1000*num & "秒" &"，还有"& sleeptime/1000*num-sleeptime/1000*i &"秒完成刷屏"
WshShell.Run "cmd.exe /c echo " & msg & caution & "| clip.exe", vbHide
WScript.Sleep sleeptime
WshShell.SendKeys "^v"
WshShell.SendKeys"{ENTER}"
next
使用步骤：创建txt文本文件。将上面代码粘贴进去。保存完毕后，将txt后缀名改为vbs即可.
注意事项：使用之前，光标必须在聊天窗口点一下，保证光标在聊天窗中，不然就更好玩了
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/125786.html原文链接：https://javaforall.cn
【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛
【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...
