地址 = “http://223.247.212.1:8090/account”如果真 (对象. 创建 (“MSXML2.XMLHTTP”, ) = 假)如果真 (对象. 创建 (“Microsoft.XMLHTTP”, ) = 假) 返回 ()对象.方法 (“open”, “get”, 地址, 假)对象. 方法 (“SetRequestHeader”, “Authorization”, “Basic ” + Base64Encode (到字节集 (“”)) )对象. 方法 (“Send”, “”)返回文本 = 到文本 (HTTP读文件 (地址 )) 内容 = 文本_取出中间文本 (返回文本, “”, “”)判断 (内容 = “帐号认证失败 ...”)信息框 (“身份验证失败,请确认您已授权!”, 0, “告警 ”, )检索内容 ()时钟1.时钟周期 = 1000
变量名 | 类 型 | 静态 | 数组 | 备 注 | adoStream | 对象 | | | 变体型 | 变体型 | | | xmlDoc | 对象 | | | xmlNode | 对象 | | | Base64Encode | 文本型 | | | temp | 变体型 | | |
adoStream. 创建 (“ADODB.Stream”, )adoStream. 写属性 (“Charset”, “gb2312”)adoStream. 写属性 (“Type”, 1 ) adoStream. 写属性 (“Mode”, 3 )adoStream. 方法 (“Open”, )变体型. 赋值 (bin, )adoStream. 方法 (“Write”, 变体型 )adoStream. 写属性 (“Position”, 0 )adoStream. 写属性 (“Type”, 1 )xmlDoc. 创建 (“MSXML2.DOMDocument”, )xmlNode = xmlDoc. 对象型方法 (“createElement”, “MyNode”)xmlNode. 写属性 (“dataType”, “bin.base64”)变体型 = adoStream. 通用方法 (“Read”, )xmlNode. 写属性 (“nodeTypedValue”, 变体型 )Base64Encode = xmlNode. 读文本属性 (“Text”, )adoStream. 方法 (“Close”, )xmlDoc. 方法 (“Close”, )xmlNode. 方法 (“Close”, )调试输出 (Base64Encode )返回 (Base64Encode )
对象.方法 (“SetRequestHeader”, “Authorization”, “Basic ” + Base64Encode (到字节集 (“”))) 这里面不应该填入的是登录的账号密码吗?
我如果为空 每次都要弹出登录对话框 需要输入账号密码 怎么处理让他不显示登录对话框直接进入网页呢?
|