批处理刷屏

哈马斯

现复制起来
自己要说的话
不是我骗你
什么都可以刷哦

635241

顶~谢谢LZ分享~

哈马斯

@echo off
cls
echo ─╂一 　┃ ─┯
echo ┍┒┎┿┑ ┃ ┍┒↗ ↖口│
echo ┕┚ ╱ ┃＼ 　┃ ┕┚╱ ╲─┼
echo │ 　┛□│
set /p i=请输入刷屏次数:
echo 延迟3秒后开始...
ping -n 3 127.0.1>nul
echo 准备开始发送...
ping -n 2 127.0.1>nul
set a=1
echo Dim WshShell>a.vbs
echo Set WshShell=WScript.CreateObject(\"WScript.Shell\")>>a.vbs
echo WScript.Sleep 200 >>a.vbs
echo WshShell.SendKeys \"^v\">>a.vbs
echo WScript.Sleep 200 >>a.vbs
echo WshShell.SendKeys \"^{ENTER}\" >>a.vbs
:kaishi
echo 当前发送 %a%次...
call a.vbs
if \"%a%\"==\"%i%\" goto wc
set /a a=%a%+1
goto kaishi
:wc
echo 发送完成.按任意键退出...
pause>nul
del a.vbs