中国DOS联盟

@echo off& setlocal enabledelayedexpansion
set name=%~0& call :view
:start
set /p start=
if "%start%"=="1" goto liaotian
if "%start%"=="2" goto qqxiu
if "%start%"=="3" goto qzone
if "%start%"=="4" goto qqp
if "%start%"=="5" goto qqnews
cls
goto start
:liaotian
cls
set /p num1=输入要聊天的QQ号码:
echo.
echo.
echo               ┌───────────────────┐
echo                       你要聊天的QQ号码是:%num1%   
echo               └───────────────────┘
echo.
echo.
echo                            ┌──────┐
echo                            │  １.返回   │
echo                            │  ２.继续   │
echo                            └──────┘
set /p no=
if "%no%"=="1" (cls&goto liaotian) else goto liaotian1
:liaotian1
start tencent://message/?uin=%num1%
cls
echo      ┌──────────────────────────────────┐
echo      │                                                                    │
echo      │              如没有正常运行QQ,本程序已自动运行一QQ程序!            │
echo      │                                                                    │
echo      │               如已经正常运行QQ程序,是否继续运行本工具!             │
echo      │                                                                    │
echo      │                       １.返回    ２.退出                           │
echo      │                                                                    │
echo      └──────────────────────────────────┘
set /p what=
if "%what%"=="1" cls&goto start
if "%what%"=="2" exit
cls
goto start
:qqxiu
cls
set /p num2=输入要查看的QQ秀号码:
echo.
echo.
if "%num2%"=="" (goto qqxiu) else start %systemdrive%\progra~1\intern~1\IEXPLORE.EXE "http://qqshow-user.tencent.com/%num2%/10/00/"
cls
echo                            ┌──────┐
echo                            │  １.返回   │
echo                            │  ２.退出   │
echo                            └──────┘
set /p what1=
if "%what1%"=="1" cls&goto start
if "%what1%"=="2" exit
cls
goto start
:qzone
cls
set /p num3=输入要进入的QQ空间号码:
echo.
echo.
if "%num3%"=="" (goto qzone) else start %systemdrive%\progra~1\intern~1\IEXPLORE.EXE "http://%num3%.qzone.qq.com/"
cls
echo                            ┌──────┐
echo                            │  １.返回   │
echo                            │  ２.退出   │
echo                            └──────┘
set /p what2=
if "%what2%"=="1" cls&goto start
if "%what2%"=="2" exit
cls
goto start
:qqp
cls
set /p qqp=输入要查看的QQ相册号码:
echo.
echo.
echo               ┌───────────────────┐
echo                    你要查看相册的QQ号码是:%qqp%   
echo               └───────────────────┘
echo.
echo.
echo                            ┌──────┐
echo                            │  １.返回   │
echo                            │  ２.继续   │
echo                            └──────┘
set /p no1=
if "%no1%"=="1" (cls&goto qqp) else goto qqp1
:qqp1
start %systemdrive%\progra~1\intern~1\IEXPLORE.EXE "http://photo.qq.com/portal/albumMain.shtml?%23uin=%qqp%#uin=%qqp%"
cls
echo                            ┌──────┐
echo                            │  １.返回   │
echo                            │  ２.退出   │
echo                            └──────┘
set /p what4=
if "%what4%"=="1" cls&goto start
if "%what4%"=="2" exit
cls
goto start
:qqnews
cls
echo                            ┌───────┐
echo                            │  　１.新闻 　│
echo                            │  　２.返回 　│
echo                            │  　３.退出 　│
echo                            └───────┘
set /p numnews=请选择:
if "%numnews%"=="1" start %systemdrive%\progra~1\intern~1\IEXPLORE.EXE "http://minisite.qq.com/all/allinone.shtml"
if "%numnews%"=="2" cls & goto start
if "%numnews%"=="3" exit
if "%numnews%"=="" goto qqnews
cls
echo                            ┌──────┐
echo                            │  １.返回   │
echo                            │  ２.退出   │
echo                            └──────┘
set /p what3=
if "%what3%"=="1" cls&goto start
if "%what3%"=="2" exit
cls
goto start




:view
mode con cols=65 lines=25& title %time%
for %%1 in (0a 0e 0b 0b 0a 0c 0f 0b 0f 07 0c 0a 0e 0d)do (set /a snow+=1
set moon!snow!=%%1)
for /f "usebackq skip=138 delims=" %%1 in ("%name%")do (set /a wind+=1
set /a wind=wind%% 14+1
echo  >"%%~1"& call findstr /a:%%moon!wind!%% .* "%%~1"*& del="%%~1"& echo=)
pause>nul& goto start
                    ┌────────────┐
                    │   幽幽QQ小帮手专用     │
                    └────────────┘
              ┌──────────────────┐
              │          １.强行与某人聊天         │
              │          ２.查看某人的QQ秀         │
              │          ３.进入某人QQ空间         │
              │          ４.查看某人QQ相册         │
              │          ５.查看当日QQ新闻         │
              └──────────────────┘