[其他] [分享]飞信的批处理版

changzhi

@echo off
title 现在时间是%date%%time%版权归非常批处理和boy所有 版本 0.4
cls
echo -------------------------------------------------------------------------------
echo                            中国移动短信发送端
echo                         发送对象必须为你的飞信好友
echo                          您的电脑必须处于联网状态             
echo -------------------------------------------------------------------------------
echo 程序正在载入中…………………… 
goto bj
ping -n 3 www.baidu.com >nul&&goto bj||goto bjj
:bj
echo 程序载入成功，按任意键继续
pause > nul
:hm
cls
set /p name=请输入你的手机号码：
set nam1=%name:~ 0,1%
if %nam1% equ 1 goto mm else
   (
echo 请输入正确的手机号码&goto hm
)
:mm 
set /p pass=请输入你的飞信密码：
:js
set /p st=请输入接受短信的手机号码：
set st1=%st:~0,1%
if %st1% equ 1 goto xx else
  ( 
echo 请确认你的输入无误，&goto js
)
:xx
set /p mes=请输入你的短信内容:
echo 请核对你填写的信息
echo -------------------------------------------------------------------------------
echo 您的手机号码为   %name%
echo 你的飞信密码为   %pass%
echo 接收短信密码为   %st%
echo 短信内容为       %mes%
echo ------------------------------------------------------------------------------- 
set/p qr=请输入是发送还是信息重填写（y键发送，任意键返回重新填写信息）
if /i %qr%==y goto b else 
(
goto hm
)
:b
mshta vbscript:createobject("wscript.shell").run("IEXPLORE.EXE http://sms.api.bz/fetion.php?username=%name%&password=%pass%&sendto=%st%&message=%mes%",0)
ping www.baidu.com -n 4 >nul
echo 短息发送成功，任意键继续发送，e键退出。
set /p ch=请输入你的选择：
if /i %ch% == e goto exit else 
(
goto hm
)
:exit
exit
:bjj
echo 你的网络不通你无法使用该程序,按任意键退出程序。
pause >nul
exit
复制代码

[ 本帖最后由 changzhi 于 2010-5-7 17:30 编辑 ]

sunsea

这个？可以试一下,yinggai bucuo de

x9tiancmd

原来不下飞信也能发短信呀, 就去弄个玩玩去.╮(￣﹏￣)╭

[ 本帖最后由 x9tiancmd 于 2010-4-10 23:20 编辑 ]

GNU

受不了这些人，几行代码的事情，非得搞个“版权”出来恶心人？
http://bbs.bathome.net/thread-6820-1-1.html

lxzzr

不知道LZ的贴子是从哪里转来的,如是转载还望注明出处....

wukaka

强…………………………………

523066680

搞不好是他本人过来转的帖子

qq497734601

终于找到原创了！呵呵！