Построение гаджетов в Win 7

JAVA составляющая
inner Text HTML 
пердвежение картинки


document.getElementById('image').style.position="absolute";
document.getElementById('image').style.left=X;
document.getElementById('image').style.top=Y;

получение данных со страници
txtDocked.innerText = readdata(null,"http://192.168.100.183/");

function readdata(fileContent,fileUrl)
{
xmlhttp = new XMLHttpRequest();
xmlhttp.open("GET", fileUrl, false);
xmlhttp.setRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT");
        xmlhttp.onreadystatechange=function() {
                                    if (xmlhttp.readyState == 4) {
                                        fileContent = xmlhttp.responseText;
                                    }
                                }
        xmlhttp.send();
var myArr = fileContent.split(';');
return myArr[1];
}


HTML составляющая
айди елемента
<div id="temp"></div>

CSS составляющая
расположение елемента
#temp { position: absolute; top: 10px; left:10px; }

VBS составляющая


Sub Window_OnLoad()
idTimer=setInterval("changeColor()",1000)
End Sub
Sub changeColor()
document.getElementById("test").innerHTML = "danilo<br>danilo2"
End Sub


получение данных со страници


Dim strXML
Dim objXML
Set objXML = CreateObject("Microsoft.XmlHttp")
    objXML.Open "GET", "http://192.168.100.192/weather.xml", False
 
    objXML.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
    objXML.Send
    strXML = objXML.ResponseText
Set fso = CreateObject("Scripting.FileSystemObject")
  tempFolder = fso.GetSpecialFolder(2)
  filepath = tempFolder+"\weather.xml"
  Dim fso1, tf
  Set fso1 = CreateObject("Scripting.FileSystemObject")
  Set tf = fso1.CreateTextFile(filepath, True, True)  'rewrite, unicode
  tf.Write(strXML)
  tf.Close