/*
* 功能：監(jiān)視論壇1分鐘前的帖子，不過 VIP區(qū)域無法監(jiān)視
* 作者: cbtan
* 日期：2010-12-15
* 備注: 練習快手之用
*/
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="單擊打開網頁并刪除列表";cls="checkbox" };
button={ bottom=348;right=323;left=234;top=317;font=LOGFONT( name="宋體";h=-12 );z=2;text="開始監(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="開啟新帖子提示音";left=23;top=339;font=LOGFONT( name="宋體";h=-12 );z=5;right=157;cls="checkbox" }
)
/*}}*/
http=inet.http()
links={}
/*
查找links鍵,如果沒這個鍵
下載link匹配出標題，將標題寫入links值中，link寫入鍵中
添加進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分鐘前的帖子鏈接
開始=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)//延時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()
}
}
}
//開始監(jiān)視控件
winform.button.oncommand = function(id,event){
if(winform.button.text="開始監(jiān)視"){
winform.button.text="暫停監(jiān)視"
開始("1")
}
else {
winform.button.text="開始監(jiān)視"
開始("0")
}
}
winform.show()
win.loopMessage();
return winform;
將
scan(link)
直接修改成
process.execute(link)
其他的都刪除，包含窗體一切不需要的東西！
快手(AAuto Quicker) V0.57 最新版下載：http://www.ksks6.com/soft/5900.html
喜歡 
頂
難過
囧
圍觀
無聊
