XMLHTTP读网页
.版本 2.子程序 读网页, 字节集, 公开
.参数 地址, 文本型
.参数 post, 逻辑型, 可空
.参数 提交数据, 文本型, 可空
.参数 附加协议头, 文本型, 可空
.局部变量 对象, 对象
.局部变量 代码, 字节集
地址 ＝ 选择 (取文本左边 (地址, 7) ＝ “http://”, 地址, “http://” ＋ 地址)
.判断开始 (post)
对象.创建 (“Microsoft.XMLHTTP”, )
对象.方法 (“Open”, “POST”, 地址, 假)
对象.方法 (“SetRequestHeader”, “Accept”, “*/*”)
对象.方法 (“SetRequestHeader”, “Referer”, 附加协议头)
对象.方法 (“SetRequestHeader”, “Accept-Languge”, “zh-CN”)
对象.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
对象.方法 (“Send”, 提交数据)
代码 ＝ 对象.读属性 (“ResponseBody”, ).取字节集 ()
.默认
对象.创建 (“MSXML2.XMLHTTP”, )
对象.方法 (“Open”, “GET”, 地址, 假)
对象.方法 (“Send”, )
代码 ＝ 对象.读属性 (“ResponseBody”, ).取字节集 ()
.判断结束
返回 (代码)
页:
[1]