Au3获取必应每日壁纸UDF

3月182021

作者：绿色风发布：2021-3-18 12:45 Thursday 分类：工作室UDF 阅读：2222次评论：0条

_CW(JY_GetBingPic(0, 5, "xml"))
_CW()

;获取 必应每日壁纸
;默认 返回 json数据，取今天的1张图
;请求失败时返回 -1
Func JY_GetBingPic($idx = 0, $n = 1, $format = "js")
    ; by:绿色风 qq:79664738 2021/03/18
;~  $format = js返回 json 数据 ,xml返回 xml 数据
;~  $idx =  0 今天 , -1 截止中明天 （预准备的） , 1 截止至昨天，类推（目前最多获取到7天前的图片）
;~  $n = 1 - 8 返回请求数量，目前最多一次获取8张
    Local $url = "https://cn.bing.com"
    Local $sdoc = InetRead($url &amp; "/HPImageArchive.aspx?format=" &amp; $format &amp; "&amp;idx=" &amp; $idx &amp; "&amp;n=" &amp; $n &amp; "&amp;mkt=zh-CN", 3)
    If @error &lt;&gt; 0 Then Return -1
    $sdoc = BinaryToString($sdoc, 4) ;转换编码为  UTF8 ，参数 1 为ANSI
    If StringCompare($format, "js") = 0 Then ;补全地址
        $sdoc = StringReplace($sdoc, '"url":"', '"url":"' &amp; $url)
    Else
        $sdoc = StringReplace($sdoc, '&lt;url&gt;/', '&lt;url&gt;' &amp; $url &amp; "/")
    EndIf
    Return $sdoc
EndFunc   ;==&gt;JY_GetBingPic

;写数据流
Func _CW($str = @CRLF)
    ConsoleWrite($str)
EndFunc   ;==&gt;_CW

本文固定链接: http://jianyiit.com/post-374.html