|
楼主 |
发表于 2017-2-12 12:30:29
|
显示全部楼层
浙江省温州市
我弄了一个新的 心跳 也是运行一段时间 就无限返回 7 微信在线 但是就是无限返回7- .版本 2
- .支持库 spec
- .子程序 心跳二, 整数型, 公开, 心跳
- .局部变量 _win, 类_WinHttp
- .局部变量 deviceid, 文本型
- .局部变量 setcookies, 文本型
- .局部变量 str, 文本型
- .局部变量 Val, 整数型
- .局部变量 ret, 整数型
- .局部变量 url, 文本型
- deviceid = “e” + 文本_取随机数字 (15)
- url = “https://” + PushDomainName + “/cgi-bin/mmwebwx-bin/synccheck?r=” + 时间_取现行时间戳 () + “&skey=” + 子文本替换 (Skey, “@”, “%40”, , , 真) + “&sid=” + 编码_URL编码 (wxsid, 真, 真) + “&uin=” + wxuin + “&deviceid=” + deviceid + “&synckey=” + 子文本替换 (SyncKey, “|”, “%7C”, , , 真) + “&_=” + 时间_取现行时间戳 ()
- 调试输出 (url)
- _win.Open (“GET”, url)
- ' https://webpush.wx2.qq.com/cgi-bin/mmwebwx-bin/synccheck?r=1466331545563&skey=%40crypt_64916d82_734052d5cfb898c9616f985bc9d301b4&sid=1QvDfhF9NAcPydEo&uin=2463433204&deviceid=e282882090726448&synckey=1_651984069%7C2_651984342%7C3_651984235%7C11_651983278%7C13_651969090%7C201_1466331537%7C1000_1466330008%7C1001_1466307571%7C1002_1466207153&_=
- _win.SetRequestHeader_automatic (“Referer: https://” + DomainName + “/”)
- _win.SetCookies (Cookie)
- _win.Send ()
- setcookies = _win.GetAllCookies ()
- Cookie = 网页_Cookie合并更新 (Cookie, setcookies)
- str = 编码_Utf8到Ansi (_win.ResponseBody ())
- 调试输出 (“心跳返回:” + str)
- Val = 到整数 (文本_取出中间文本 (str, “selector:” + #引号, #引号))
- ret = 到整数 (文本_取出中间文本 (str, “retcode:” + #引号, #引号))
- .如果真 (ret = 1101 或 ret = 1100)
- .计次循环首 (10, )
- url = “https://” + PushDomainName + “/cgi-bin/mmwebwx-bin/synccheck?r=” + 时间_取现行时间戳 () + “&skey=” + 子文本替换 (Skey, “@”, “%40”, , , 真) + “&sid=” + 编码_URL编码 (wxsid, 真, 真) + “&uin=” + wxuin + “&deviceid=” + deviceid + “&synckey=” + 子文本替换 (SyncKey, “|”, “%7C”, , , 真) + “&_=” + 时间_取现行时间戳 ()
- _win.Open (“GET”, url)
- _win.SetRequestHeader_automatic (“Referer: https://” + DomainName + “/”)
- _win.SetCookies (Cookie)
- _win.Send ()
- setcookies = _win.GetAllCookies ()
- Cookie = 网页_Cookie合并更新 (Cookie, setcookies)
- str = _win.ResponseText_Utf8 ()
- Val = 到整数 (文本_取出中间文本 (str, “selector:” + #引号, #引号))
- ret = 到整数 (文本_取出中间文本 (str, “retcode:” + #引号, #引号))
- .如果真 (ret ≠ 1101 且 ret ≠ 1100)
- 跳出循环 ()
- .如果真结束
- .计次循环尾 ()
- .如果真 (ret = 1101 或 ret = 1100)
- error = 1101
- 返回 (1)
- .如果真结束
- .如果真 (Val = 0)
- 返回 (0) ' 没有数据
- .如果真结束
- .如果真 (Val > 0)
- 返回 (1) ' 有消息到达
- .如果真结束
- 返回 (0)
- .如果真结束
- .如果真 (Val = 0)
- 返回 (0) ' 没有数据
- .如果真结束
- .如果真 (Val > 0)
- 返回 (1) ' 有消息到达
- .如果真结束
- 返回 (0)
复制代码 |
|