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

需要用到的工具有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

 

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章