@echo off & setlocal enabledelayedexpansion
mode con cols=25 lines=5 & title QQ千夫指_DOS版&color f0
set outputPath=%temp%\ps.vbs
if not exist "test.txt" echo\&echo\&echo ======test.txt无内容=====&Pause>nul
for /l %%i in (4,-1,0) do call :subA %%i
cls&echo\&echo\&echo ^>^>^>刷屏开始^<^<^<
for /f "delims=" %%i in (test.txt) do color !random:~0,1!!random:~0,1! &call :subQFZ "%%i" & ping -n 1 127.1>nul & !temp!\ps.vbs
cls&color f0& echo\&echo\&echo ^>^>^>刷屏结束^<^<^<
pause>nul&exit
:subQFZ
echo Set WshShell= WScript.CreateObject("WScript.Shell")>!outputPath!
echo WshShell.AppActivate "" >>!outputPath!
echo set objIE = CreateObject("InternetExplorer.Application")>>!outputPath!
echo objIE.navigate("about:blank")>>!outputPath!
echo objIE.document.parentwindow.clipboardData.SetData "text","%~1">>!outputPath!
echo objIE.Quit>>!outputPath!
echo WScript.Sleep 500>>!outputPath!
echo WshShell.SendKeys "^v">>!outputPath!
echo WshShell.SendKeys "%%s">>!outputPath!
goto :eof
:subA
cls&echo\ & ECHO =====请选中QQ聊天窗口====
ECHO\&echo 刷屏倒计时: %1
Ping -n 2 127.1>nul
goto :eof
───────────────── 版务记录 ─────────────────
执行:HAT
操作:在帖子标题中增加搜索关键字;代码加code标签
说明:原标题"这是什么东东?"不利于论坛搜索
处罚:扣除2个积分
提示:建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读,所有人的基本行为准则
{22703}请不要做浮躁的人
{32667}那些连标题都写不清楚的人们啊,你们醒醒吧
{32825}本版严厉整顿烂帖
───────────────── 版务记录 ─────────────────
Last edited by HAT on 2008-9-26 at 21:15 ]