批处理之家 - Powered by Discuz! Board

@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

复制代码