dj舞曲网部分源代码开了....文字版 超简单

asd9988

.版本 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 [2], “value=”, )
    endx ＝ 子文本替换 (tempshi193 [2], #引号, “”, , , 真)
    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 [2], #引号 ＋ “;”, )
    Return3 ＝ 分割文本 (Return2 [1], “var fmpObj”, )  ' Return3 [1] 输出歌曲ID号
    Return4 ＝ 子文本替换 (Return3 [1], #引号, , , , 真)  ' Return4 获取到的歌曲id号

    MPCrack ＝ 到文本 (HTTP读文件 (“http://92static.db-cache.com/mp/mp.js”))
    MPReturn ＝ 分割文本 (MPCrack, “src=”, )
    MPReturn1 ＝ 分割文本 (MPReturn [2], “ type=”, )
    MPReturn2 ＝ 分割文本 (MPReturn1 [1], “e/”, )
    MPReturn3 ＝ 分割文本 (MPReturn2 [2], “.m”, )
    MPReturnEnd ＝ MPReturn2 [1] ＋ “e/” ＋ Return4 ＋ “.m” ＋ MPReturn3 [2]
    MPReturnEnd ＝ 子文本替换 (MPReturnEnd, #引号, , , , 真)
    MPReturnEnd ＝ 子文本替换 (MPReturnEnd, “ ”, , , , 真)
    Download.内容 ＝ MPReturnEnd
.如果真结束
.如果真 (mode.现行选中项 ＝ 3)
    DJRRR ＝ 到文本 (HTTP读文件 (Url.内容))
    延迟 (100)
    .如果真 (寻找文本 (DJRRR, “djrrr”, , 假) ＝ -1)
        信息框 (“你输入的不是你选择的地址”, #错误图标, “Error”)
        返回 ()
    .如果真结束
    DJRet ＝ 分割文本 (DJRRR, “<param name=”, )
    DJRet1 ＝ 分割文本 (DJRet [2], “value=”, )
    DJRet2 ＝ 子文本替换 (DJRet1 [2], #引号, “”, , , 真)
    DJRet2 ＝ 子文本替换 (DJRet2, “>”, , , , 真)
    DJReturn ＝ 到文本 (HTTP读文件 (“http://djrrr.com/” ＋ DJRet2))
    DJReturn1 ＝ 分割文本 (DJReturn, “<copyright>cd_webname - cd_weburl</copyright>”, )
    DJReturn2 ＝ 分割文本 (DJReturn1 [3], “ />”, )
    输出调试文本 (DJReturn2 [1])
    DJReturn3 ＝ 分割文本 (DJReturn2 [1], “<ref href=”, )
    DJReturn4 ＝ 子文本替换 (DJReturn3 [2], #引号, “”, , , 真)
    Download.内容 ＝ DJReturn4

各位看完基本知道这玩意是怎么解析出来了的吧。

nightwish12075

谢谢分享，大概看懂了一点点

qq718088196

大哥啊，怎么你还不更新，清风网啊，