|
|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
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
|
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2018-10-13 15:26