Au3截取騰訊天氣的腳本
更新時間:2008年09月06日 22:44:20 作者:
騰訊的天氣是相當?shù)臏恃?而且還有實時天氣,
今天把它給應用上了,附上源代碼拋磚引玉.
其實很簡單的Replace就搞定了.
#include <IE.au3>
Filedelete ("Tq.txt")
$Url="http://www.soso.com/tb.q"
$oIE = _IECreate ($url, 0, 0)
$sHTML = _IEBodyReadHTML ($oIE)
$array= StringRegExp($sHTML, "<(?i)strong class=fs_14>(.*?)</(?i)strong>",1)
for $i = 0 to UBound($array) - 1
$tqtemp = $array[$i]
Next
$tqtoday = StringReplace($tqtemp, " ", " ")
msgbox (32,"天氣",$tqtoday)
_IEQuit ($oIE)
聰明的你知道怎么用了吧?噓,低調(diào),低調(diào)點.弄不好就被騰訊封了.
復制代碼 代碼如下:
#include <IE.au3>
Filedelete ("Tq.txt")
$Url="http://www.soso.com/tb.q"
$oIE = _IECreate ($url, 0, 0)
$sHTML = _IEBodyReadHTML ($oIE)
$array= StringRegExp($sHTML, "<(?i)strong class=fs_14>(.*?)</(?i)strong>",1)
for $i = 0 to UBound($array) - 1
$tqtemp = $array[$i]
Next
$tqtoday = StringReplace($tqtemp, " ", " ")
msgbox (32,"天氣",$tqtoday)
_IEQuit ($oIE)
聰明的你知道怎么用了吧?噓,低調(diào),低調(diào)點.弄不好就被騰訊封了.
您可能感興趣的文章:
相關文章
使用AutoIT實現(xiàn)自動登錄/退出客戶端軟件,刪除日志
最近在測試新版客戶端時發(fā)現(xiàn),會不定時的出現(xiàn)登錄失敗,提示信息是“連接登錄服務器失敗...”。經(jīng)過一番嘗試,發(fā)現(xiàn)在安裝客戶端后登錄,錯誤出現(xiàn)的幾率較高。2009-03-03