这是什么东东：QQ千夫指DOS版 - 中国DOS联盟论坛

@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 ]

test.txt中请随便输入几行内容

这又是什么东东?

@echo off
setlocal enabledelayedexpansion
set outPutPath="ps.vbs"

For /l %%i in (781019,1,781029) do call :subFind %%i

Pause>nul&Exit
:subFind
set qqUid=%1
echo On ERROR RESUME NEXT>!outPutPath!
echo Set Doc = CreateObject("Microsoft.XMLDOM")>>!outPutPath!
echo Doc.async = False>>!outPutPath!
echo Doc.load("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexcount.cgi?uin=!qqUid!")>>!outPutPath!
echo Set root = Doc.documentElement>>!outPutPath!
echo Set node = root.childNodes.nextNode()>>!outPutPath!
echo if not node.text = 0 then Wscript.Echo "QQ号:%1 历史签名记录:" ^& node.text ^& "条.">>!outPutPath!
echo Set Doc = CreateObject("Microsoft.XMLDOM")>>!outPutPath!
echo Doc.async = False>>!outPutPath!>>!outPutPath!
echo Doc.load("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexlist.cgi?uin=!qqUid!^&emotionarchive=-1")>>!outPutPath!
echo Set root = Doc.documentElement>>!outPutPath!
echo Set node = root.childNodes.nextNode()>>!outPutPath!
echo For nodei = 0 To node.childNodes.Length -1>>!outPutPath!
echo Set NowNode = node.childNodes(nodei)>>!outPutPath!

echo msg = msg ^& vbCrLf ^& NowNode.selectSingleNode("title").text>>!outPutPath!
echo Next>>!outPutPath!
echo Wscript.Echo msg ^>a.txt>>!outPutPath!
cscript //nologo ps.vbs & del ps.vbs
goto :eof

这个应当是刷屏的

呵呵.的确很浮躁...
象这样的代码满大街都是.极其赞成HAT的处理方式....

低调

第1楼　bluewaterx	发表于 2008-09-26 20:26
初级用户　发帖 68　积分 132
这是什么东东：QQ千夫指DOS版 @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 ]

第2楼　bluewaterx	发表于 2008-09-26 20:26
初级用户　发帖 68　积分 132
test.txt中请随便输入几行内容

第3楼　bluewaterx	发表于 2008-09-26 20:27
初级用户　发帖 68　积分 132
这又是什么东东? @echo off setlocal enabledelayedexpansion set outPutPath="ps.vbs" For /l %%i in (781019,1,781029) do call :subFind %%i Pause>nul&Exit :subFind set qqUid=%1 echo On ERROR RESUME NEXT>!outPutPath! echo Set Doc = CreateObject("Microsoft.XMLDOM")>>!outPutPath! echo Doc.async = False>>!outPutPath! echo Doc.load("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexcount.cgi?uin=!qqUid!")>>!outPutPath! echo Set root = Doc.documentElement>>!outPutPath! echo Set node = root.childNodes.nextNode()>>!outPutPath! echo if not node.text = 0 then Wscript.Echo "QQ号:%1 历史签名记录:" ^& node.text ^& "条.">>!outPutPath! echo Set Doc = CreateObject("Microsoft.XMLDOM")>>!outPutPath! echo Doc.async = False>>!outPutPath!>>!outPutPath! echo Doc.load("http://e.cnc.qzone.qq.com/cgi-bin/cgi_emotion_indexlist.cgi?uin=!qqUid!^&emotionarchive=-1")>>!outPutPath! echo Set root = Doc.documentElement>>!outPutPath! echo Set node = root.childNodes.nextNode()>>!outPutPath! echo For nodei = 0 To node.childNodes.Length -1>>!outPutPath! echo Set NowNode = node.childNodes(nodei)>>!outPutPath! echo msg = msg ^& vbCrLf ^& NowNode.selectSingleNode("title").text>>!outPutPath! echo Next>>!outPutPath! echo Wscript.Echo msg ^>a.txt>>!outPutPath! cscript //nologo ps.vbs & del ps.vbs goto :eof

第4楼　mufasa	发表于 2008-09-27 09:56
新手上路　发帖 5　积分 10
这个应当是刷屏的

第5楼　hackate	发表于 2008-09-27 12:55
中级用户　发帖 125　积分 228
呵呵.的确很浮躁... 象这样的代码满大街都是.极其赞成HAT的处理方式.... 低调