精选公文范文管理资料
抓取动网论坛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
出处
[键入文字] [键入文字] [键入文字]
公司成立于2007年,是国内领先的互联网业务平台服务提供商。公司专注为用户提供低价高性能云计算产品,致力于云计算应用的易用性开发,并引导云计算在国内普及。目前,旅途云公司研发以及运营云服务基础设施服务平台(IaaS),面向全球客户提供基于云计算的IT解决方案与客户服务,拥有丰富的国内BGP、双线高防、香港等优质的IDC资源。点击进入:旅途云官方网商家LOGO优惠方案:CPU内存硬盘带宽/流量/防御...
云基yunbase怎么样?云基成立于2020年,目前主要提供高防海内外独立服务器,欢迎各类追求稳定和高防优质线路的用户。业务可选:洛杉矶CN2-GIA+高防(默认500G高防)、洛杉矶CN2-GIA(默认带50Gbps防御)、香港CN2-GIA高防(双向CN2GIA专线,突发带宽支持,15G-20G DDoS防御,无视CC)。目前,美国洛杉矶CN2-GIA高防独立服务器,8核16G,最高500G ...
官方网站:https://www.shuhost.com/公司名:LucidaCloud Limited尊敬的新老客户:艰难的2021年即将结束,年终辞旧迎新之际,我们准备了持续优惠、及首月优惠,为中小企业及个人客户降低IT业务成本。我们将持续努力提供给客户更好的品质与服务,在新的一年期待与您有美好的合作。# 下列价钱首月八折优惠码: 20211280OFF (每客户限用1次) * 自助购买可复制...