Au3截取腾讯天气的脚本

#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, "nbsp;", " ")
msgbox (32,"天气",$tqtoday)
_IEQuit ($oIE)