【百度贴吧会员采集器】 - TC官方合作论坛

//开始采集
function btnCaiJi_click()
userCount=type.cint(statictext.gettext("lblUserCount"))
int beginPage=0
int endPage=0
beginPage=type.cint(edit.gettext("txtBeginPage"))
endPage=type.cint(edit.gettext("txtEndPage"))
if(beginPage<=endPage)
insterBefor=edit.gettext("txtInsterBefor")
insterEnd=edit.gettext("txtInsterEnd")
net.wsastartup()
while(beginPage<endPage)
url="http://tieba.baidu.com/f/like/manage/list?kw="&edit.gettext("txtTieBaName")&"&pn="&beginPage
strs=net.urlgetnetrequest(url,3)
贴吧会员采集器.GetName()
beginPage=beginPage+1
endwhile
net.close()
else
help.messagebox("开始页不能大于结束页")
endif
statictext.settext("lblUserCount",userCount)
endfunction
//获取名称
function GetName()
while(strs!="")
userName=str.strsub(strs,str.findstr(strs,"username=")+10,str.strleng(strs))
userName=str.strsub(userName,0,str.findstr(userName,"src=")-2)
if(userName!="")
if(str.strleng(userName)<30)
edit.settext("txtHtmls",edit.gettext("txtHtmls")&insterBefor&userName&insterEnd&"\r\n")
strs=str.strsub(strs,str.findstr(strs,"username=")+10,str.strleng(strs))
userCount=userCount+1
else
strs=""
endif
else
strs=""
userName=""
endif
endwhile
endfunction
//清空文本
function btnClear_click()
edit.settext("txtHtmls","")
statictext.settext("lblUserCount",0)
endfunction
//翻倍
function btnPageFanBei_click()
beginPage=type.cint(edit.gettext("txtBeginPage"))
endPage=type.cint(edit.gettext("txtEndPage"))
edit.settext("txtBeginPage",endPage+1)
edit.settext("txtEndPage",endPage+endPage-beginPage+1)
endfunction

复制代码