CODE: [Copy to clipboard]
@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 │ 1.返回 │
echo │ 2.继续 │
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 │ 1.返回 2.退出 │
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 │ 1.返回 │
echo │ 2.退出 │
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 │ 1.返回 │
echo │ 2.退出 │
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 │ 1.返回 │
echo │ 2.继续 │
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 │ 1.返回 │
echo │ 2.退出 │
echo └──────┘
set /p what4=
if "%what4%"=="1" cls&goto start
if "%what4%"=="2" exit
cls
goto start
:qqnews
cls
echo ┌───────┐
echo │ 1.新闻 │
echo │ 2.返回 │
echo │ 3.退出 │
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 │ 1.返回 │
echo │ 2.退出 │
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小帮手专用 │
└────────────┘
┌──────────────────┐
│ 1.强行与某人聊天 │
│ 2.查看某人的QQ秀 │
│ 3.进入某人QQ空间 │
│ 4.查看某人QQ相册 │
│ 5.查看当日QQ新闻 │
└──────────────────┘