音遇例子

.版本 2

.子程序 区分男女, 文本型, , 1男 2女

.参数 token, 文本型

.参数 uid, 文本型

.局部变量 data, 文本型

.局部变量 json, 类_json

.局部变量 str, 文本型

data ＝ “channel=204001&version=6.0.2&small_version=1.5.3&remote_id=” ＋ uid ＋ “&token=” ＋ token ＋ “&_package_=yinyu”

str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://dldapp.ohlasing.cn/api/get-other-info”, 1, data, , , #常量1, , , , , , , , , , , , , ))

json.解析 (str, )

返回 (json.取属性 (“data.gender”).取数据文本 ())

.子程序 采集动态评论, 文本型

.参数 token, 文本型

.参数 动态ID, 文本型

.局部变量 data, 文本型

.局部变量 str, 文本型

data ＝ “version=6.0.2&small_version=1.5.3&status=0&token=” ＋ token ＋ “&pid=” ＋ 动态ID ＋ “&limit=200&uid=&time=2029-09-24+13%3A28%3A09&_package_=yinyu&channel=”

str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://dldapp.ohlasing.cn/moments/get-remark-articles-list”, 1, data, , , #常量1, , , , , , , , , , , , , ))

返回 (str)

.子程序 动态采集, 文本型

.参数 token, 文本型

.参数 页数, 整数型

.局部变量 data, 文本型

.局部变量 str, 文本型

data ＝ “page=” ＋ 到文本 (页数 － 1) ＋ “&city=&small_version=1.5.3&status=0&token=” ＋ token ＋ “&limit=10&_package_=yinyu&type=5&time=0&version=6.0.2&channel=204001”

str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://dldapp.ohlasing.cn/moments/recommend”, 1, data, , , #常量1, , , , , , , , , , , , , ))

返回 (str)

.子程序 关注, 逻辑型

.参数 uid, 文本型

.参数 token, 文本型

.参数 msg, 文本型

.局部变量 data, 文本型

.局部变量 str, 文本型

data ＝ “channel=204001&version=6.0.2&small_version=1.5.3&_package_=yinyu&token=” ＋ token ＋ “&remoteid=” ＋ uid

str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://dldapp.ohlasing.cn/relation/follow”, 1, data, , , #常量1, , , , , , , , , , , , , ))

str ＝ 编码_usc2到ansi (str)

.如果 (寻找文本 (str, “success”, , 假) ≠ -1)

   返回 (真)

.否则

   msg ＝ str

   返回 (假)

.如果结束

.子程序 打招呼, 逻辑型

.参数 uid, 文本型

.参数 token, 文本型

.参数 msg, 文本型

.局部变量 data, 文本型

.局部变量 str, 文本型

data ＝ “version=6.0.2&small_version=1.5.2&remote_id=” ＋ uid ＋ “&token=” ＋ token ＋ “&channel=204001&num=1&gift_id=100027&_package_=yinyu&panel_id=100001&client={” ＋ #引号 ＋ “serial” ＋ #引号 ＋ “:” ＋ #引号 ＋ “” ＋ #引号 ＋ “,” ＋ #引号 ＋ “rom” ＋ #引号 ＋ “:” ＋ #引号 ＋ “15.7” ＋ #引号 ＋ “,” ＋ #引号 ＋ “sdkint” ＋ #引号 ＋ “:” ＋ #引号 ＋ “” ＋ #引号 ＋ “,” ＋ #引号 ＋ “mac” ＋ #引号 ＋ “:” ＋ #引号 ＋ “02:00:00:00:00:00” ＋ #引号 ＋ “,” ＋ #引号 ＋ “model” ＋ #引号 ＋ “:” ＋ #引号 ＋ “iPhone7Plus” ＋ #引号 ＋ “,” ＋ #引号 ＋ “oaid” ＋ #引号 ＋ “:” ＋ #引号 ＋ “” ＋ #引号 ＋ “,” ＋ #引号 ＋ “imei” ＋ #引号 ＋ “:” ＋ #引号 ＋ “” ＋ #引号 ＋ “,” ＋ #引号 ＋ “os” ＋ #引号 ＋ “:” ＋ #引号 ＋ “ios” ＋ #引号 ＋ “,” ＋ #引号 ＋ “imsi” ＋ #引号 ＋ “:” ＋ #引号 ＋ “” ＋ #引号 ＋ “,” ＋ #引号 ＋ “ip” ＋ #引号 ＋ “:” ＋ #引号 ＋ “0” ＋ #引号 ＋ “,” ＋ #引号 ＋ “did” ＋ #引号 ＋ “:” ＋ #引号 ＋ “” ＋ #引号 ＋ “,” ＋ #引号 ＋ “cpu” ＋ #引号 ＋ “:” ＋ #引号 ＋ “” ＋ #引号 ＋ “,” ＋ #引号 ＋ “idfa” ＋ #引号 ＋ “:” ＋ #引号 ＋ “” ＋ #引号 ＋ “,” ＋ #引号 ＋ “resolution” ＋ #引号 ＋ “:” ＋ #引号 ＋ “12” ＋ #引号 ＋ “,” ＋ #引号 ＋ “andrid” ＋ #引号 ＋ “:” ＋ #引号 ＋ “” ＋ #引号 ＋ “}”

str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://dldapp.ohlasing.cn/gift/send-gift”, 1, data, , , #常量1, , , , , , , , , , , , , ))

.如果 (寻找文本 (str, “success”, , 假) ≠ -1)

   返回 (真)

.否则

   msg ＝ str

   返回 (假)

   ' {"ec":53110,"em":"今天已赠送过他拍拍礼物","timesec":1663925673,"data":{}}

.如果结束

常量

Host: dldapp.ohlasing.cn
Content-Type: application/x-www-form-urlencoded
Connection: keep-alive
Connection: keep-alive
Accept: */*
User-Agent: %E9%9F%B3%E9%81%87/962 CFNetwork/1335.0.3 Darwin/21.6.0
Accept-Language: zh-CN,zh-Hans;q=0.9
Cache-Control: no-cache