[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 yang871674823 于 2011-7-31 16:20 编辑

纯 属 无 聊 之 作
  1. @echo off&mode con coLs=43 Lines=16
  2. setlocal enabledelayedexpansion
  3. title QQ Number To Chinese V1.0 By YANG
  4. color ad
  5. ::一定要在下面后打入tab符!
  6. set tab=
  7. set a1=在学校里
  8. set a2=在女厕所
  9. set a3=在秦朝
  10. set a4=在赌场
  11. set a5=在监狱
  12. set a6=在天安门官场上
  13. set a7=在小李家
  14. set a8=在高速公路上
  15. set a9=在网吧里
  16. set b0= 自残
  17. set b1=挖地道
  18. set b2=跳楼
  19. set b3=梦游
  20. set b4=洗澡
  21. set b5=发呆
  22. set b6=看海绵宝宝
  23. set b7=剪指甲
  24. set b8=上网
  25. set b9=玩泥巴
  26. set c0=被表扬了
  27. set c1=被判死刑了
  28. set c2=被上帝带走了
  29. set c3=被钱砸了
  30. set c4=被警察击毙了
  31. set c5=被虐死了
  32. set c6=被吓得想尿尿
  33. set c7=被汽车撞飞了
  34. set c8=人妖非礼了
  35. set c9=被洪水冲走了
  36. :begin
  37. echo  ┏━━━━━━━━━━━━━━━━━━┓
  38. echo  ┃      QQ Number To Chinese V1.2     ┃
  39. echo  ┠──────────────────┨
  40. echo  ┃  软件说明:                        ┃
  41. echo  ┃  本程序可以将您的QQ号转换成搞笑的  ┃
  42. echo  ┃  句子。内容来自网络,与作者无关,  ┃
  43. echo  ┃  纯属娱乐,请勿当真!              ┃
  44. echo  ┃                                    ┃
  45. echo  ┃     By:oοゞY.Y.Y.楊        ┃
  46. echo  ┃     QQ:871674823       ┃
  47. echo  ┣━━━━━━━━━━━━━━━━━━┫
  48. echo  ┃                     请按回车键确定 ┃
  49. echo  ┠──────────────────┨
  50. echo  ┃ 转  换  结  果  :                 ┃
  51. echo  ┗━━━━━━━━━━━━━━━━━━┛
  52. ::用了一点小特效
  53. for /l %%a in (1,1,26) do set hui=!hui!
  54. echo %tab%!hui! 2>nul
  55. set /p qq= ┃QQ:
  56. set one=%qq:~0,1%
  57. set two=%qq:~4,1%
  58. set end=%qq:~-1%
  59. set n=0
  60. for %%a in (%a1% %a2% %a3% %a4% %a5% %a6% %a7% %a8% %a9%) do (
  61.   set /a n+=1
  62.   if /i %one%==!n! set out1=%%a
  63. )
  64. set n=0
  65. for %%a in (%b0% %b1% %b2% %b3% %b4% %b5% %b6% %b7% %b8% %b9%) do (
  66.   if /i %two%==!n! set out2=%%a
  67.   set /a n+=1
  68. )
  69. set n=0
  70. for %%a in (%c0% %c1% %c2% %c3% %c4% %c5% %c6% %c7% %c8% %c9%) do (
  71.   if /i %end%==!n! set out3=%%a
  72.   set /a n+=1
  73. )
  74. if "%out1%"=="" set out1=     您 输 入 的 号 码 有 误 !&set out2=&set out3=
  75. if "%out2%"=="" set out2=     您 输 入 的 号 码 有 误 !&set out1=&set out3=
  76. if "%out3%"=="" set out3=     您 输 入 的 号 码 有 误 !&set out1=&set out2=
  77. echo  ┠──────────────────┨
  78. set /p= ┃%out1%%out2%%out3%<nul
  79. (echo.&echo ------------------------------------------------------
  80. echo  您的QQ号:%qq%  %date% %time%
  81. echo ------------------------------------------------------
  82. echo  转换结果: %out1%%out2%%out3%
  83. echo ------------------------------------------------------
  84. echo   By oοゞY.Y.W.楊   QQ:871674823
  85. echo ------------------------------------------------------)>%qq%的转换结果.txt
  86. pause>nul
  87. exit
复制代码

搞这些没有任何实用价值的东西有意思吗?

TOP

都说了是无聊之作

TOP

的确很无聊。不过这种精神还好啦。不过对于网络上铺天盖地的这种测试,实在有些厌倦。

TOP

真的~
很无聊~
不过也好拉~
练练自己的脑袋~
复习一下~

TOP

娱乐搞笑 何必当真

TOP

嗯嗯,挺好玩,看见很无聊。

TOP

复制下来看看好玩不 呵呵~

TOP

主要不是为了实现什么功能,而是熟悉代码,要是现实什么功能的话,都玩C去了,批处理能做到什么程度嘛。。。

TOP

给你改了改

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

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

set a1=在学校里
set a2=t a3=在秦朝
set a4=在赌场
set a5=在监狱
set a6=在2013年
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=被@%random%%10000000砸了%%%
set c4=被**鸡毙了%%%
set c5=被*****死了%%%%
set c6=被下得想鸟鸟%%%
set c7=被汽车撞飞了%%%
set c8=人妖*****礼了%%%
set c9=被洪水冲走了%%%
:begin
cls
echo.
echo.
echo  ┏━━━━━━━━━━━━━━━━━━┓
echo  ┃      QQ Number To Chinese V1.2     ┃
echo  ┠──────────────────┨
echo  ┃  软件说明:                        ┃
echo  ┃  本程序可以将您的QQ号转换成搞笑的  ┃
echo  ┃  句子。内容来自网络,与作者无关,  ┃
echo  ┃  纯属娱乐,请勿当真!              ┃
echo  ┃                                    ┃
echo  ┃     By:oοゞY.Y.Y.楊        ┃
echo  ┃     QQ:871674823       ┃
echo  ┣━━━━━━━━━━━━━━━━━━┫
echo  ┃                     请按回车键确定 ┃
echo  ┠──────────────────┨
echo  ┃ 转  换  结  果  :                 ┃
echo  ┗━━━━━━━━━━━━━━━━━━┛

::用了一点小特效
for /l %%a in (1,1,26) do set hui=!hui!
echo %tab%!hui! 2>nul
set /p qq= ┃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
goto begin在???厕所
se

TOP

返回列表