_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 & "/HPImageArchive.aspx?format=" & $format & "&idx=" & $idx & "&n=" & $n & "&mkt=zh-CN", 3)
    If @error <> 0 Then Return -1
    $sdoc = BinaryToString($sdoc, 4) ;转换编码为  UTF8 ，参数 1 为ANSI
    If StringCompare($format, "js") = 0 Then ;补全地址
        $sdoc = StringReplace($sdoc, '"url":"', '"url":"' & $url)
    Else
        $sdoc = StringReplace($sdoc, '<url>/', '<url>' & $url & "/")
    EndIf
    Return $sdoc
EndFunc   ;==>JY_GetBingPic

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

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