谁能把下面代码改成VB版的？
function Ajax() {
if (typeof (Ajax.initMethod) == "undefined") {
Ajax.prototype.GetHttpRequestObject = function() {
if (window.ActiveXObject) return new ActiveXObject("Microsoft.XMLHTTP");
else if (window.XMLHttpRequest) return new XMLHttpRequest();
try { return new ActiveXObject("Msxml2.XMLHTTP"); } catch (e) { };
return null;
}
Ajax.prototype.EncodeUrlParam = function(param){
var params = param.split('&');
var rp = "";
for(var i = 0;i< params.length;i++){
var nv = params[i].split('=');
if(rp != "") rp += "&";
rp += nv[0] + "=";
rp += encodeURIComponent(nv[1]);
}
return rp;
}
// callback is defined outside with two params
// first param shows that the request complete successfully or not
// second shows the response text
Ajax.prototype.Get = function(url, callback) {
var xmlHttp = Ajax.prototype.GetHttpRequestObject();
if (xmlHttp == null) {
各位高手，小弟最近碰到一个问题：原先写的程序大概的思路是：首先webbrowser打开网址，网址显示后，点击网址上的某一个连接，当webbrowser检测到网址已经连接到想要的地址时候就开始下载文件，当用IE6的时候下� ......
