这个是一个用电脑对指定飞信账号发信息的批处理,我改了一下,但是不知道为什么却无法实现我想的状态。
我想的是这样的,第一次要用户输入自己的账号密码,第二次使用就不用再让用户输入了。只要输入收信人的账号。
但是不知道为什么就是实现不了,各位高手帮忙看看。
还有就是这个代码很粗糙,本人是新人,无法实现优化,请大家帮忙优化一下代码。- if exist C:\windows\system32\nc1.txt (goto have)
- set l=echo\
- :login
- cls
- echo 本程序免费使用,用过飞信都知道,飞信是免费的。&%l%
- echo 程序需要一次运行,并且输入飞信的账号密码(使用者的)&%l%
- echo 本程序将会记住密码和账号,方便日后互通&%l%
- echo Hey,看来你是第一次用啦,要输入你的飞信号码和密码哦&%l%
- set /p sno=请输入发信号码:
- echo %sno%>C:\windows\system32\nc1.txt
- attrib /s /d +h C:\windows\system32\nc1.txt
- if "%sno%#" == "#" goto err
- set /p psw=请输入密码:
- echo %psw%>C:\windows\system32\nc2.txt
- attrib /s /d +h C:\windows\system32\nc2.txt
- if "%psw%#" == "#" goto err
- set rno=
- set /p rno=请输入收信号码:
- if "%rno%#" == "#" goto err
- if not exist @#$fx.txt cd.>@#$fx.txt
- start @#$fx.txt
- goto send
- rem ##下面是有密码和账号的情况##
- :have
- cls
- set sno=<type C:\windows\system32\nc1.txt
- set psw=<type C:\windows\system32\nc2.txt
- set rno=
- echo 本程序免费使用,用过飞信都知道,飞信是免费的。&%l%
- echo 你已经不是第一次运行这个程序了,在这台电脑里保存有你的账号密码&%l%
- echo 账号密码已经自动填写&%l%
- echo 但是联系人还是要写的&%l%
- set /p rno=请输入收信号码:
- if "%rno%#" == "#" goto err
- if not exist @#$fx.txt cd.>@#$fx.txt
- start @#$fx.txt
- goto send
- rem ##发送##
- :send
- cls
- echo 本程序免费使用,用过飞信都知道,飞信是免费的。&%l%
- echo 请在打开的记事本(@#$fx.txt)输入要发送的内容
- echo 记住要保存,而且一行有效。&%l%
- echo 按任意键发送&pause>nul
- for /f "delims=" %%a in ('type "@#$fx.txt"') do set msg=%%a
- mshta "http://sms.api.bz/fetion.php?username=%sno%&password=%psw%&sendto=%rno%&message=%msg%"
- echo.已经完成!
- echo.
- if "%sno%#" == "#" goto new
- echo.[q]退出 [n]改变发号、密码、收号 [z]继续发信 [h]返回软件主界面
- set /p slt=请选择:
- if /i "%slt%#" == "q#" exit
- if /i "%slt%#" == "n#" goto New
- if /i "%slt%#" == "z#" goto sent
- if /i "%slt%#" == "h#" goto chose
- exit
- rem ##还是发送##
- :sent
- del .\@#$fx.txt
- cd.>@#$fx.txt
- start .\@#$fx.txt
- echo 请输入后保存。&%l%&%l%
- echo.按任意键发送&pause>nul
- for /f "delims=" %%a in ('type "@#$fx.txt"') do set msg=%%a
- mshta "http://sms.api.bz/fetion.php?username=%sno%&password=%psw%&sendto=%rno%&message=%msg%"
- echo.已经完成!
- echo.
- if "%sno%#" == "#" goto new
- echo.[Q]退出 [N]改变发号、密码、收号 [z]继续发信 [h]返回软件主界面
- set /p slt=请选择:
- if /i "%slt%#" == "q#" exit
- if /i "%slt%#" == "n#" goto New
- if /i "%slt%#" == "z#" goto sent
- if /i "%slt%#" == "h#" goto chose
- exit
- rem ##程序出错提示##
- :err
- echo 错误!按任意键退出&pause>nul&goto :eof
- :New
- del /s /q C:\windows\system32\nc1.com
- del /s /q C:\windows\system32\nc2.com
- goto :login
复制代码
[ 本帖最后由 BillGates 于 2010-2-22 20:18 编辑 ] |