PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong'声明SubClearDups(lstAsControl,comptypeAsBoolean)Dimi,j,tmp$(),cID,lstCount,sComptype,tmpLine$lst.Visible=FalselstCount=lst.ListCount-1IflstCount<0ThenExitSubReDimtmp(lstCount)IfcomptypeThensComptype=0ElsesComptype=1Forj=lstCountTo0Step-1tmpLine=lst.List(j)Fori=0TocID-1IfStrComp(tmp(i),tmpLine,sComptype)=0Thenlst.RemoveItemjExitForEndIfNextIfi>cID-1Thentmp(cID)=tmpLinecID=cID+1EndIfNextlst.Visible=TrueEndSubFunctionChkList()AsBooleanDimmAsIntegerForm=0ToList1.ListCount-1IfList1.List(m)=zihaoThenChkList=FalseElseChkList=TrueEndIfNextEndFunctionPublicFunctionFindStrMulti$(Strall$,FirstStr$,EndStr$,SplitStr$)Dimi,jj=1Doi=InStr(j,Strall,FirstStr)Ifi=0ThenExitDoEndIfi=i+Len(FirstStr)j=InStr(i,Strall,EndStr)Ifj>0ThenFindStrMulti=IIf(Len(FindStrMulti)>0,FindStrMultiSplitStr,"")Mid(Strall,i,j-i)ElseExitDoEndIfLoopEndFunctionPrivateSubCommand1_Click()WebBrowser1.NavigateText1.TextCallCommand2_ClickLabel1.Visible=TrueEndSubPrivateSubCommand2_Click()OnErrorResumeNextFori=0ToWebBrowser1.Document.links.Length-1DimzihaoAsStringIfInStr(WebBrowser1.Document.links.Item(i),"ww2po激e/forum.php?mod=redirectgoto=findpostptid=")Thenzihao=WebBrowser1.Document.links.Item(i).innerText"--"WebBrowser1.Document.getelementbyid("postmessage_"FindStrMulti(WebBrowser1.Document.links.Item(i)"abc","pid=","abc","")).innerTextIfList1.ListCount=0ThenList1.AddItemzihaoIfChkList=TrueThenList1.AddItemzihaoEndIfNextiEndSubPrivateSubCommand3_Click()DimsT!sT=TimerClearDupsList1,TrueLabel1.Caption="本帖回复"List1.ListCount"次/"Int(List1.ListCount/10)+1"页"EndSubPrivateSubCommand4_Click()OnErrorResumeNextDimoutdatatxtAsStringOpen"d:\回复记录.txt"ForOutputAs#1Fori=0ToList1.ListCount-1Print#1,List1.List(i)NextiClose#1MsgBox"已保存在“d:\回复记录.txt”中",,"提示"EndSubPrivateSubCommand5_Click()OnErrorResumeNextFori=0ToList1.ListCount-1DimmAsStringm=FindStrMulti(List1.List(i)"ENTER","--","ENTER","")DimSumSum=0Forc=1ToLen(m)Char=Mid(m,c,1)If(AscW(Char)>-40870AndAscW(Char)<-19967)Or(AscW(Char)<40870AndAscW(Char)>19967)ThenSum=Sum+1EndIfNextcIfSum<=1ThenList2.AddItemList1.List(i)EndIfNextiIfList2.ListCount=0ThenMsgBox"貌似本帖无人灌水、",,"好现象"EndIfEndSubPrivateSubForm_Load()WebBrowser1.Navigate"ww2po激e/"EndSubPrivateSubLabel3_Click()OnErrorResumeNextShellExecute0,"open","blog.sina/s/blog_92b6d74d01012s3r",vbNullString,vbNullString,3EndSubPrivateSubText1_Change()IfList1.ListCount<>0ThenFora=List1.ListCount-1To0Step-1List1.RemoveItem(a)NextaEndIfIfList2.ListCount<>0ThenFora=List2.ListCount-1To0Step-1List2.RemoveItem(a)NextaEndIfLabel1.Caption=""WebBrowser1.Navigate"about:blank"EndSubPrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1)EndSubPrivateSubWebBrowser1_DocumentComplete(ByValpDispAsObject,URLAsVariant)Fori=0ToWebBrowser1.Document.links.Length-1IfWebBrowser1.Document.links.Item(i).innerText="下一页"ThenWebBrowser1.NavigateWebBrowser1.Document.links.Item(i)EndIfNextiCallCommand2_ClickEndSub
