快手論壇帖子監(jiān)視小工具 代碼分享

PostioV2.0.0.180 綠色版

• 類型：文本編輯大小：87KB語(yǔ)言：中文 評(píng)分：5.0
• 標(biāo)簽：

立即下載

 /*   
* 功能：監(jiān)視論壇1分鐘前的帖子，不過(guò) VIP區(qū)域無(wú)法監(jiān)視
* 作者: cbtan
* 日期：2010-12-15
* 備注: 練習(xí)快手之用
*/
import win.ui;
import inet.http;
import process;
Beep = ::Kernel32.api("Beep","int(int,int)")
/*DSG{{*/
var winform = win.form(parent=...; bottom=371;topmost=1;right=340;text="帖子監(jiān)視小工具" )
winform.add(
checkbox={ checked=1;bottom=337;right=171;left=22;top=318;font=LOGFONT( name="宋體";h=-12 );z=4;text="單擊打開(kāi)網(wǎng)頁(yè)并刪除列表";cls="checkbox" };
button={ bottom=348;right=323;left=234;top=317;font=LOGFONT( name="宋體";h=-12 );z=2;text="開(kāi)始監(jiān)視";cls="button" };
static={ bottom=31;color=0;right=265;left=86;top=11;font=LOGFONT( name="宋體";h=-14;out=3;family=2;clip=2;quality=1 );z=3;text="快手論壇帖子監(jiān)視小工具";transparent=1;cls="static" };
listbox={
items={  };bgcolor=16777215;bottom=304;color=255;right=326;left=17;top=34;font=LOGFONT( name="宋體";h=-14;out=3;family=2;clip=2;quality=1 );z=1;text="listbox";edge=1;cls="listbox" };
checkbox2={ checked=1;bottom=356;text="開(kāi)啟新帖子提示音";left=23;top=339;font=LOGFONT( name="宋體";h=-12 );z=5;right=157;cls="checkbox" }
)
/*}}*/

http=inet.http()
links={}

/*
查找links鍵,如果沒(méi)這個(gè)鍵
下載link匹配出標(biāo)題，將標(biāo)題寫(xiě)入links值中，link寫(xiě)入鍵中
添加進(jìn)listbox中
*/
scan=function(link){
    if(not links[link]){
        bt=http.down("http://" + link)
        bt=string.match(bt,"\<title\>(.*?)\s-\s")
        links[link]=bt
        winform.listbox.add(bt,1)
        if(winform.checkbox2.checked=true){
            Beep(1500,100); //提示音
        }
    }
}

//下載匹配出1分鐘前的帖子鏈接

開(kāi)始=function(zt){
    while( win.delay(1) ){
        select(zt) {
            case "1" {
                web=http.down("http://www.aau.cn/forum.php")
                for m in string.gmatch(web,"\<a.*?\<\/span\>") {
                    if(string.match(m,"\>1\&"+"nbsp\;分鐘前")){
                    win.delay(1)
                    link=string.match(m,
                    "www\.aau\.cn\/forum\-redirect\-tid\-\d+\-goto\-lastpost\.html\#lastpost")
                        if(#link){
                            scan(link)
                        }
                    }
                }
                win.delay(50*1000)//延時(shí)50秒
            }
            case "0" {
                win.delay(1)
            }   
        }
    }
}

//listbox操作
winform.listbox.wndproc = function(hwnd,message,wparam,lparam){
    select(message) {
        case 0x202{
            for(k,v in links){
                if(winform.listbox.selText==v){
                    if(winform.checkbox.checked=true){
                        process.execute(k)
                    }
                    links[k]=null
                }
            }
            winform.listbox.delete()   
        }
    }
}


//開(kāi)始監(jiān)視控件
winform.button.oncommand = function(id,event){
    if(winform.button.text="開(kāi)始監(jiān)視"){
        winform.button.text="暫停監(jiān)視"
        開(kāi)始("1")
    }
    else {
        winform.button.text="開(kāi)始監(jiān)視"
        開(kāi)始("0")
    }   
}
winform.show()
win.loopMessage();
return winform;

將

scan(link)

直接修改成

process.execute(link)

其他的都刪除，包含窗體一切不需要的東西！

快手(AAuto Quicker) V0.57 最新版下載：http://elephantinaurance.com/soft/5900.html