[游戏娱乐] 测测你的QQ号变成汉语后会是什么？

@echo off&mode con coLs=43 Lines=16
setlocal enabledelayedexpansion
title QQ Number To Chinese V1.0 By YANG
color ad

::一定要在下面后打入tab符！
set tab=

set a1=在学校里
set a2=在女厕所
set a3=在秦朝
set a4=在赌场
set a5=在监狱
set a6=在天安门官场上
set a7=在小李家
set a8=在高速公路上
set a9=在网吧里

set b0= 自残
set b1=挖地道
set b2=跳楼
set b3=梦游
set b4=洗澡
set b5=发呆
set b6=看海绵宝宝
set b7=剪指甲
set b8=上网
set b9=玩泥巴

set c0=被表扬了
set c1=被判死刑了
set c2=被上帝带走了
set c3=被钱砸了
set c4=被警察击毙了
set c5=被虐死了
set c6=被吓得想尿尿
set c7=被汽车撞飞了
set c8=人妖非礼了
set c9=被洪水冲走了
:begin
echo  ┏━━━━━━━━━━━━━━━━━━┓
echo  ┃      QQ Number To Chinese V1.2     ┃
echo  ┠──────────────────┨
echo  ┃  软件说明：                        ┃
echo  ┃  本程序可以将您的QQ号转换成搞笑的  ┃
echo  ┃  句子。内容来自网络，与作者无关，  ┃
echo  ┃  纯属娱乐，请勿当真！              ┃
echo  ┃                                    ┃
echo  ┃     Ｂｙ：ｏοゞＹ.Ｙ.Ｙ.楊        ┃
echo  ┃     ＱＱ：８７１６７４８２３       ┃
echo  ┣━━━━━━━━━━━━━━━━━━┫
echo  ┃                     请按回车键确定 ┃
echo  ┠──────────────────┨
echo  ┃ 转  换  结  果  ：                 ┃
echo  ┗━━━━━━━━━━━━━━━━━━┛

::用了一点小特效
for /l %%a in (1,1,26) do set hui=!hui!
echo %tab%!hui! 2>nul
set /p qq= ┃ＱＱ：
set one=%qq:~0,1%
set two=%qq:~4,1%
set end=%qq:~-1%
set n=0
for %%a in (%a1% %a2% %a3% %a4% %a5% %a6% %a7% %a8% %a9%) do (
  set /a n+=1
  if /i %one%==!n! set out1=%%a
)
set n=0
for %%a in (%b0% %b1% %b2% %b3% %b4% %b5% %b6% %b7% %b8% %b9%) do (
  if /i %two%==!n! set out2=%%a
  set /a n+=1
)
set n=0
for %%a in (%c0% %c1% %c2% %c3% %c4% %c5% %c6% %c7% %c8% %c9%) do (
  if /i %end%==!n! set out3=%%a
  set /a n+=1
)
if "%out1%"=="" set out1=     您 输 入 的 号 码 有 误 ！&set out2=&set out3=
if "%out2%"=="" set out2=     您 输 入 的 号 码 有 误 ！&set out1=&set out3=
if "%out3%"=="" set out3=     您 输 入 的 号 码 有 误 ！&set out1=&set out2=
echo  ┠──────────────────┨
set /p= ┃%out1%%out2%%out3%<nul
(echo.&echo ------------------------------------------------------
echo  您的QQ号：%qq%  %date% %time%
echo ------------------------------------------------------
echo  转换结果： %out1%%out2%%out3%
echo ------------------------------------------------------
echo   By oοゞY.Y.W.楊   QQ:871674823
echo ------------------------------------------------------)>%qq%的转换结果.txt
pause>nul
exit
复制代码