黑历史:在 Flash 里手撕 HTML 与 JSON

2017 年 04 月 14 日

2010 年,还是小学生的我,为了开发更好的 Flash 应用,决定使用一些知名网站的结果,实现我的梦想!

我很早就学会了 JavaScript 的 splitjoin 方法,然而我想用一些替换功能,把 HTML 的一些段落替换掉再拆解。我开动脑洞,发明了这个:

replace = function (a, b, c) {
    return a.split(b).join(c);
};

下面让我介绍一些成功故事(

2012:贴吧帖子列表读取

当时我想抓取特定贴吧上的所有帖子,因为一些帖子会被吧务删掉,但我又不会其它语言,就用 Flash 做了一个。结果坑没填完,我放弃了,贴吧页面板式也变了,它失效了。

System.useCodepage = true;
function replace(a, b, c) {
    return a.split(b).join(c);
}
function del(a, b, n) {
    return a.split(b)[n];
}
function rdmtxt(num:Number) {
    r = "`1234567890-=\qwertyuiop[]asdfghjkl;'zxcvbnm,./~!@#$%^&*()_+|QWERTYUIOP{}ASDFGHJKL:\"ZXCVBNM<>?";
    r = r.split("");
    rr = "";
    for (z=0; z<num; z++) {
        rr += r[random(r.length)];
    }
    return rr;
}
var now:Number = 0;
var dc:Number = 0;
var dddd:String = "";
function readTB(tbn,nn) {
    trace(1);
    var 度娘:LoadVars = new LoadVars();
    度娘.load("http://tieba.baidu.com/f?kw="+escape(tbn)+"&pn="+nn*50+"&"+Math.random());
    度娘.onData = function(dat) {
        ia = '<a href="/p/';
        ib = rdmtxt(20);
        dd = dat;
        trace(dd);
        dd = del(dd, '<div id="thread_list" class="thread_list">', 1);
        dd = replace(dd, "  ", "");
        dd = replace(dd, "\n", "");
        dd = replace(dd, "\r", "");
        trace(dd);
        for (i=0; i<256; i++) {
            dd = replace(dd, '</a></td><td nowrap>'+i, ib+""+i);
        }
        dd = replace(dd, '</a></td><td nowrap>', "");
        dd = replace(dd, '</a></td></tr><tr  class="thread_alt" tid="', "");
        dd = replace(dd, '<a href="/i/sys/jump?un=', ib);
        dd = replace(dd, '" target="_blank">', ib);
        for (i=0; i<24; i++) {
            if (i<10) {
                dd = replace(dd, '.*0'+i+':', ".*"+ib);
            } else {
                dd = replace(dd, '.*'+i+':', ".*"+ib);
            }
        }
        dd = replace(dd, '</a>[<span class="red">精品</span>] ', "[精品]");
        dd = replace(dd, '</a>[<span class="red">置顶</span>] ', "[置顶]");
        dd = replace(dd, '[<span class="red">置顶</span>] ', "[置顶]");
        dd = replace(dd, '<img class="ding_icon" src="http://static.tieba.baidu.com/tb/img/frs/icon_ding.gif?v=3"  title="很多人顶" stats-data="fr=tb0_forum&st_mod=frs&st_type=comtip" stats-event="mouseover" />', "[很多人顶]");
        dd = replace(dd, '</td><td nowrap>', "");
        dd = replace(dd, '</a>[<span class="green">投票</span>] ', "[投票]");
        for (i=1; i<13; i++) {
            dd = replace(dd, '.*'+i+'-', ".*"+ib);
        }
        var dd2:Array = dd.split(ia);
        var tieba:Array = new Array();
        dd2.shift();
        dd2.pop();
        for (i=0; i<dd2.length; i++) {
            dd3 = dd2[i].split(ib);
            tieba[i] = new Object({id:dd3[0], threadtitle:dd3[1], louzhu:unescape(dd3[2])});
            trace(tieba[i].id+"|"+tieba[i].threadtitle+"|"+tieba[i].louzhu);
        }
    }
}
readTB("永吧大水库",0);

2012:手撕百度云实现外链解析

半成品,仅适用于 2012 年内测版本的百度云。过了一段时间这半成品完全废了。

function rdmtxt(num:Number) {
    r = "`1234567890-=\qwertyuiop[]asdfghjkl;'zxcvbnm,./~!@#$%^&*()_+|QWERTYUIOP{}ASDFGHJKL:\"ZXCVBNM<>?";
    r = r.split("");
    rr = "";
    for (z=0; z<num; z++) {
        rr += r[random(r.length)];
    }
    return rr;
}
rePlace = function (a, b, c) {
    return a.split(b).join(c);
};
jdglfh = function(){
    var glfh:String = rdmtxt(10);
    var glfh1:String = rdmtxt(10);
    if(glfh == glfh1){//好吧,我承认这种情况发生几乎不可能
        jdglfh();
    }
}
getBaidu = function (aaaa) {
    jdglfh();
    k = new LoadVars();
    k.load("http://pan.baidu.com/netdisk/extractpublic?username="+aaaa);
    trace(aaaa);
    k.onLoad = function(scs) {
        if (!scs) {
            trace("未能连接到度娘网盘");
            parseBaidu = false;
        }
    };
    k.onData = function(aaa) {
        trace("网页部分完成");
        var u0:Array = new Array();
        //trace(aaa);
        asd = rePlace(asd, '\/', '');
        asd = rePlace(asd, '"fs_id":"', glfh);
        asd = rePlace(asd, '}]");/*]]>*/</script>', glfh);
        asd = rePlace(asd, '","s3_handle":"', glfh2);
        asd = rePlace(asd, '","size":', glfh2);
        u0 = asd.split(glfh);
        u0.shift();
        u0.pop();
        trace(u0);
    };
};
getBaidu("tcdw2011");

2012:手撕 115 JSON 实现外链解析

我没有外链空间又想做 Flash 在线播放器,于是通过解析 115 外链,在 Flash 中实现了播放在 115 网盘分享的 MP3。

然而几个月以后就失效了。

// 此段代码略去了若干关于播放器本体的逻辑

rr = function (a, b, c) {
    return a.split(b).join(c);
};
get115link = function (aaaa) {
    k = new LoadVars();
    k.load("http://115.com/file/"+aaaa);
    trace(aaaa);
    k.onData = function(aaa) {
        trace("网页部分完成");
        asd = aaa;
        asd = rr(asd, ' url: "', glfh);
        asd = rr(asd, '",', glfh);
        u0 = asd.split(glfh);
        grl("http://115.com"+u0[1]);
    };
};
grl = function (kk) {
    asd = "";
    r = new LoadVars();
    r.load(kk);
    r.onData = function(aaa) {
        asd = aaa;
        trace("读地址部分完成");
        asd = rr(asd, ',"url":"', glfh);
        asd = rr(asd, '","desc":"', glfh2);
        asd = rr(asd, '","weight":', glfh);
        asd = rr(asd, '\/', "/");
        asd = rr(asd, '//', "/");
        u0 = asd.split(glfh);
        asdasd0 = u0[1].split(glfh2)[0];
        asdasd1 = u0[3].split(glfh2)[0];
        trace(asdasd0);
        trace(asdasd1);
        my_sound = new Sound();
        my_sound.loadSound(asdasd0,true);
        my_sound.start(0,1);
        // 后略
    };
};

2011:手撕 QQ 空间背景音乐列表

我很久以前就 公开发布过,不过还没有考虑拿去做完整的 Flash 播放器,因为有防盗链限制。

2010:手撕 soso 音乐 HTML 搜索结果

也是为了制作播放器。

第一帧

stop();
//按 Unicode 进行编码
System.useCodepage = true;
var aa:String = "";
//临时记录搜索结果
var mp3Data:String;
var maxSearch:Number = 20;
var str:String = "";
//记录搜索所得的歌曲数量
var now:Number = 1;

function 找内容(str1, str2) {
    var _l3 = str1.length;
    var _l2 = mp3Data.indexOf(str1, 0)+_l3;
    var _l1 = mp3Data.indexOf(str2, _l2);
    var _l4 = mp3Data.slice(_l2, _l1);
    return (_l4);
}
function 转换为数字(cont) {
    var _l2 = cont.indexOf("约", 0);
    if (_l2>=0) {
        var _l1 = cont.slice(1);
    }
    _l1 = _l1.split(",").join("");
    return (Number(_l1));
}
function qieChu(s:String, k:String, j:String):String {
    var nK:Number = s.indexOf(k);
    var sK:String = s.substr(nK+k.length);
    var nJ:Number = sK.indexOf(j);
    mp3Data = sK.substr(nJ+j.length);
    return (sK.substr(0, nJ));
}
function replace(a, b, c) {
    d = a.split(b).join(c);
    return d;
}
function searchMp3(sPost:String, page:Number):Void {
    str = "";
    now = 1;
    searchData.text = "";
    mp3Data = "";
    aa = sPost;
    var my_lv = new LoadVars();
    //发送URL请求
    my_lv.load("http://cgi.music.soso.com/fcgi-bin/m.q?w="+sPost+"&p="+page+"&source=1&t=0");
    //当数据加载成功时
    onEnterFrame = function () {
        load1 = int(my_lv.getBytesLoaded()/my_lv.getBytesTotal()*100);
        searchData.text = "数据下载"+load1+"%";
    };
    my_lv.onData = function(soso_html:String):Void  {
        delete onEnterFrame;
        searchData.text = "下载完毕,正在分析...";
        //转义十六进制序列字符串。将搜索结果转为小写,便于提取。
        var s:String = soso_html.toLowerCase();
        trace(soso_html);
        //解析加载的数据
        mp3Data = s;
        gotoAndPlay(2);
    };
}

第二帧

if (mp3Data.indexOf(aa) == -1) {
 searchData.text = "没有找到与 ["+aa+"] 相关的歌曲信息!";
 stop();
}
var mp3Str:String = qieChu(mp3Data, '<td class="data">', '</td>');
//str += mp3Str + "\r\n";
var a:Array = mp3Str.split("@@");
var b:Array = new Array();
for(i = 0; i < a.length; i++){
    if(a[i] == ""){
        b.push("无");
    } else {
        b.push(a[i]);
    }
}
mp3Name = b[1];
mp3Album = b[2];
mp3Singer = b[3];
//提取MP3地址,这是最难的
//删除垃圾
b[8] = replace(b[8], "fi", "");
b[8] = replace(b[8], ";;|si", "==");
b[8] = replace(b[8], ";;", "==");
b[8] = replace(b[8], ";", "==");
b[8] = replace(b[8], ";|qq", "==");
b[8] = replace(b[8], "|qq", "==");
b[8] = replace(b[8], "|an", "==");
b[8] = replace(b[8], "====", "==");
b[8] = replace(b[8], "==|||", "==");
b[8] = replace(b[8], "====", "==");
b[8] = replace(b[8], "==|==", "==");
b[8] = replace(b[8], "?httpd%", "==");
b[8] = replace(b[8], "==|", "==");
b[8] = replace(b[8], "?httpd", "");
b[8] = replace(b[8], "si", "");
//清除空白数组
var c:Array = b[8].split("==");
var d:Array = new Array();
for(i = 0; i < c.length; i++){
    if(c[i] == ""){
    } else {
        d.push(c[i]);
    }
}
//清除非MP3地址
var e:Array = new Array();
for(i = 0; i < d.length; i++){
    if(d[i].indexOf(".mp3") == -1 || d[i].indexOf(".MP3") == -1){
    } else {
        e.push(d[i]);
    }
}
//清除没有“http://”的地址
var mp3URL:Array = new Array();
for(i = 0; i < e.length; i++){
    if(e[i].indexOf("http://", 0) == -1){
    } else {
        mp3URL.push(e[i]);
    }
}
//大功告成!
str += "歌曲名:" + mp3Name + "\n";
str += "专辑:" + mp3Album + "\n";
str += "歌手:" + mp3Singer + "\n";
str += "地址组:" + mp3URL.join("|") + "\r\n";

野心

制作一个带音乐搜索、LRC 展示、高级管理功能的 Flash 音乐盒,震撼闪吧人。

然后这个坑一直推了下去,直到 Flash 没落。

rofl