易语言怎么模拟User-Agent访问一个网站 求大神

我的爱情365

易语言怎么模拟User-Agent访问一个网站  求大神， 然后获取他的网页源码下来

最好 发个源码 我研究下，谢谢了  一定满分好评

Hwak

用http 访问

1. .版本 2
   
2. 
   
3. .子程序 网页_访问_对象, 文本型
   
4. .参数 网页地址, 文本型
   
5. .参数 提交方式, 整数型, 可空
   
6. .参数 提交数据, 文本型, 可空
   
7. .参数 提交cookies, 文本型, 可空
   
8. .参数 返回cookies, 文本型, 可空
   
9. .参数 编码类型, 整数型, 可空, 默认GBK,1=UTF8
   
10. .局部变量 Winhttp, 对象
    
11. .局部变量 返回数据, 文本型
    
12. .局部变量 数据流, 字节集
    
13. .局部变量 提交方式1, 文本型
    
14. 
    
15. Winhttp.创建 (“WinHttp.WinHttpRequest.5.1”, )
    
16. ' Winhttp.查看 ()
    
17. ' '创建 发送 获取
    
18. .判断开始 (提交方式 ≠ 1)
    
19.     提交方式1 ＝ “GET”
    
20. .默认
    
21.     提交方式1 ＝ “POST”
    
22. .判断结束
    
23. Winhttp.方法 (“Open”, 提交方式1, 删首尾空 (网页地址), 假)
    
24. Winhttp.方法 (“SetRequestHeader”, “Accept”, “*/*”)
    
25. Winhttp.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
    
26. Winhttp.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; msn OptimizedIE8;ZHCN)”)
    
27. ' Winhttp.方法 (“SetRequestHeader ”, “Referer”, “http://www.baidu.com/”)  ' 来路
    
28. Winhttp.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
    
29. Winhttp.方法 (“SetRequestHeader”, “Cookie”, 删首尾空 (提交cookies))
    
30. .如果 (提交方式 ＝ 1)
    
31.     Winhttp.方法 (“Send”, 提交数据)
    
32. .否则
    
33.     Winhttp.方法 (“Send”, )
    
34. .如果结束
    
35. .如果 (编码类型 ＝ 1)
    
36.     返回数据 ＝ Winhttp.读文本属性 (“ResponseText”, )
    
37. .否则
    
38.     数据流 ＝ Winhttp.读属性 (“ResponseBody”, ).取字节集 ()
    
39.     返回数据 ＝ 到文本 (数据流)
    
40. .如果结束
    
41. 返回 (返回数据)

复制代码

执着

协议头中  

User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; qdesk 2.5.1277.202; Windows NT 6.1; WOW64; Trident/6.0)

自己修改UA