【百度贴吧会员采集器】

yangfusheng

1. //开始采集
   
2. function btnCaiJi_click()   
   
3.     userCount=type.cint(statictext.gettext("lblUserCount"))
   
4.     int beginPage=0
   
5.     int endPage=0
   
6.     beginPage=type.cint(edit.gettext("txtBeginPage"))
   
7.     endPage=type.cint(edit.gettext("txtEndPage"))  
   
8.    
   
9.     if(beginPage<=endPage)
   
10.         insterBefor=edit.gettext("txtInsterBefor")
    
11.         insterEnd=edit.gettext("txtInsterEnd")
    
12.         net.wsastartup()        
    
13.         while(beginPage<endPage)
    
14.             url="http://tieba.baidu.com/f/like/manage/list?kw="&edit.gettext("txtTieBaName")&"&pn="&beginPage   
    
15.             strs=net.urlgetnetrequest(url,3)
    
16.             贴吧会员采集器.GetName()  
    
17.             beginPage=beginPage+1
    
18.         endwhile
    
19.         net.close()
    
20.     else
    
21.         help.messagebox("开始页不能大于结束页")
    
22.     endif
    
23.    
    
24.     statictext.settext("lblUserCount",userCount)
    
25. endfunction
    
26. 
    
27. 
    
28. //获取名称
    
29. function GetName()
    
30.     while(strs!="")
    
31.         userName=str.strsub(strs,str.findstr(strs,"username=")+10,str.strleng(strs))
    
32.         userName=str.strsub(userName,0,str.findstr(userName,"src=")-2)
    
33.         if(userName!="")
    
34.             if(str.strleng(userName)<30)
    
35.                 edit.settext("txtHtmls",edit.gettext("txtHtmls")&insterBefor&userName&insterEnd&"\r\n")
    
36.                 strs=str.strsub(strs,str.findstr(strs,"username=")+10,str.strleng(strs))
    
37.                  userCount=userCount+1  
    
38.             else
    
39.                 strs=""
    
40.             endif
    
41.         else
    
42.             strs=""
    
43.             userName=""
    
44.         endif
    
45.     endwhile
    
46.    
    
47. endfunction
    
48. 
    
49. //清空文本
    
50. function btnClear_click()
    
51.     edit.settext("txtHtmls","")
    
52.     statictext.settext("lblUserCount",0)
    
53. endfunction
    
54. 
    
55. //翻倍
    
56. function btnPageFanBei_click()
    
57.     beginPage=type.cint(edit.gettext("txtBeginPage"))
    
58.     endPage=type.cint(edit.gettext("txtEndPage"))
    
59.     edit.settext("txtBeginPage",endPage+1)
    
60.     edit.settext("txtEndPage",endPage+endPage-beginPage+1)
    
61. endfunction

复制代码

百度网盘下载地址 http://pan.baidu.com/share/link? ... 82&uk=538748136

13857750526

沙发真舒服

今非

学习学习

蓝色侠客

学习学习

853692686

学习