[已解决]公网IP网页获取后，中文乱码问题

elexy

#include <INet.au3>

Global $geturl = "http://1212.ip138.com/ic.asp"
$WinHttp = ObjCreate("WinHttp.WinHttprequest.5.1")
$WinHttp.Open("GET", $geturl, False)
$WinHttp.Send()
$WinHttp.WaitForResponse
Global $body = BinaryToString($WinHttp.Responsebody, 4)
$aIP = StringRegExp($body, '\[(\d[\d.]+)\]', 3)
MsgBox(64, $aIP[0], $body)
ClipPut($body)
$WinHttp = 0

Local $str = BinaryToString(_INetGetSource('http://1212.ip138.com/ic.asp', 0), 4)
MsgBox(64,0,$str)    

;两种方式中文都是乱码，导致抓不到地区，请高手们修改一下。

haijie1223

在群里问的是你吧，和你说了是编码问题。ANSI

#include <INet.au3>

Global $geturl = "http://1212.ip138.com/ic.asp"
$WinHttp = ObjCreate("WinHttp.WinHttprequest.5.1")
$WinHttp.Open("GET", $geturl, False)
$WinHttp.Send()
$WinHttp.WaitForResponse
Global $body = BinaryToString($WinHttp.Responsebody, 1)
$aIP = StringRegExp($body, '\[(\d[\d.]+)\]', 3)
MsgBox(64, $aIP[0], $body)
ClipPut($body)
$WinHttp = 0

Local $str = BinaryToString(_INetGetSource('http://1212.ip138.com/ic.asp', 0), 1)
MsgBox(64, 0, $str)

elexy

谢谢楼上！！！ 原来是4改成1。。。