.版本 2 .子程序 XMLhttp读文件, 字节集, 公开, 读网络文件,(成功返回网络文件字节集数据,失败返回空字节集) .参数 网址, 文本型, , 欲访问的网络地址 .局部变量 对象, 对象 .局部变量 bp, 变体型 .如果真 (对象.创建 (“Microsoft.XMLHTTP”, )) .如果真 (到小写 (取文本左边 (网址, 7)) ≠ “http://”) 网址 ＝ “http://” ＋ 网址 .如果真结束 对象.方法 (“open”, “GET”, 网址, 假) 对象.方法 (“send”, ) bp ＝ 对象.读属性 (“responseBody”, ) 返回 (bp.取字节集 ()) .如果真结束 返回 ({ }) .子程序 XMLhttp读文本, 文本型, 公开, 读网络文本,(成功返回网络文本数据,失败返回空文本) .参数 网址, 文本型, , 欲访问的网络地址 .局部变量 对象, 对象 .局部变量 bp, 变体型 .如果真 (对象.创建 (“Microsoft.XMLHTTP”, )) .如果真 (到小写 (取文本左边 (网址, 7)) ≠ “http://”) 网址 ＝ “http://” ＋ 网址 .如果真结束 对象.方法 (“open”, “GET”, 网址, 假) 对象.方法 (“send”, ) bp ＝ 对象.读属性 (“responseBody”, ) 返回 (到文本 (bp.取字节集 ())) .如果真结束 返回 (“”)