精选公文范文管理资料
抓取动网论坛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
出处
[键入文字] [键入文字] [键入文字]
易探云怎么样?易探云隶属于纯乐电商旗下网络服务品牌,香港NTT Communications合作伙伴,YiTanCloud Limited旗下合作云计算品牌,数十年云计算行业经验。发展至今,我们已凝聚起港内领先的开发和运维团队,积累起4年市场服务经验,提供电话热线/在线咨询/服务单系统等多种沟通渠道,7*24不间断服务,3分钟快速响应。目前,易探云提供香港大带宽20Mbps、16G DDR3内存、...
Sharktech荷兰10G带宽的独立服务器月付319美元起,10Gbps共享带宽,不限制流量,自带5个IPv4,免费60Gbps的 DDoS防御,可加到100G防御。CPU内存HDD价格购买地址E3-1270v216G2T$319/月链接E3-1270v516G2T$329/月链接2*E5-2670v232G2T$389/月链接2*E5-2678v364G2T$409/月链接这里我们需要注意,默...
百纵科技:美国高防服务器,洛杉矶C3机房 独家接入zenlayer清洗 带金盾硬防,CPU全系列E52670、E52680v3 DDR4内存 三星固态盘阵列!带宽接入了cn2/bgp线路,速度快,无需备案,非常适合国内外用户群体的外贸、搭建网站等用途。C3机房,双程CN2线路,默认200G高防,3+1(高防IP),不限流量,季付送带宽美国洛杉矶C3机房套餐处理器内存硬盘IP数带宽线路防御价格/月套...