中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-07 12:10 		共 48,040 主题排行 / 350,125 发帖 / 今日 0 篇 / 48,252 会员排行
DOS批处理 & 脚本技术（批处理室） » 发一个输入字符显示[*]号的批处理
可打印版本 　1,635 / 6
第1楼　yovie 发表于 2008-01-24 10:18
初级用户　发帖 42　积分 92　来自 重庆市巫山县
发一个输入字符显示[*]号的批处理
借鉴了原来Herbert Kleebauer大人的ASCODE那段


  1. @echo off&cls
  2. chcp 437>nul&graftabl 936>nul
  3. for /f "delims=: tokens=1" %%i in ('findstr /i /n "^:writepass$" "%~f0"') do set line=%%i
  4. <"%~f0" more +%line%|debug>nul
  5. set "ps="
  6. set n=0
  7. set /p=请输入密码:<nul
  8. :start
  9. if %n%==256 (
  10. echo  &&goto e
  11. ) else (
  12. for /f "delims=" %%i in ('password.com') do (
  13. if "%%i"=="?" goto e
  14. set "q=%%i"
  15. if "%%i" equ "?" (call :p "%%i") else (
  16. if "%%i" lss "? " (GOTO :start)
  17. set /p=*<nul
  18. set /a n+=1
  19. if "%%i" geq "? " call set "ps=%%ps%%%%q:~1%%"
  20. )))
  21. goto start

  23. :p
  24. if not "%ps%" equ "" (
  25. set "ps=%ps:~0,-1%"
  26. SET /p=  <nul
  27. )
  28. GOTO :eof

  30. :e
  31. :::Here you can do what you wanna do:::
  32. echo.
  33. echo 密码为:"%ps%"
  34. del password.com
  35. pause>nul
  36. goto :eof
  37. ::下面的请不要随意修改::
  38. :writepass
  39. A
  40. MOV DX,111
  41. MOV AH,09
  42. INT 21
  43. MOV AH,01
  44. INT 21
  45. MOV AH,4C
  46. INT 21
  47. INT 20
  48. DB '?'24 0D 0A 1A

  50. R CX
  51. 108
  52. N password.com
  53. W
  54. Q

Yovie发表于： 2008-01-26 12:51


[ Last edited by yovie on 2008-1-28 at 12:11 PM ]
第2楼　yovie 发表于 2008-01-26 14:00
初级用户　发帖 42　积分 92　来自 重庆市巫山县
呵呵。修正了一下,重新发下。
第3楼　plp626 发表于 2008-01-26 14:45
银牌会员　发帖 1,020　积分 2,278
顶,沙发
第4楼　suntb 发表于 2008-01-26 15:40
高级用户　发帖 277　积分 581
将楼主的　代码　保存为CMD后运行，提示：

password.com不是有效的Win32应用程序

拒绝访问
第5楼　HAT 发表于 2008-01-27 01:20
版主　发帖 5,017　积分 9,023
// 无奈何发表于： 2008-01-26 12:51

难道楼主是无奈何版主的马甲^_^
用人家的批处理也要看看使用说明嘛，呵呵。
第6楼　yovie 发表于 2008-01-28 12:13
初级用户　发帖 42　积分 92　来自 重庆市巫山县
呵呵.不好意思,楼上,我是忘了改那个签名了.[离版主,那是差了十万八千里呢!]
另外,4楼保存成 *.bat 试试.
第7楼　Shinaterry 发表于 2008-03-28 15:41
初级用户　发帖 51　积分 97
-_-!!! 为什么我运行不了?
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023