
CODE: [Copy to clipboard]效果图:rem Discuz论坛审核提示批处理<纸黄金网专用版>
prompt 程序运行中...
color 2f
mode con: cols=40 lines=10
:find
cls
taskill wcsript
title 正在扫描...
echo 正在描...
set mp3=find
color 2f
nc www.zhihuangjin.com 80 <b.txt|find "编辑"&&set mp3=sounds1&&title 发现主题!
nc www.zhihuangjin.com 80 <c.txt|find "编辑"&&set mp3=sounds2&&title 发现回复!
goto %mp3%
:sounds1
color 72
start mp3.vbs
ping 127.0.0.1>nul
goto find
:sounds2
color 62
start mp3.vbs
ping 127.0.0.1>nul
goto find

CODE: [Copy to clipboard]Set Player = CreateObject("WMPlayer.OCX")
Player.url = "msg.wav"
WScript.Sleep 1200
wscript.Sleep Player.currentMedia.duration *1000
WScript.Quit
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |