全民K歌刷播放量歌曲下载工具源代码

.如果真 (按钮_私密.标题 ＝ “私密歌曲”)
.如果真 (输入框 (, “请输入需要刷取播放量的私密音乐地址”, , 源文本, , ))
.如果真 (源文本 ≠ “”)
源文本 ＝ 文本_取出中间文本 (源文本, “https://kg2.qq.com/node/play?s=”, “&”)
.如果真 (信息框 (“需要下载这首歌吗？”, 4, , ) ＝ #是钮)
源文本 ＝ “http://kg.qq.com/node/play?s=” ＋ 源文本 ＋ “&g_f=share_html”
音乐 ＝ 文本_取出中间文本 (到文本 (网页_访问s (源文本)), #音乐地址, #音乐地址后)
打开指定网址 (音乐)
.如果真结束
按钮_私密.标题 ＝ “停止刷取”
.计次循环首 (50, )
网页_访问s (“http://node.kg.qq.com/cgi/fcgi-bin/fcg_play_common_count?shareid=” ＋ 源文本 ＋ “&ptime=20&outCharset=utf-8&from=1&nocache=” ＋ 时间_取现行时间戳 () ＋ “&format=json&g_tk=5281&g_tk_openkey=5281”)
time ＝ time ＋ 1
标签3.标题 ＝ “已刷播放量：” ＋ 到文本 (time)
延迟 (1000)
处理事件 ()
.如果真 (按钮_私密.标题 ＝ “私密歌曲”)
跳出循环 ()
.如果真结束

.计次循环尾 ()
按钮_私密.标题 ＝ “私密歌曲”
.如果真结束

.如果真结束

.如果真结束
.如果真 (按钮_私密.标题 ＝ “停止刷取”)
源文本 ＝ “”
按钮_私密.标题 ＝ “私密歌曲”

.如果真 (Page ＝ 0)
Page ＝ 1
.如果真结束
.如果真 (超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＝ “加载更多”)
超级列表框1.删除表项 (超级列表框1.取表项数 () － 1)
Page ＝ Page ＋ 1
Regex.创建 (“uid=(.*)”, 编辑框1.内容, , , , )
Uid ＝ Regex.取子匹配文本 (1, 1)
Url_ ＝ “http://cgi.kg.qq.com/fcgi-bin/kg_ugc_get_homepage?jsonpCallback=callback_0&inCharset=GB2312&outCharset=utf-8&g_tk=5381&g_tk_openkey=5381&type=get_uinfo&start=” ＋ 到文本 (Page) ＋ “&num=8&touin=&share_uid=” ＋ Uid ＋ “&_=” ＋ 时间_取现行时间戳 ()
jsontext ＝ 文本_取出中间文本 (到文本 (编码转换 (网页_访问 (Url_), #编码_UTF_8, #编码_GB18030, )) ＋ “callback;”, “callback_0(”, “)callback”)
Json_.解析 (jsontext)
.如果真 (Json_.成员数 (“data.ugclist”) ＜ 1)
超级列表框1.置标题 (超级列表框1.插入表项 (, , , , , ), 1, “没有更多数据”)
返回 ()
.如果真结束
.计次循环首 (Json_.成员数 (“data.ugclist”), A_)
B_ ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (B_, 0, 到文本 (B_ ＋ 1))
超级列表框1.置标题 (B_, 1, Json_.取通用属性 (“data.ugclist[” ＋ 到文本 (到整数 (A_ － 1)) ＋ “].title”))
超级列表框1.置标题 (B_, 2, “http://kg.qq.com/play.html?s=” ＋ Json_.取通用属性 (“data.ugclist[” ＋ 到文本 (到整数 (A_ － 1)) ＋ “].shareid”))
超级列表框1.置标题 (B_, 3, Json_.取通用属性 (“data.ugclist[” ＋ 到文本 (到整数 (A_ － 1)) ＋ “].play_count”))
.计次循环尾 ()
超级列表框1.置标题 (超级列表框1.插入表项 (, , , , , ), 1, “加载更多”)