|
发表于 2012-1-17 11:57:31
|
显示全部楼层
重庆市重庆市
.版本 2
.子程序 网络_读文件_对象, 字节集, 公开, 支持HTTPS
.参数 完整网址, 文本型
.参数 提交信息, 字节集, 可空
.参数 网页头, 文本型, 参考 可空
.局部变量 HTTPS, 对象
.局部变量 易团俊, 字节集
HTTPS.创建 (“MSXML2.XMLHTTP”, )
' 设置协议头
HTTPS.方法 (“Open”, “POST”, 完整网址, 假)
HTTPS.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
HTTPS.方法 (“SetRequestHeader”, “Referer”, 完整网址)
HTTPS.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729”)
HTTPS.方法 (“SetRequestHeader”, “Host”, 取域名 (完整网址))
HTTPS.方法 (“send”, 提交信息)
网页头 = HTTPS.文本方法 (“getAllResponseHeaders”, )
易团俊 = HTTPS.读属性 (“ResponseBody”, ).取字节集 ()
HTTPS.清除 ()
返回 (易团俊)
|
|