网抓乱码

x-xx-xx

Sub dff()
    Dim Wz, Url As String, St As String
    Set Wz = CreateObject("winhttp.winhttprequest.5.1")
    Url = "file:///C:\Users\Administrator\AppData\Local\Temp\%W@GJ$ACOF(TYDYECOKVDYB.pnghttps://www.xxbiquge.com/9_9208/"
    Wz.Open "Get", Url, False
    Wz.send
    源码 = Wz.responsetext
End Sub


乱码怎么解决


网页是utf8的










        "description": "东æ–1ç￥žå·žï¼Œæœ‰äoo皇立道统，有åœ￡è′¤å®—é—¨ä¼ é“ï¼Œæœ‰èˉ¸ä¾ˉ雄踞一æ–1王国，èˉ¸å¼o林立，ç￥žå·žåŠ¨ä1±åƒä¸‡è½½ï¼Œæ‰§æ-¤ä1‹æ—¶ï¼Œä¸€ä»￡天éa„叶青帝及东凰大帝æ¨aç©oå‡o世，斩äoo皇，é©-åœ￡è′¤ï¼Œèˉ¸ä¾ˉè‡￡服，东æ–1ç￥žå·žä¸€ç»Ÿï¼ç„¶ï¼Œå¶é’帝忽然æš′æˉ™ï¼Œä¸–é—′雕像尽皆è￠«æˉï¼ŒäoŽä¸–é—′除名，æ2