.版本 2 .子程序 读wap, 字节集, 公开, 读网络文件,(成功返回网络文件字节集数据,失败返回空字节集) .参数 完整网址, 文本型, , 欲访问的完整的网络地址 .参数 访问方式, 文本型, 可空, "GET" or "POST",为空默认"GET" .参数 提交数据, 文本型, 可空, 只限POST .局部变量 对象, 对象 .局部变量 bp, 变体型 .如果真 (对象.创建 (“Microsoft.XMLHTTP”, )) .如果真 (取反 (取文本左边 (到大写 (完整网址), 7) ＝ “//”)) 完整网址 ＝ “//” ＋ 完整网址 .如果真结束 .如果真 (访问方式 ＝ “”) 访问方式 ＝ “GET” .如果真结束 对象.方法 (“open”, 访问方式, 完整网址, 假) 对象.方法 (“SetRequestHeader”, “Accept”, “application/vnd.wap.xhtml+xml,application/xml,text/vnd.wap.wml,text/html,application/xhtml+xml,image/png;q=0.5,image/jpeg;q=0.5,image/gif;q=0.5,image/*;q=0.6,*/*;q=0.6”) 对象.方法 (“SetRequestHeader”, “User-Agent”, “SonyEricssonK800”) 对象.方法 (“SetRequestHeader”, “Q-UA”, “KQB21_GA/210013&KMTT_3/200013&JV2&152020&SonyEricssonK800&0&4021&V3”) 对象.方法 (“send”, 提交数据) bp ＝ 对象.读属性 (“responseBody”, ) 返回 (bp.取字节集 ()) .如果真结束 返回 ({ })