搜索引擎关键词采集开源模块

.子程序 取跳转地址, 文本型, , 可忽略证书失效
.参数 参数_访问地址, 文本型
.局部变量 http, 对象
.局部变量 p, 变体型

.如果真 (http.创建 (“WinHttp.WinHttpRequest.5.1”, ))
http.写属性 (“Option”, 6, 0)
http.写属性 (“Option”, 4, 13056) ' //忽略证书失效
http.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)
http.方法 (“open”, “GET”, 参数_访问地址, 假)
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.取文本 ())
.如果真结束
返回 (“Error!”)