#include <_XMLDomWrapper.au3>
Global $sURL = "http://www.artlebedev.ru/tools/decoder/?random=0.5753729263731685&text=%20%E2%80%99%C2%AE%C2%AC%20%D1%9E%20%D0%B3%D0%B1%D0%B2%D0%B0%C2%AE%C2%A9%D0%B1%D0%B2%D1%9E%D2%90%20C%20%C2%AD%D2%90%20%D0%81%C2%AC%D2%90%D2%90%D0%B2%20%C2%AC%D2%90%D0%B2%D0%84%D0%81.&Decode=go"
$oXMLHTTP = _XMLHTTPCreate()
$sXML = _XMLHTTPOpen($oXMLHTTP, $sURL)
_XMLLoadXML($sXML)
$aText = _XMLGetValue('//*/text')
ConsoleWrite($aText[1] & @CR)
Func _XMLHTTPCreate()
Local $oXMLHTTP, $sXMLHTTP
Local $aXMLHTTP[4] = ["Msxml2.XMLHTTP.6.0","Msxml2.XMLHTTP.3.0","MSXML2.XMLHTTP","Microsoft.XMLHTTP"]
For $sXMLHTTP In $aXMLHTTP
$oXMLHTTP = ObjCreate($sXMLHTTP)
If IsObj($oXMLHTTP)Then
Return SetError(0, 0, $oXMLHTTP)
EndIf
Next
Return SetError(1, 0, 0)
EndFunc;==>_XMLHTTPCreate
Func _XMLHTTPOpen(ByRef $o_Obj, $s_URL)
If Not IsObj($o_Obj) Then
Return SetError(1, 0, 0)
EndIf
With $o_Obj
.Open("GET", $s_URL, 0)
.Send()
EndWith
Return SetError(0, 0 , $o_Obj.ResponseText)
EndFunc;==>_XMLHTTPOpen