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

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

你可能感兴趣的:(vbs刷屏代码。复制粘贴即可用)