Au3截取腾讯天气的脚本

    其实很简单的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, “&nbsp;”, ” “)
    msgbox (32,”天气”,$tqtoday)
    _IEQuit ($oIE)


    聪明的你知道怎么用了吧?嘘,低调,低调点.弄不好就被腾讯封了.

Leave a Reply

Leave a Reply