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
复制代码