ResponseText is messy code

[gooker]

Dim $Url= "http://www.baidu.com"

$XML = ObjCreate("Microsoft.XMLHTTP")
$XML.Open("Get", $Url, False )
$XML.Send
$Result = $XML.ResponseText

$File=FileOpen("Result.txt",2)
FileWrite($File,$Result)
FileClose($File)
ShellExecuteWait("notepad.exe","Result.txt")
FileDelete("Result.txt") ;;;messy code

Chinese characters in ResponseText turn into messy code,need help thanks

[gooker]

ding

[DaveF]

Please read the AutoIt Help file for FileOpen, you need to use a Unicode mode for opening your file, like mode 34.

[gooker]

Dim $Url= "http://www.baidu.com"

$XML = ObjCreate("Microsoft.XMLHTTP")

$XML.Open("Get", $Url, False )

$XML.Send

$Result = $XML.ResponseText

msgbox(0,0,$Result)

ths for your reply ,but i think it's not the FileOpen's problem

[gooker]

up2

[DaveF]

Dim $Url= "http://www.baidu.com"

$XML = ObjCreate("Microsoft.XMLHTTP")
$XML.Open("Get", $Url, False )
$XML.Send
$Result = $XML.ResponseText

$File=FileOpen("Result.htm",130) ; Open file for writing in unicode UTF8 mode. -- DaveF
FileWrite($File,$Result)
FileClose($File)
ShellExecuteWait("notepad.exe","Result.htm")
;FileDelete("Result.htm")

[gooker]

Dim $Url= "http://www.baidu.com"

$XML = ObjCreate("Microsoft.XMLHTTP")
$XML.Open("Get", $Url, False )
$XML.Send
$Result = $XML.ResponseText

$File=FileOpen("Result.htm",130) ; Open file for writing in unicode UTF8 mode. -- DaveF
FileWrite($File,$Result)
FileClose($File)
ShellExecuteWait("notepad.exe","Result.htm")
;FileDelete("Result.htm")

also have the problem,

and the correct should be :