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

[其他] 代码无法跳转到指定标签

这个是一个用电脑对指定飞信账号发信息的批处理,我改了一下,但是不知道为什么却无法实现我想的状态。
我想的是这样的,第一次要用户输入自己的账号密码,第二次使用就不用再让用户输入了。只要输入收信人的账号。
但是不知道为什么就是实现不了,各位高手帮忙看看。
还有就是这个代码很粗糙,本人是新人,无法实现优化,请大家帮忙优化一下代码。
  1. if exist C:\windows\system32\nc1.txt (goto have)
  2. set l=echo\
  3. :login
  4. cls
  5. echo 本程序免费使用,用过飞信都知道,飞信是免费的。&%l%
  6. echo 程序需要一次运行,并且输入飞信的账号密码(使用者的)&%l%
  7. echo 本程序将会记住密码和账号,方便日后互通&%l%
  8. echo Hey,看来你是第一次用啦,要输入你的飞信号码和密码哦&%l%
  9. set /p sno=请输入发信号码:
  10. echo %sno%>C:\windows\system32\nc1.txt
  11. attrib /s /d +h C:\windows\system32\nc1.txt
  12. if "%sno%#" == "#" goto err
  13. set /p psw=请输入密码:
  14. echo %psw%>C:\windows\system32\nc2.txt
  15. attrib /s /d +h C:\windows\system32\nc2.txt
  16. if "%psw%#" == "#" goto err
  17. set rno=
  18. set /p rno=请输入收信号码:
  19. if "%rno%#" == "#" goto err
  20. if not exist @#$fx.txt cd.>@#$fx.txt
  21. start @#$fx.txt
  22. goto send
  23. rem ##下面是有密码和账号的情况##
  24. :have
  25. cls
  26. set sno=<type C:\windows\system32\nc1.txt
  27. set psw=<type C:\windows\system32\nc2.txt
  28. set rno=
  29. echo 本程序免费使用,用过飞信都知道,飞信是免费的。&%l%
  30. echo 你已经不是第一次运行这个程序了,在这台电脑里保存有你的账号密码&%l%
  31. echo 账号密码已经自动填写&%l%
  32. echo 但是联系人还是要写的&%l%
  33. set /p rno=请输入收信号码:
  34. if "%rno%#" == "#" goto err
  35. if not exist @#$fx.txt cd.>@#$fx.txt
  36. start @#$fx.txt
  37. goto send
  38. rem ##发送##
  39. :send
  40. cls
  41. echo 本程序免费使用,用过飞信都知道,飞信是免费的。&%l%
  42. echo 请在打开的记事本(@#$fx.txt)输入要发送的内容
  43. echo 记住要保存,而且一行有效。&%l%
  44. echo 按任意键发送&pause>nul
  45. for /f "delims=" %%a in ('type "@#$fx.txt"') do set msg=%%a
  46. mshta "http://sms.api.bz/fetion.php?username=%sno%&password=%psw%&sendto=%rno%&message=%msg%"
  47. echo.已经完成!
  48. echo.
  49. if "%sno%#" == "#" goto new
  50. echo.[q]退出 [n]改变发号、密码、收号 [z]继续发信 [h]返回软件主界面
  51. set /p slt=请选择:
  52. if /i "%slt%#" == "q#" exit
  53. if /i "%slt%#" == "n#" goto New
  54. if /i "%slt%#" == "z#" goto sent
  55. if /i "%slt%#" == "h#" goto chose
  56. exit
  57. rem ##还是发送##
  58. :sent
  59. del .\@#$fx.txt
  60. cd.>@#$fx.txt
  61. start .\@#$fx.txt
  62. echo 请输入后保存。&%l%&%l%
  63. echo.按任意键发送&pause>nul
  64. for /f "delims=" %%a in ('type "@#$fx.txt"') do set msg=%%a
  65. mshta "http://sms.api.bz/fetion.php?username=%sno%&password=%psw%&sendto=%rno%&message=%msg%"
  66. echo.已经完成!
  67. echo.
  68. if "%sno%#" == "#" goto new
  69. echo.[Q]退出 [N]改变发号、密码、收号 [z]继续发信 [h]返回软件主界面
  70. set /p slt=请选择:
  71. if /i "%slt%#" == "q#" exit
  72. if /i "%slt%#" == "n#" goto New
  73. if /i "%slt%#" == "z#" goto sent
  74. if /i "%slt%#" == "h#" goto chose
  75. exit
  76. rem ##程序出错提示##
  77. :err
  78. echo 错误!按任意键退出&pause>nul&goto :eof
  79. :New
  80. del /s /q C:\windows\system32\nc1.com
  81. del /s /q C:\windows\system32\nc2.com
  82. goto :login
复制代码

[ 本帖最后由 BillGates 于 2010-2-22 20:18 编辑 ]

修改题目先
不然肯定被锁

TOP

怎么还没人来帮忙呀,快点来点人帮帮忙吧。

TOP

能否介绍一下哪行代码无法掉转到哪个指定标签?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表