【QRSpeed】整點(diǎn)報時模塊
&&應(yīng)粉絲請求
&&我更新了~
&&語言:QRSpeed官方插件偽代碼語言
&&如有錯漏請告知我修改

[初始化]
$調(diào)用 0 群列表刷新$
$調(diào)用 1000 恒$
[內(nèi)部]恒
如果:$讀 run 0 0$==0
返回
如果尾
如果:%時間mm%==0|00
//整點(diǎn)報時
$調(diào)用 0 整點(diǎn)報時$
$調(diào)用 2000 恒$
返回
如果尾
$調(diào)用 2000 恒$
[內(nèi)部]整點(diǎn)報時
如果:$讀 date/HH 0 0$==%時間yyyyMMddHH%
返回
如果尾
$寫 date/HH 0 %時間yyyyMMddHH%$
1:[整點(diǎn)報時]現(xiàn)在是%時間yyyy.MM.dd HH:mm:ss%
//可自行添加內(nèi)容,換行方式未知
3:%1%
析:$讀 gc/GL/析 json [數(shù)據(jù)錯誤]$
A:@析[0]
B:0
B:[%B%+1]
如果:%B%>%A%
返回
如果尾
如果:$讀 gc/data/%C%/Timing k 0$==0
$jump -5$
如果尾
$發(fā)送 群 msg %C% %3%$
$jump -14$
群列表刷新
$刪除 /QQRdic/data/gc/GL$
P:%Json%
P:@P[pskey]
P:@P[qun.qq.com]
C:skey=%Skey%; p_skey=%P%; uin=o%Robot%; p_uin=o%Robot%;
######自定義訪問頭 Headers######
A:{"Connection":"keep-alive","Accept-Language":"zh-CN,zh;q=0.8,zh-TW;q=0.7,zh-HK;q=0.5,en-US;q=0.3,en;q=0.2","User-Agent":"Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:75.0) Gecko/20100101 Firefox/75.0","Referer":"https://qun.qq.com/member.html","Origin":"https://qun.qq.com","Cookie":"%C%"}
B:$BKN %Skey%$
######SETPOST 開啟高級訪問POST######
A:$訪問 SETPOST %A% https://qun.qq.com/cgi-bin/qun_mgget_group_list?bkn=%B%$
$寫 gc/GL/原 json %A%$
$調(diào)用 0 解析群列表$
[內(nèi)部]解析群列表
原:$讀 gc/GL/原 json 0$
A:0
D:create
F:開頭
B:-1
A:[%A%+1]
B:[%B%+1]
q:@原[%D%][%B%]
如果:%q%!=
h:@q[gc]
$寫 gc/GL/匹 %h% 1$
F:%F%,"%h%":%A%
q:$替換 @ %q%@{@$
q:$替換 @ %q%@}@$
q:{%q%,"type":%D%}
C:%C%,%q%
$jump -12$
如果尾
A:[%A%-1]
如果:%D%==create
D:manage
$jump -18$
如果尾
如果:%D%==manage
D:join
$jump -22$
如果尾
C:[%A%%C%]
F:$替換 @ %F%@開頭,@$
F:{%F%}
$寫 gc/GL/析 json %C%$
$寫 gc/GL/尋 json %F%$
//機(jī)器開關(guān)
啟動
$寫 run 0 1$
$調(diào)用 5000 恒$
已執(zhí)行。
關(guān)閉
$寫 run 0 0$
已執(zhí)行。
//報時開關(guān)
整點(diǎn)報時開
如果:$讀 gc/data/%Groupid%/Timing k 0$==0
$寫 gc/data/%Groupid%/Timing k 1$
報時整點(diǎn)開啟成功。
返回
如果尾
報時已經(jīng)開啟\n
無需重復(fù)開啟
返回
整點(diǎn)報時關(guān)
如果:$讀 gc/data/%Groupid%/Timing k 0$==1
$寫 gc/data/%Groupid%/Timing k 0$
整點(diǎn)報時關(guān)閉成功
返回
如果尾
報時已經(jīng)關(guān)閉\n
無需重復(fù)關(guān)閉