|
发表于 2015-4-8 21:02:35
|
显示全部楼层
广东省中山市
.版本 2
.子程序 网页_访问_对象, 文本型
.参数 网页地址, 文本型
.参数 提交方式, 整数型, 可空
.参数 提交数据, 文本型, 可空
.参数 提交cookies, 文本型, 可空
.参数 返回cookies, 文本型, 可空
.参数 编码类型, 整数型, 可空, 默认GBK,1=UTF8
.参数 UA, 文本型, 可空
.参数 Referer, 文本型, 可空
.局部变量 Winhttp, 对象
.局部变量 返回数据, 文本型
.局部变量 数据流, 字节集
.局部变量 提交方式1, 文本型
CoInitialize (0)
Winhttp.创建 (“WinHttp.WinHttpRequest.5.1”, )
' Winhttp.查看 ()
' '创建 发送 获取
.判断开始 (提交方式 ≠ 1)
提交方式1 = “GET”
.默认
提交方式1 = “POST”
.判断结束
Winhttp.方法 (“Open”, 提交方式1, 删首尾空 (网页地址), 假)
Winhttp.方法 (“SetRequestHeader”, “Accept”, “*/*”)
Winhttp.方法 (“SetRequestHeader”, “Accept-Language”, “zh-cn”)
Winhttp.方法 (“SetRequestHeader”, “User-Agent”, 删首尾空 (UA))
Winhttp.方法 (“SetRequestHeader ”, “Referer”, 删首尾空 (Referer)) ' 来路
Winhttp.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
Winhttp.方法 (“SetRequestHeader”, “Cookie”, 删首尾空 (提交cookies))
.如果 (提交方式 = 1)
Winhttp.方法 (“Send”, 提交数据)
.否则
Winhttp.方法 (“Send”, )
.如果结束
.如果 (编码类型 = 1)
返回数据 = Winhttp.读文本属性 (“ResponseText”, )
.否则
数据流 = Winhttp.读属性 (“ResponseBody”, ).取字节集 ()
返回数据 = 到文本 (数据流)
.如果结束
返回 (返回数据)
别人的 |
|