把以下代码更改成VB版的 - 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) {
alert(&
相关问答：
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
我想用VB做一个OCX（纯菜鸟，临时需要用VB做点东西，特来请教），A用户（IP：192.168.0.1）与B用户（IP：192.168.0.2）进行点对点的发送接收消息
要求采用OCX方式，比如A用户知道B用户IP，我直接传参（B的IP）至OCX ......
我用VB写了一个activex，现在想在js里面向activex传值，写了一个public方法不行，写了一个属性也不行，请高手指点，在线等候,代码如下
变量声明
Dim dirName As String = ""
方法
Public Sub UrlName( ......
