强制与他人qq聊天

author:pengfei@www.cn-dos.net
@echo off&setlocal enabledelayedexpansion
mode con cols=71 lines=9
for /l %%a in (1,1,8) do (
echo/
echo\
echo.
echo **********************************************************************
echo *************************强制与他人QQ聊天*****************************
echo **********************************************************************
echo                 程序正在加载，请稍微等几十秒
color cf
ping -n 1 127.1>nul
color fc
color f1
ping -n 1 127.1>nul
cls
)
cls
:send
color 0A
echo 今天是%date%, 现在是北京时间:%time%
title 强制与他人QQ聊天
echo.
echo welcom to qq 6615921
echo.
echo  徐老师资源 ,微信 /qq 6615921 
echo.
echo.
:send 
Set /p num=请输入你想要强制聊天的QQ号:
if /i "%num%"=="n" Exit 
start tencent://Message/?Uin=%num% 
cls 
Goto send