vbs刷屏代码。复制粘贴即可⽤
Dim name,msg
name="请输⼊要刷屏的⽂字:"
msg=Inputbox("请输⼊要刷屏⽂字(在刷屏期间不要将光标移出聊天框，不然会打开光标所在的程序)")
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.AppActivate"⽆标题记事本"
num=20
sleeptime=400
for i=1to num
caution="，总共有"&num&"条刷屏，当前是第"&i&"条刷屏；总共需要"&sleeptime/1000*num&"秒"&"，还有"&sleeptime/1000*num-sleeptime/1000*i& "秒完成刷屏"
WshShell. /c echo "&msg&caution&"| ",vbHide
vbs小程序代码大全
WScript.Sleep sleeptime
WshShell.SendKeys"^v"
WshShell.SendKeys"{ENTER}"
next
使⽤步骤：创建txt⽂本⽂件。将上⾯代码粘贴进去。保存完毕后，将txt后缀名改为vbs即可.
注意事项：使⽤之前，光标必须在聊天窗⼝点⼀下，保证光标在聊天窗中，不然就更好玩了

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。