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

Rank: 5Rank: 5

帖子
566 
积分
707 
技术
12  
捐助
0  
注册时间
2011-6-27 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-8-28 18:41 | 只看该作者

[其他] [分享]读心术批处理版（不一样的哦！）

本帖最后由 garyng 于 2011-8-29 19:29 编辑

看了读心术P处理版
发现到：批处理也可以这样！
所以在我有限的批处理和数学的知识下，
写了这程序
不一样的哦！

------------------------------------------------------------------------------------------------
  1. @echo off

  2. ::因为看了http://bbs.bathome.net/viewthread.php?tid=2140&highlight=%B6%C1%D0%C4%CA%F5

  3. ::一时激动写了这程序～

  4. ::跟别的不一样哦～

  5. ::原理想想看吧！

  6. :main

  7. color 0C

  8. setlocal enabledelayedexpansion

  9. mode con: cols=100 lines=50

  10. echo                              ┌───────────────┐

  11. echo                              │      读心术批处理版          │

  12. echo                              │    GaryNg呕心沥血制作        │

  13. echo                              └───────────────┘

  14. echo 请想一个小于128的数（不包括128）

  15. set 退格键= 

  16. for /l %%a in (3 -1 1) do (set /p =!退格键!%%a秒的时间... <nul&ping -n 2 127.1 >nul)

  17. cls&set num=

  18. ::1+2

  19. :loop

  20. for /l %%a in (1 2 127) do (

  21. set /p=%%a	<nul

  22. )  

  23. echo/

  24. echo/

  25. echo 请问这里有你想的数吗？ 

  26. set /p y=【有=y，没有=n】

  27. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop

  28. if /i "!y!"=="y" (set /a num=1) else (set /a num=0)

  29. ::2+3

  30. cls

  31. set a=2

  32. set b=3

  33. :loop1

  34. for /l %%b in (!a! 1 !b!) do (

  35. set /p=%%b	<nul

  36. set /a a=a+2

  37. set /a b=b+2

  38. )

  39. if !b! lss 128 goto loop1

  40. echo/

  41. echo/

  42. echo 请问这里有你想的数吗？ 

  43. set /p y=【有=y，没有=n】

  44. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop1

  45. if /i "!y!"=="y" (set /a num=num+2) else (set /a num=num+0)

  46. cls

  47. ::4+5

  48. set c=4

  49. set d=7

  50. :loop2

  51. for /l %%c in (!c! 1 !d!) do (

  52. set /p=%%c	<nul

  53. set /a c=c+2

  54. set /a d=d+2

  55. )

  56. if !d! lss 128 goto loop2

  57. echo/

  58. echo/

  59. echo 请问这里有你想的数吗？ 

  60. set /p y=【有=y，没有=n】

  61. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop2

  62. if /i "!y!"=="y" (set /a num=num+4) else (set /a num=num+0)

  63. cls

  64. ::8+9

  65. set e=8

  66. set f=15

  67. :loop3

  68. for /l %%d in (!e! 1 !f!) do (

  69. set /p=%%d	<nul

  70. set /a e=e+2

  71. set /a f=f+2

  72. )

  73. if !f! lss 128 goto loop3

  74. echo/

  75. echo/

  76. echo 请问这里有你想的数吗？ 

  77. set /p y=【有=y，没有=n】

  78. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop3

  79. if /i "!y!"=="y" (set /a num=num+8) else (set /a num=num+0)

  80. cls

  81. ::16+17

  82. set g=16

  83. set h=31

  84. :loop4

  85. for /l %%e in (!g! 1 !h!) do (

  86. set /p=%%e	<nul

  87. set /a g=g+2

  88. set /a h=h+2

  89. )

  90. if !g! lss 128 goto loop4

  91. echo/

  92. echo/

  93. echo 请问这里有你想的数吗？ 

  94. set /p y=【有=y，没有=n】

  95. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop4

  96. if /i "!y!"=="y" (set /a num=num+16) else (set /a num=num+0)

  97. cls

  98. ::32+33

  99. set i=32

  100. set j=63

  101. :loop5

  102. for /l %%f in (!i! 1 !j!) do (

  103. set /p=%%f	<nul

  104. set /a i=i+2

  105. set /a j=j+2

  106. )

  107. if !j! lss 128 goto loop5

  108. echo/

  109. echo/

  110. echo 请问这里有你想的数吗？ 

  111. set /p y=【有=y，没有=n】

  112. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop5

  113. if /i "!y!"=="y" (set /a num=num+32) else (set /a num=num+0)

  114. cls

  115. ::64+65

  116. set k=64

  117. set l=127

  118. :loop6

  119. for /l %%g in (!k! 1 !l!) do (

  120. set /p=%%g	<nul

  121. set /a k=k+2

  122. set /a l=l+2

  123. )

  124. if !l! lss 128 goto loop6

  125. echo/

  126. echo/

  127. echo 请问这里有你想的数吗？ 

  128. set /p y=【有=y，没有=n】

  129. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop6

  130. if /i "!y!"=="y" (set /a num=num+64) else (set /a num=num+0)

  131. cls

  132. :last

  133. echo 电脑透过复杂的计算后

  134. echo 得出你脑里想的那个数

  135. echo 那个数是：

  136. echo                 ┌──────────┐

  137. echo                             !num!

  138. echo                 └──────────┘

  139. echo 按任意键继续...

  140. pause>nul

  141. cls

  142. echo 厉害吧？原理自己想想吧！

  143. echo 提示：二进制

  144. echo 按任意键重来...

  145. pause>nul

  146. goto main
复制代码
为什么能猜出想的数字呢？
原理是： 赫赫，不告诉你，想想吧！
提示：二进制
动动脑想想吧！
2

评分人数

    • qc5111: 还行，谢谢分享，打开了新的思路技术 + 1
    • raymai97: 好强，真的不一样…… 佩服技术 + 1
收藏 分享
http://garyngzhongbo.blogspot.com

garyng

Rank: 5Rank: 5

帖子
566 
积分
707 
技术
12  
捐助
0  
注册时间
2011-6-27 
2楼
发表于 2011-8-28 18:54 | 只看该作者
本帖最后由 garyng 于 2011-8-29 19:30 编辑

不止怎么的，楼上那个改不了：
重发：
注意：请把{tab}换成真实的TAB键
  1. [size=4]看了[url=http://bbs.bathome.net/viewthread.php?tid=2140&highlight=%B6%C1%D0%C4%CA%F5]读心术P处理版[/url]

  2. 发现到：批处理也可以这样！

  3. 所以在我有限的批处理和数学的知识下，

  4. 写了这程序

  5. 不一样的哦！

  6. [color=Red][size=5]注意：请把{tab}换成真实的TAB键[/size][/color][/size]

  7. 

  8. ------------------------------------------------------------------------------------------------[code]@echo off

  9. ::因为看了http://bbs.bathome.net/viewthread.php?tid=2140&highlight=%B6%C1%D0%C4%CA%F5

  10. ::一时激动写了这程序～

  11. ::跟别的不一样哦～

  12. ::原理想想看吧！

  13. :main

  14. color 0C

  15. setlocal enabledelayedexpansion

  16. mode con: cols=100 lines=50

  17. echo                              ┌───────────────┐

  18. echo                              │      读心术批处理版          │

  19. echo                              │    GaryNg呕心沥血制作        │

  20. echo                              └───────────────┘

  21. echo 请想一个小于128的数（不包括128）

  22. set 退格键= 

  23. for /l %%a in (3 -1 1) do (set /p =!退格键!%%a秒的时间... <nul&ping -n 2 127.1 >nul)

  24. cls&set num=

  25. ::1+2

  26. :loop

  27. for /l %%a in (1 2 127) do (

  28. set /p=%%a	<nul

  29. )  

  30. echo/

  31. echo/

  32. echo 请问这里有你想的数吗？ 

  33. set /p y=【有=y，没有=n】

  34. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop

  35. if /i "!y!"=="y" (set /a num=1) else (set /a num=0)

  36. ::2+3

  37. cls

  38. set a=2

  39. set b=3

  40. :loop1

  41. for /l %%b in (!a! 1 !b!) do (

  42. set /p=%%b	<nul

  43. set /a a=a+2

  44. set /a b=b+2

  45. )

  46. if !b! lss 128 goto loop1

  47. echo/

  48. echo/

  49. echo 请问这里有你想的数吗？ 

  50. set /p y=【有=y，没有=n】

  51. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop1

  52. if /i "!y!"=="y" (set /a num=num+2) else (set /a num=num+0)

  53. cls

  54. ::4+5

  55. set c=4

  56. set d=7

  57. :loop2

  58. for /l %%c in (!c! 1 !d!) do (

  59. set /p=%%c	<nul

  60. set /a c=c+2

  61. set /a d=d+2

  62. )

  63. if !d! lss 128 goto loop2

  64. echo/

  65. echo/

  66. echo 请问这里有你想的数吗？ 

  67. set /p y=【有=y，没有=n】

  68. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop2

  69. if /i "!y!"=="y" (set /a num=num+4) else (set /a num=num+0)

  70. cls

  71. ::8+9

  72. set e=8

  73. set f=15

  74. :loop3

  75. for /l %%d in (!e! 1 !f!) do (

  76. set /p=%%d	<nul

  77. set /a e=e+2

  78. set /a f=f+2

  79. )

  80. if !f! lss 128 goto loop3

  81. echo/

  82. echo/

  83. echo 请问这里有你想的数吗？ 

  84. set /p y=【有=y，没有=n】

  85. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop3

  86. if /i "!y!"=="y" (set /a num=num+8) else (set /a num=num+0)

  87. cls

  88. ::16+17

  89. set g=16

  90. set h=31

  91. :loop4

  92. for /l %%e in (!g! 1 !h!) do (

  93. set /p=%%e	<nul

  94. set /a g=g+2

  95. set /a h=h+2

  96. )

  97. if !g! lss 128 goto loop4

  98. echo/

  99. echo/

  100. echo 请问这里有你想的数吗？ 

  101. set /p y=【有=y，没有=n】

  102. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop4

  103. if /i "!y!"=="y" (set /a num=num+16) else (set /a num=num+0)

  104. cls

  105. ::32+33

  106. set i=32

  107. set j=63

  108. :loop5

  109. for /l %%f in (!i! 1 !j!) do (

  110. set /p=%%f	<nul

  111. set /a i=i+2

  112. set /a j=j+2

  113. )

  114. if !j! lss 128 goto loop5

  115. echo/

  116. echo/

  117. echo 请问这里有你想的数吗？ 

  118. set /p y=【有=y，没有=n】

  119. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop5

  120. if /i "!y!"=="y" (set /a num=num+32) else (set /a num=num+0)

  121. cls

  122. ::64+65

  123. set k=64

  124. set l=127

  125. :loop6

  126. for /l %%g in (!k! 1 !l!) do (

  127. set /p=%%g	<nul

  128. set /a k=k+2

  129. set /a l=l+2

  130. )

  131. if !l! lss 128 goto loop6

  132. echo/

  133. echo/

  134. echo 请问这里有你想的数吗？ 

  135. set /p y=【有=y，没有=n】

  136. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop6

  137. if /i "!y!"=="y" (set /a num=num+64) else (set /a num=num+0)

  138. cls

  139. :last

  140. echo 电脑透过复杂的计算后

  141. echo 得出你脑里想的那个数

  142. echo 那个数是：

  143. echo                 ┌──────────┐

  144. echo                             !num!

  145. echo                 └──────────┘

  146. echo 按任意键继续...

  147. pause>nul

  148. cls

  149. echo 厉害吧？原理自己想想吧！

  150. echo 提示：二进制

  151. echo 按任意键重来...

  152. pause>nul

  153. goto main
复制代码
为什么能猜出想的数字呢？
原理是： 赫赫，不告诉你，想想吧！
提示：二进制
动动脑想想吧！[/code]
http://garyngzhongbo.blogspot.com

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14795 
积分
45971 
技术
847  
捐助
745  
注册时间
2008-6-9 
3楼
发表于 2011-8-28 18:57 | 只看该作者
回复 2# garyng


论坛程序会自动把tab改成空格
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

garyng

Rank: 5Rank: 5

帖子
566 
积分
707 
技术
12  
捐助
0  
注册时间
2011-6-27 
4楼
发表于 2011-8-28 19:03 | 只看该作者
回复 3# Batcher


    为什么会这样呢？发代码很麻烦勒~
http://garyngzhongbo.blogspot.com

TOP

raymai97

Rank: 5Rank: 5

帖子
268 
积分
872 
技术
19  
捐助
0  
注册时间
2010-5-30 
5楼
发表于 2011-8-28 19:15 | 只看该作者
这个…… 真的太强了，试了2次，真的猜中我心中的数！( ⊙ o ⊙ )！可以去做读心大师了！
为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

TOP

raymai97

Rank: 5Rank: 5

帖子
268 
积分
872 
技术
19  
捐助
0  
注册时间
2010-5-30 
6楼
发表于 2011-8-28 19:18 | 只看该作者
刚发现，你的批处理程序放错部分做得不好，我乱乱输入东西都照样接受
为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14795 
积分
45971 
技术
847  
捐助
745  
注册时间
2008-6-9 
7楼
发表于 2011-8-28 19:39 | 只看该作者
回复 4# garyng


DZ论坛就是这个德行
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

garyng

Rank: 5Rank: 5

帖子
566 
积分
707 
技术
12  
捐助
0  
注册时间
2011-6-27 
8楼
发表于 2011-8-28 19:42 | 只看该作者
回复 6# raymai97


    好的~谢谢测试~改改~
http://garyngzhongbo.blogspot.com

TOP

CUer

Rank: 5Rank: 5

帖子
522 
积分
1037 
技术
61  
捐助
0  
注册时间
2010-4-30 
9楼
发表于 2011-8-28 19:47 | 只看该作者
回复 5# raymai97


甭大惊小怪的，数学计算而已。骗骗小盆友

TOP

qc5111

Rank: 2

帖子
79 
积分
100 
技术
2  
捐助
0  
注册时间
2011-8-20 
10楼
发表于 2011-8-29 03:24 | 只看该作者
回复 6# raymai97


这只是用了二进制的特点，其实就是7位的二进制数，最后生成出来的。如128的二进制就是10000000,127就是1111111，所以是128以内啊，超级简单的代码啊，木有技术含量，就是把二进制转成10进制，只是他有一个随机生成而已，你别大惊小怪了。

TOP

garyng

Rank: 5Rank: 5

帖子
566 
积分
707 
技术
12  
捐助
0  
注册时间
2011-6-27 
11楼
发表于 2011-8-29 12:02 | 只看该作者
本帖最后由 garyng 于 2011-8-29 19:30 编辑

回复 6# raymai97


    重写了～可以了～
一样的把{tab}改为真实的TAB键
————————————————————————————————————————
  1. @echo off

  2. ::因为看了http://bbs.bathome.net/viewthread.php?tid=2140&highlight=%B6%C1%D0%C4%CA%F5

  3. ::一时激动写了这程序～

  4. ::跟别的不一样哦～

  5. ::原理想想看吧！

  6. :main

  7. color 0C

  8. setlocal enabledelayedexpansion

  9. mode con: cols=100 lines=50

  10. echo                              ┌───────────────┐

  11. echo                              │      读心术批处理版          │

  12. echo                              │    GaryNg呕心沥血制作        │

  13. echo                              └───────────────┘

  14. echo 请想一个小于128的数（不包括128）

  15. set 退格键= 

  16. for /l %%a in (3 -1 1) do (set /p =!退格键!%%a秒的时间... <nul&ping -n 2 127.1 >nul)

  17. cls&set num=

  18. ::1+2

  19. :loop

  20. for /l %%a in (1 2 127) do (

  21. set /p=%%a	<nul

  22. )  

  23. echo/

  24. echo/

  25. echo 请问这里有你想的数吗？ 

  26. set /p y=【有=y，没有=n】

  27. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop

  28. if /i "!y!"=="y" (set /a num=1) else (set /a num=0)

  29. ::2+3

  30. cls

  31. set a=2

  32. set b=3

  33. :loop1

  34. for /l %%b in (!a! 1 !b!) do (

  35. set /p=%%b	<nul

  36. set /a a=a+2

  37. set /a b=b+2

  38. )

  39. if !b! lss 128 goto loop1

  40. echo/

  41. echo/

  42. echo 请问这里有你想的数吗？ 

  43. set /p y=【有=y，没有=n】

  44. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop1

  45. if /i "!y!"=="y" (set /a num=num+2) else (set /a num=num+0)

  46. cls

  47. ::4+5

  48. set c=4

  49. set d=7

  50. :loop2

  51. for /l %%c in (!c! 1 !d!) do (

  52. set /p=%%c	<nul

  53. set /a c=c+2

  54. set /a d=d+2

  55. )

  56. if !d! lss 128 goto loop2

  57. echo/

  58. echo/

  59. echo 请问这里有你想的数吗？ 

  60. set /p y=【有=y，没有=n】

  61. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop2

  62. if /i "!y!"=="y" (set /a num=num+4) else (set /a num=num+0)

  63. cls

  64. ::8+9

  65. set e=8

  66. set f=15

  67. :loop3

  68. for /l %%d in (!e! 1 !f!) do (

  69. set /p=%%d	<nul

  70. set /a e=e+2

  71. set /a f=f+2

  72. )

  73. if !f! lss 128 goto loop3

  74. echo/

  75. echo/

  76. echo 请问这里有你想的数吗？ 

  77. set /p y=【有=y，没有=n】

  78. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop3

  79. if /i "!y!"=="y" (set /a num=num+8) else (set /a num=num+0)

  80. cls

  81. ::16+17

  82. set g=16

  83. set h=31

  84. :loop4

  85. for /l %%e in (!g! 1 !h!) do (

  86. set /p=%%e	<nul

  87. set /a g=g+2

  88. set /a h=h+2

  89. )

  90. if !g! lss 128 goto loop4

  91. echo/

  92. echo/

  93. echo 请问这里有你想的数吗？ 

  94. set /p y=【有=y，没有=n】

  95. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop4

  96. if /i "!y!"=="y" (set /a num=num+16) else (set /a num=num+0)

  97. cls

  98. ::32+33

  99. set i=32

  100. set j=63

  101. :loop5

  102. for /l %%f in (!i! 1 !j!) do (

  103. set /p=%%f	<nul

  104. set /a i=i+2

  105. set /a j=j+2

  106. )

  107. if !j! lss 128 goto loop5

  108. echo/

  109. echo/

  110. echo 请问这里有你想的数吗？ 

  111. set /p y=【有=y，没有=n】

  112. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop5

  113. if /i "!y!"=="y" (set /a num=num+32) else (set /a num=num+0)

  114. cls

  115. ::64+65

  116. set k=64

  117. set l=127

  118. :loop6

  119. for /l %%g in (!k! 1 !l!) do (

  120. set /p=%%g	<nul

  121. set /a k=k+2

  122. set /a l=l+2

  123. )

  124. if !l! lss 128 goto loop6

  125. echo/

  126. echo/

  127. echo 请问这里有你想的数吗？ 

  128. set /p y=【有=y，没有=n】

  129. for /f "delims=yn" %%i in ('echo !y!') do cls&goto loop6

  130. if /i "!y!"=="y" (set /a num=num+64) else (set /a num=num+0)

  131. cls

  132. :last

  133. echo 电脑透过复杂的计算后

  134. echo 得出你脑里想的那个数

  135. echo 那个数是：

  136. echo                 ┌──────────┐

  137. echo                             !num!

  138. echo                 └──────────┘

  139. echo 按任意键继续...

  140. pause>nul

  141. cls

  142. echo 厉害吧？原理自己想想吧！

  143. echo 提示：二进制

  144. echo 按任意键重来...

  145. pause>nul

  146. goto main
复制代码
http://garyngzhongbo.blogspot.com

TOP

返回列表