左翁的小屋编程开发易语言取HTTP状态码，可获取301/302跳转地址

易语言取HTTP状态码，可获取301/302跳转地址

时间：2020.10.11 分类：编程开发 作者：wintop 阅读：4899

摘再网络，代码不错，希望能帮助到需要的人。

.版本 2

.支持库 spec


.子程序 取状态, 整数型

.参数 url, 文本型

.局部变量 http, 对象

.局部变量 p, 变体型


.如果真 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ))

    http.写属性 (“Option”, 6, 0)

    http.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)

    http.方法 (“open”, “GET”, url, 假)

    http.方法 (“setRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 6.0; windows NT 5.1; SV1)”)

    http.方法 (“setRequestHeader”, “Accept-Language”, “zh-cn”)

    http.方法 (“setRequestHeader”, “Connection”, “Keep-Alive”)

    http.方法 (“setRequestHeader”, “Accept”, “image/gif, image/x-xbitmAP, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-silverlight, */*”) 

    http.方法 (“send”, )

    p ＝ http.读属性 (“status”, )

    调试输出 (p.取数值 ())

    返回 (p.取数值 ())

.如果真结束

返回 (0)


.子程序 取跳转地址, 文本型

.参数 url, 文本型

.局部变量 http, 对象

.局部变量 p, 变体型


.如果真 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ))

    http.写属性 (“Option”, 6, 0)

    http.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)

    http.方法 (“open”, “GET”, url, 假)

    http.方法 (“setRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSie 6.0; Windows NT 5.1; SV1)”)

    http.方法 (“setRequestHeader”, “Accept-Language”, “zh-cn”)

    http.方法 (“setRequestHeader”, “Connection”, “Keep-Alive”)

    http.方法 (“setRequestHeader”, “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-silverlight, */*”) 

    http.方法 (“send”, )

    p ＝ http.读属性 (“GetResponseHeader”, “Location”)

    调试输出 (p.取文本 ())

    返回 (p.取文本 ())

.如果真结束

返回 (“”)


标签易语言http状态
上一篇：Windows下PHP 5.6.27安装 Imagick 扩展 下一篇：2020二级建造师8.8VIP版题库.apk

相关阅读

添加新评论

最近发表
标签列表