vb6 get html,请教VB6中GET 和POST问题!

源码是这样的

Total recognize

var fUseBlur = 1;

var fUseSound = 0;

var baseTime = 0;

var statTime = 0;

var statErrTime = 0;

var errTime = 0;

var Status = null;

var ShowMax = null;

var shown = 0;

var dataPath = "http://www.

var statPath = "http://www.

var imagePath = "http://www.

var soundPath = "incoming.wav";

var doPlay = 1;

function start()

{

Status = document.getElementById('stat');

ShowMax = document.getElementById('showmax');

shStat = setTimeout(ShowStatus,500);

GetData();

GetStats();

}

function ShowStatus()

{

clearTimeout(shStat);

shStat = setTimeout(ShowStatus,500);

document.getElementById("status").value= "Shown: "+shown + "   Uploads waiting: " + document.getElementById('uploader').childNodes.length;

}

function GetShowMax()

{

var code = ShowMax.value.charCodeAt(0);

if(code < 48 || code > 57){

ShowMax.value = "0";

return 0;

}

code = code - 48;

if(code > 3)

code = 3;

return code;

}

function GetData()

{

if(shown >= GetShowMax())

{

Status.value = "Status : waiting for user";

clearTimeout(baseTime);

baseTime = setTimeout(GetData,4000);

return;

}

clearTimeout(baseTime);

errTime = setTimeout(ErrData,60000);

var script = document.createElement('script');

script.id = "lscr";

script.src = dataPath;

document.getElementById('loader').appendChild(script);

Status.value = "Status : loading data";

}

function GetStats()

{

clearTimeout(statTime);

statErrTime = setTimeout(ErrStat,60000);

var script = document.createElement('script');

script.id = "lstats";

script.src = statPath;

document.getElementById('loader').appendChild(script);

}

function ErrStat()

{

var div = document.getElementById('loader');

var scr = document.getElementById('lstats');

div.removeChild(scr);

clearTimeout(statErrTime);

statTime = setTimeout(GetStats,60000);

}

function SetStat(tmade,gmade,avg,msg)

{

ErrStat();

document.getElementById("stats").innerHTML = "Total score: " + tmade + "
" +

"Goods score: " + gmade + "
" +

"Seconds per image (average): " + avg + "
" +

"

" + msg + "

";

}

function AddUpload(val,img)

{

var script = document.createElement('script');

script.id = "upl_" + img;

script.src = dataPath + "?val=" +val + "&img=" + img;

document.getElementById('uploader').appendChild(script);

}

function EndUpload(remid)

{

document.getElementById('uploader').removeChild(document.getElementById("upl_"+remid));

}

function ErrData()

{

var div = document.getElementById('loader');

var scr = document.getElementById('lscr');

div.removeChild(scr);

clearTimeout(errTime);

Status.value = "Status : error loading data";

baseTime = setTimeout(GetData,3000);

}

function AddObject(img)

{

var div = document.getElementById('loader');

var scr = document.getElementById('lscr');

div.removeChild(scr);

clearTimeout(errTime);

var div = document.createElement("div");

div.innerHTML = "
";

document.getElementById('work').appendChild(div);

Status.value = "Status : all working good";

if(!shown)

div.childNodes[2].focus();

shown++;

baseTime = setTimeout(GetData,"4000");

}

function NoObject()

{

clearTimeout(errTime);

Status.value = "Status : please wait for image";

baseTime = setTimeout(GetData,"4000");

}

function TryRemoveObject(el,childPos)

{

var result = '';

var doEnd = 0;

if(!childPos && (fUseBlur != 0) )

{

if(el.value != "")

doEnd = 1;

}

else if(childPos)

{

doEnd = 1;

result = el.parentNode.childNodes[2].value;

}

if(doEnd){

AddUpload(el.value,el.parentNode.childNodes[3].value);

if(el.parentNode.parentNode.childNodes[1] != undefined)

el.parentNode.parentNode.childNodes[1].childNodes[2].focus();

el.parentNode.parentNode.removeChild(el.parentNode);

shown--;

}

}

	use Blur play sound when first image arrived   images shown  Logout