|
发表于 2016-11-22 17:43:43
|
显示全部楼层
江苏省南京市
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 url, 文本型
.局部变量 反回数据, 文本型
.局部变量 协yi头, 文本型
.局部变量 返回数据, 文本型
.局部变量 返回文本, 文本型
.局部变量 临时字节集, 字节集
.局部变量 winhttp对象, 对象
url = “https://profiles.camfrog.com/zh-s/get_list.php?p=2&orderby=&st=web&ads=1&sou=1&r=&cg=2&S=Search&tab=all”
' winhttp.SetTimeOut (15000)
winhttp对象.创建 (“WinHttp.WinHttpRequest.5.1”, )
winhttp对象.方法 (“SetTimeouts”, 15000, 15000, 15000, 15000)
winhttp对象.方法 (“Open”, “GET”, url, )
' winhttp对象.方法 (“SetRequestHeader”, “Cookie”, cookies)
winhttp对象.方法 (“SetRequestHeader”, “Accept”, “application/json, text/javascript, */*; q=0.01”)
' winhttp对象.方法 (“SetRequestHeader”, “Accept-Encoding”, “gzip,deflate,sdch”)
winhttp对象.方法 (“SetRequestHeader”, “Accept-Language”, “zh-CN,zh;q=0.8”)
winhttp对象.方法 (“SetRequestHeader”, “Accept-Language”, “keep-alive”)
winhttp对象.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.63 Safari/537.36”)
winhttp对象.方法 (“SetRequestHeader”, “X-Requested-With”, “XMLHttpRequest”)
winhttp对象.方法 (“Send”, )
临时字节集 = winhttp对象.读属性 (“ResponseBody”, ).取字节集 ()
返回文本 = 到文本 (临时字节集)
调试输出 (返回文本)
|
|