Au3截取腾讯天气的脚本（AU截取音频快捷键）奔走相告

#include

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>(.*?)
“,1)

for $i=0 to UBound($array) – 1

$tqtemp=$array[$i]

Next

$tqtoday=StringReplace($tqtemp, ” “, ” “)

msgbox (32,”天气”,$tqtoday)

_IEQuit ($oIE)