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, \" \", \" \")
msgbox (32,\"天气\",$tqtoday)
_IEQuit ($oIE)
页:
[1]