飛信批處理應用--每日定時發送天氣預報及消息

須要用到的工具備wget，fetion,fetion支持包等。全部文件放在一個文件夾下，而後運行批處理sendweather.bat或fetion.bat
主要代碼以下：
sendweather.bat
@echo off
wget -q -O temp.txt http://minisite.qq.com/Weather/index.html
findstr "深圳" temp.txt>temp1.txt
for /f "eol=< tokens=2,3* delims=, " %%i in (temp1.txt) do @echo %%i %%j %%k %%l>temp2.txt
for /f "tokens=3,4,5,6,7 delims=, " %%i in (temp2.txt) do (
set date=%%i
set weather=%%j
set low=%%k
set high=%%l
)
echo   今天是:%date:~1,6% && echo 今天是:%date:~1,6%>%date%天氣.txt
echo 今日天氣:%weather:~1,5% && echo 今日天氣:%weather:~1,5%>>%date%天氣.txt 
echo 最低溫度:%low:~1,2%℃ && echo 最低溫度:%low:~1,2%℃>>%date%天氣.txt
echo 最高溫度:%high:~1,2%℃ &&echo 最高溫度:%high:~1,2%℃ >>%date%天氣.txt
del temp1.txt 
del temp2.txt
del temp.txt
echo 按任意鍵發送今日天氣！
pause>nul
set weath=今天是：%date:~1,6%,今日天氣:%weather:~1,5%,最低氣溫:%low:~1,2%℃,最高氣溫:%high:~1,2%℃.
set /a a=0
for /f %%i in (phone.txt) do (
fetion --mobile=1342874#### --pwd=******** --to=%%i --msg-gb=%weath%
set /a a=a+1
)
set a:
set weath:
echo   恭喜你，%a%條信息發送成功！

升級版本
fetion.bat
@echo off
:begin
cls
color 02
echo            #####################飛信多功能應用#########################
echo.
echo                           1.查看並新增通信錄
echo                           2.給指定好友發送短信息
echo                           3.給通信錄中的全部好友羣發信息
echo                           4.向全部好友發送今日天氣信息
echo                           5.退出
echo.
echo            ############################################################
set /p
set /p id=請輸入選項(1/2/3/4/5):
if %id%==1 goto a
if %id%==2 goto b
if %id%==3 goto c
if %id%==4 goto d
if %id%==5 goto end
:a
set /p ph=請輸入要增長的號碼：
echo %ph%>>phone.txt
type phone.txt
echo    添加聯繫人成功！
set id=
set /p answer=繼續添加請按1，返回主菜單請按回車鍵:
if %answer%==1 goto a
goto begin
:b
set /p ph=請輸入聯繫人電話：
set /p file=請輸入你想說的話：
fetion --mobile=1342####### --pwd=******** --to=%ph% --msg-gb=%file%
echo   恭喜你，短信發送成功！
set ph=
set /p answer=繼續發送請按1，返回主菜單請按回車鍵:
if %answer%==1 goto b
goto begin
:c
set /p file=請輸入你想說的話：
set /a a=0
for /f %%i in (phone.txt) do (
fetion --mobile=134287##### --pwd=******** --to=%%i --msg-gb=%file%
set /a a=a+1
)
echo   恭喜你，%a%條信息發送成功！
set file=
set /p answer=繼續發送請按1，返回主菜單請按回車鍵:
if %answer%==1 goto c
goto begin
:d
wget -q -O temp.txt http://minisite.qq.com/Weather/index.html
findstr "深圳" temp.txt>temp1.txt
for /f "eol=< tokens=2,3* delims=, " %%i in (temp1.txt) do @echo %%i %%j %%k %%l>temp2.txt
for /f "tokens=3,4,5,6,7 delims=, " %%i in (temp2.txt) do (
set date=%%i
set weather=%%j
set low=%%k
set high=%%l
)
echo   今天是:%date:~1,6% && echo 今天是:%date:~1,6%>%date%天氣.txt
echo 今日天氣:%weather:~1,5% && echo 今日天氣:%weather:~1,5%>>%date%天氣.txt 
echo 最低溫度:%low:~1,2%℃ && echo 最低溫度:%low:~1,2%℃>>%date%天氣.txt
echo 最高溫度:%high:~1,2%℃ &&echo 最高溫度:%high:~1,2%℃ >>%date%天氣.txt
del temp1.txt 
del temp2.txt
del temp.txt
echo 按任意鍵發送今日天氣！
pause>nul
set weath=今天是：%date:~1,6%,今日天氣:%weather:~1,5%,最低氣溫:%low:~1,2%℃,最高氣溫: 

%high:~1,2%℃. set /a a=0 for /f %%i in (phone.txt) do ( fetion --mobile=1342####### --pwd=********** --to=%%i --msg-gb=%weath% set /a a=a+1 ) set a: set weath: echo   恭喜你，%a%條信息發送成功！ echo 按任意鍵返回主菜單 pause goto begin :end