自动发表QQ空间说说

require("gb2312toutf8")
local http = require "socket.http"
local surl = "http://www.jokeji.cn"
local function getUrl(c)
    if c:sub(,) == "/" then
        return surl .. c
    else
        return surl .. "/" .. c
    end
end
-- 发表说说
local QQfabiao = socket.protect(function(con)
    function fabiao(con)
        local t = {}
        local reqt = {
            url = "http://taotao.qzone.qq.com/cgi-bin/emotion_cgi_publish_v6?g_tk=881884919",
            sink = ltn12.sink.table(t)
        }
        local b = [[code_version=1&con=]] .. con ..[[&feedversion=1&format=fs&hostuin=1246747572&
paramstr=1&pic_template=&qzreferrer=http%3A%2F%2Fuser.qzone.qq.com%2F1246747572%2Finfo
center%3Fptsig%3D6JR2IckHBsW62y*a8Yyk-D5kl2*LY57C7ekyMPUwblQ_&richtype=&richval=&specia
l_url=&subrichtype=&syn_tweet_verson=1&to_sign=0&to_tweet=0&ugc_right=1&ver=1&who=1]]
        if b then
            reqt.source = ltn12.source.string(b)
            reqt.headers = {
                ["content-length"] = string.len(b),
                ["content-type"] = "application/x-www-form-urlencoded",
                ["cookie"] = "pgv_pvid=2921257289; pt2gguin=o1246747572;
ptcz=f19275426fb17fa422bc3db0ea1c152651d9c750dc26c80c5e96540ad52e53a6;
o_cookie=; RK=i3cumo4Hct; pgv_pvi=; p_o2_uin=;
ptui_loginuin=; qqmusic_uin=; qqmusic_key=;
qqmusic_fromtag=; pgv_info=ssid=s5823528911; skey=@dbKiNxZAF; ptisp=ctc;
uin=o1246747572; QZ_FE_WEBP_SUPPORT=; cpu_performance_v8=; __Q_w_s__QZN_TodoMsgCnt=;
__Q_w_s_hat_seed=; __Q_w_s__appDataSeed=; Loading=Yes; qzmusicplayer=qzone_player_1246747572_1455773155776;
blabla=dynamic; zzpaneluin=; zzpanelkey=; p_skey=b78i01A*1Yq-*TEtkbR6QRPA3dIZIrjhnmmAyz8UW7g_;
pt4_token=TZ8e*Y1mPItaWRJU4ROK62LyO5gycJyNsDHyXA-GV4A_; p_uin=o1246747572"
            }
            reqt.method = "POST"
        end
        local code, headers, status = socket.skip(, http.trequest(reqt))
        return table.concat(t), code, headers, status
    end
    return fabiao(con)
end)
-- 延时n秒
local function sleep(n)
    if n<= then return end
    local cur = os.time()
    while os.time() - cur ~= n do
    end
end
local body,ret = http.request(getUrl("list18_1.htm"))
body = mylib.gb2312toUtf8(body)
local filter = {}
filter["/jokehtml/ym/201602142231174.htm"] =
filter["/jokehtml/ym/2016020308024982.htm"] =
function getCon(body)
    for w in string.gmatch(body, "href=\"(.-)\"") do
        if string.find(w,".*%d.htm") then
            local body,ret = http.request(getUrl(w))
            if(body and #body> and not filter[w]) then
                body = mylib.gb2312toUtf8(body)
                if body:find("<P>") then
                    for w in string.gmatch(body, "<[pP]>(.-)</[pP]>") do
                        local s,_ = string.gsub(w,"<[aA].*</[aA]>","")
                        s = string.gsub(s,"<BR>","\n")
                        s = string.gsub(s,"<[spanSPAN]>.-</[spanSPAN]>","")
                        s = string.gsub(s,"%d+、","")
                        if(#s>) then
                            s = s .. "\n\n-------- 来自小强的爬虫 --------"
                        end
                        -- print(s)
                        local b,r = QQfabiao(s)
                        sleep()
                    end
                else
                    getCon(body)
                end
            end
        end
    end
end
getCon(body)