|
楼主 |
发表于 2013-5-27 23:58:57
|
显示全部楼层
湖北省荆州市
有一种痛 发表于 2013-5-27 23:56
可以给个源码吗
.版本 2
http.创建 (“WinHttp.WinhttpRequest.5.1”, ) ' 或 MSXML2.XMLHTTP
' http.查看 ()
' 暂停 ()
http.方法 (“Open”, “POST”, url, 假) ' 假:非异步
http.方法 (“SetRequestHeader”, “cookie”, cookie)
http.方法 (“SetRequestHeader”, “Accept-Language”, “zh-CN”)
http.方法 (“SetRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
' http.方法 (“SetRequestHeader”, “Content-Length”, “1000”)
' http.方法 (“SetRequestHeader”, “Referer”, “http://www.7ta.cn/Account/LogOn”) ' 引用页面
' http.方法 (“SetRequestHeader”, “Host”, “www.7ta.cn”)
http.方法 (“SetRequestHeader”, “Referer”, referer)
http.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)”)
http.方法 (“SetProxy”, 2, Proxy)
.如果真 (Option)
http.写属性 (“Option”, 6, 0)
.如果真结束
.如果真 (是否为空 (timeout))
timeout = 6000
.如果真结束
http.方法 (“SetTimeouts”, timeout, timeout, timeout, timeout, timeout)
http.方法 (“Send”, body)
变体 = http.读属性 (“responseBody”, )
bin = 变体.取字节集 ()
session = http.读文本属性 (“GetAllResponseHeaders”, )
' 调试输出 (session)
返回 (到文本 (bin))
|
|