键入抓取动网论坛 Email 地址的一段代码源码精华教程

精选公文范文管理资料

抓取动网论坛Email地址

的一段代码源码精华教程代码如下 用记事本等文本编辑工具保存成dv.vb s

在使用之前需要你先到那个论坛注册个用户然后登陆进去

使用方法 c:\cscript dv.vbs就可以了。

‟搜集的e m ai l地址的保存位置strFile=“d:\email.txt”srtUrl =“http://bbs.aaa.com”„>http://bbs.aaa.com”iStart=1 „用户ID最小值iEnd=1000 „用户ID最大值

For i=iStart to iEndstrUrl1=strUrl

”/dispuser.asp?id=“ cstr(i)strRet=OpenUrl(strurl 1)

[键入文字] [键入文字] [键入文字]

精选公文范文管理资料strRet=getMi d(strRet,”mailto:”,”>“) ‟这个地方可能需要灵活做一些改变

If i mod 100=0 thencall WriteToFile(strFile,strA)strA=““elseif strRet”“then strA=strAstrRet vbCrLfendif

Wscript.Echo ivbTab strRet

Next

Sub WriteToFile(strFile,str)

Dim fso,f

Set fso =CreateObj ect(“S cripting.File SystemObj ect”)

Set f=fso.OpenTe xtF ile(strfile,8,True)

[键入文字] [键入文字] [键入文字]

精选公文范文管理资料f.Write strset f=nothingset fso=nothing

End Sub

Function bytes2BSTR(vIn)

Dim istrReturn=

”“

For i=1 To LenB(vIn)

ThisCharCode=

As cB(MidB(vIn,i,1))

If ThisCharCode 0

Thenj=InStr(i, str,str2)

Ifj>0

Thenstr11

=Mid(str, i+Len(str1),j iLen(str1))

End If

[键入文字] [键入文字] [键入文字]

精选公文范文管理资料

End IfgetMid=str11

End Function

出处

[键入文字] [键入文字] [键入文字]