使用第三方软件打造魅族M8专用语音天气预报.doc

Forpersonaluseonlyinstudyandresearch;mercialuse使用“MortScript”和“讯飞语音电子书”打造魅族M8专用语音天气预报说明:如有不清楚的魅友,可跟贴提问,我会尽力解答所有问题。同时欢迎各位“大虾”前来指导、指导!2010-3-1716:27上传下载附件()一、程序准备1、,下载地址(安装版):http://bbs./?aid=1526103&k=79e8b43e600e8d193d8a890e60dec66f&t=**********、,下载地址(安装版):http://bbs./?aid=351538&k=2a70d1c14b92f324eee216b62d8efd13&t=1316402531下载地址(绿色版):http://bbs./?aid=351539&k=ce148a9a61f7e6a5b72c2a4e17824e01&t=**********、,下载地址(绿色版):./?ssig=qb7BUWjv%2B0&Expires=1316534400&KID=sina,ishare&ip=1316403669,、制作思路利用“MortScript脚本程序”从魅族M8自带的天气预报程序中获取天气信息,并将此信息写入到指定的文本文件中,然后使用“讯飞语音”软件进行朗读,结合“管它”即可在指定时间内更新及自动播报天气预报。三、脚本代码If(ProcExists("")) Kill("")EndIfDelete("\Disk\ApplicationData\MzWeather\Data\")MouseDown(240,700)Sleep(500)MouseUp(240,1)Sleep(500)tq_utf8=ReadFile("\Disk\ApplicationData\MzWeather\Data\",0,"utf8")WriteFile("\Disk\ApplicationData\MzWeather\Data\",tq_utf8,TRUE,"ansi")tq=ReadFile("\Disk\ApplicationData\MzWeather\Data\",0,"ansi")nr1=SubStr(tq,Find(tq,"date")+12,10)nr2=SubStr(tq,Find(tq,"weather")+11,Find(SubStr(tq,Find(tq,"weather")+11),",")-2)nr3=SubStr(tq,Find(tq,"ctemp")+9,3)nr4=SubStr(tq,Find(tq,"℃")+2,3)nrh1=nr1&"天气预报:"&nr2&","&nr3&"到"&nr4&"。再播一次:"&nr2&","&nr3&"到"&nr4&"。"Delete("\Disk\Programs\Tool