В итоге сделал часть скрипта на VBS (исходники гаджета прилагаю)
То чего хотел добился все работает четко.
Возникла новая проблема. хочу теперь выводить текст: из тега "technicalSummary" но он в json кодировке, не могу понять как силами VBS его перевести в обычный текст... (Напомню что я делаю гаджет для win7)
Вот функция на VBS
Function objXML_onreadystatechange()
If (objXML.readyState = 4) Then
'msgbox objXML.statusText
If (objXML.status = 200) Then
s = objXML.responseText
StartUSD = InStr(1,s,"summaryLast")
USDS = Mid(s,StartUSD+14,6)
StartTime = InStr(StartUSD,s,"time")
TimeS = Mid(s,StartTime+18,8)
StartText = InStr(1,s,"technicalSummary")+19
EndText = InStr(StartText,s,"""")
TextS = Mid(s,StartText,EndText-StartText)
'ResText = json_decode(TextS)
document.getElementById("summaryLast").innerHTML = USDS
document.getElementById("Time").innerHTML = TimeS
else
'msgbox objXML.statusText
document.getElementById("summaryLast").innerHTML = "" 'убираем индикатор загрузки
End If
End If
End Function
Нужно тарабарщину из TextS превратить в нормальный текст...