dj舞曲网部分源代码开了....文字版 超简单
.版本 2.支持库 internet
.支持库 spec
.局部变量 temphi193, 文本型, , "0"
.局部变量 tempshi193, 文本型, , "0"
.局部变量 endx, 文本型
.局部变量 endz, 文本型
.局部变量 Normal, 文本型
.局部变量 djkkUrlLink, 文本型
.局部变量 ccLink, 文本型
.局部变量 Return, 文本型, , "0"
.局部变量 Return2, 文本型, , "0"
.局部变量 Return3, 文本型, , "0"
.局部变量 Return4, 文本型
.局部变量 MPCrack, 文本型
.局部变量 MPReturn, 文本型, , "0"
.局部变量 MPReturn1, 文本型, , "0"
.局部变量 MPReturn2, 文本型, , "0"
.局部变量 MPReturn3, 文本型, , "0"
.局部变量 MPReturnEnd, 文本型
.局部变量 DJRRR, 文本型
.局部变量 DJRet, 文本型, , "0"
.局部变量 DJRet1, 文本型, , "0"
.局部变量 DJRet2, 文本型
.局部变量 DJReturn, 文本型
.局部变量 DJReturn1, 文本型, , "0"
.局部变量 DJReturn2, 文本型, , "0"
.局部变量 DJReturn3, 文本型, , "0"
.局部变量 DJReturn4, 文本型
.局部变量 Recv, 文本型
.局部变量 djRecvText, 文本型, , "0"
.局部变量 djRecvText1, 文本型, , "0"
.局部变量 djRecvText2, 文本型, , "0"
.局部变量 hcRecv, 文本型
.局部变量 hcRecv1, 文本型
.局部变量 jsFile, 文本型
.局部变量 jswmaFile, 文本型
.局部变量 dj97Recv, 文本型
.局部变量 dj97Recv1, 文本型
.局部变量 dj97jsRecv, 文本型
.局部变量 dj97jsRecv1, 文本型
.局部变量 MixRecv, 文本型
.局部变量 MixRecv1, 文本型
.局部变量 MvpRecv, 文本型
.局部变量 MvpRecv1, 文本型
.局部变量 djkkRecv, 文本型
.局部变量 djkkRecv1, 文本型
.局部变量 djkkjsRecv, 文本型
.局部变量 djkkjsRecv1, 文本型
.如果真 (Url.内容 ＝ “”)
信息框 (“没输入东西...”, #错误图标, )
返回 ()
.如果真结束
.如果真 (mode.现行选中项 ＝ 0)
Normal ＝ 到文本 (HTTP读文件 (Url.内容))
延迟 (100)
.如果真 (寻找文本 (Normal, “hi193”, , 假) ＝ -1)
信息框 (“你输入的不是你选择的地址”, #错误图标, “Error”)
返回 ()
.如果真结束
temphi193 ＝ 分割文本 (Normal, “<param name=”, )
tempshi193 ＝ 分割文本 (temphi193 , “value=”, )
endx ＝ 子文本替换 (tempshi193 , #引号, “”, , , 真)
endz ＝ 子文本替换 (endx, “>”, , , , 真)
endz ＝ “http://hi193.com/” ＋ endz
延迟 (100)
Download.内容 ＝ 到文本 (HTTP读文件 (endz))
.如果真结束
.如果真 (mode.现行选中项 ＝ 1)
djkkRecv ＝ 到文本 (HTTP读文件 (Url.内容))
延迟 (100)
.如果真 (寻找文本 (djkkRecv, “djkk”, , 假) ＝ -1)
信息框 (“你输入的不是你选择的地址”, #错误图标, “Error”)
返回 ()
.如果真结束
djkkRecv1 ＝ 取文本中间2 (djkkRecv, “m4a: s_str+” ＋ #引号, #引号)
' js解析开始
' djkkjsRecv ＝ 到文本 (HTTP读文件 (“http://www.djkk.com/inc/js.js”))
' djkkjsRecv1 ＝ 取文本中间2 (djkkjsRecv, “var s_str=” ＋ #引号, #引号 ＋ “;”)
djkkjsRecv1 ＝ “http://mp.djkk.com/m4a”
Download.内容 ＝ djkkjsRecv1 ＋ djkkRecv1
.如果真结束
.如果真 (mode.现行选中项 ＝ 2)' 92CC
ccLink ＝ 到文本 (HTTP读文件 (Url.内容))
延迟 (100)
.如果真 (寻找文本 (ccLink, “92cc”, , 假) ＝ -1)
信息框 (“你输入的不是你选择的地址”, #错误图标, “Error”)
返回 ()
.如果真结束
Return ＝ 分割文本 (ccLink, “var danceFilePath =”, )
Return2 ＝ 分割文本 (Return , #引号 ＋ “;”, )
Return3 ＝ 分割文本 (Return2 , “var fmpObj”, )' Return3 输出歌曲ID号
Return4 ＝ 子文本替换 (Return3 , #引号, , , , 真)' Return4 获取到的歌曲id号
MPCrack ＝ 到文本 (HTTP读文件 (“http://92static.db-cache.com/mp/mp.js”))
MPReturn ＝ 分割文本 (MPCrack, “src=”, )
MPReturn1 ＝ 分割文本 (MPReturn , “ type=”, )
MPReturn2 ＝ 分割文本 (MPReturn1 , “e/”, )
MPReturn3 ＝ 分割文本 (MPReturn2 , “.m”, )
MPReturnEnd ＝ MPReturn2 ＋ “e/” ＋ Return4 ＋ “.m” ＋ MPReturn3
MPReturnEnd ＝ 子文本替换 (MPReturnEnd, #引号, , , , 真)
MPReturnEnd ＝ 子文本替换 (MPReturnEnd, “ ”, , , , 真)
Download.内容 ＝ MPReturnEnd
.如果真结束
.如果真 (mode.现行选中项 ＝ 3)
DJRRR ＝ 到文本 (HTTP读文件 (Url.内容))
延迟 (100)
.如果真 (寻找文本 (DJRRR, “djrrr”, , 假) ＝ -1)
信息框 (“你输入的不是你选择的地址”, #错误图标, “Error”)
返回 ()
.如果真结束
DJRet ＝ 分割文本 (DJRRR, “<param name=”, )
DJRet1 ＝ 分割文本 (DJRet , “value=”, )
DJRet2 ＝ 子文本替换 (DJRet1 , #引号, “”, , , 真)
DJRet2 ＝ 子文本替换 (DJRet2, “>”, , , , 真)
DJReturn ＝ 到文本 (HTTP读文件 (“http://djrrr.com/” ＋ DJRet2))
DJReturn1 ＝ 分割文本 (DJReturn, “<copyright>cd_webname - cd_weburl</copyright>”, )
DJReturn2 ＝ 分割文本 (DJReturn1 , “ />”, )
输出调试文本 (DJReturn2 )
DJReturn3 ＝ 分割文本 (DJReturn2 , “<ref href=”, )
DJReturn4 ＝ 子文本替换 (DJReturn3 , #引号, “”, , , 真)
Download.内容 ＝ DJReturn4
各位看完基本知道这玩意是怎么解析出来了的吧。
谢谢分享，大概看懂了一点点 大哥啊，怎么你还不更新，清风网啊，{:1_923:}
页:
[1]