XMLHTTP读网页

阿杰

1. .版本 2
   
2. 
   
3. .子程序 读网页, 字节集, 公开
   
4. .参数 地址, 文本型
   
5. .参数 post, 逻辑型, 可空
   
6. .参数 提交数据, 文本型, 可空
   
7. .参数 附加协议头, 文本型, 可空
   
8. .局部变量 对象, 对象
   
9. .局部变量 代码, 字节集
   
10. 
    
11. 地址 ＝ 选择 (取文本左边 (地址, 7) ＝ “http://”, 地址, “http://” ＋ 地址)
    
12. .判断开始 (post)
    
13.     对象.创建 (“Microsoft.XMLHTTP”, )
    
14.     对象.方法 (“Open”, “POST”, 地址, 假)
    
15.     对象.方法 (“SetRequestHeader”, “Accept”, “*/*”)
    
16.     对象.方法 (“SetRequestHeader”, “Referer”, 附加协议头)
    
17.     对象.方法 (“SetRequestHeader”, “Accept-Languge”, “zh-CN”)
    
18.     对象.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
    
19.     对象.方法 (“Send”, 提交数据)
    
20.     代码 ＝ 对象.读属性 (“ResponseBody”, ).取字节集 ()
    
21. .默认
    
22.     对象.创建 (“MSXML2.XMLHTTP”, )
    
23.     对象.方法 (“Open”, “GET”, 地址, 假)
    
24.     对象.方法 (“Send”, )
    
25.     代码 ＝ 对象.读属性 (“ResponseBody”, ).取字节集 ()
    
26. .判断结束
    
27. 返回 (代码)
    
28. 
    

复制代码