vbs刷屏代码。复制粘贴即可用

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即可.

注意事项：使用之前，光标必须在聊天窗口点一下，保证光标在聊天窗中，不然就更好玩了