精选公文范文管理资料
抓取动网论坛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
出处
[键入文字] [键入文字] [键入文字]
SugarHosts 糖果主机商也算是比较老牌的主机商,从2009年开始推出虚拟主机以来,目前当然还是以虚拟主机为主,也有新增云服务器和独立服务器。早年很多网友也比较争议他们家是不是国人商家,其实这些不是特别重要,我们很多国人商家或者国外商家主要还是看重的是品质和服务。一晃十二年过去,有看到SugarHosts糖果主机商12周年的促销活动。如果我们有需要香港、美国、德国虚拟主机的可以选择,他们家的...
野草云月末准备了一些促销,主推独立服务器,也有部分云服务器,价格比较有性价比,佣金是10%循环,如果有时间请帮我们推推,感谢!公司名:LucidaCloud Limited官方网站:https://www.yecaoyun.com/香港独立服务器:CPU型号内存硬盘带宽价格购买地址E3-1230v216G240GB SSD或1TB 企盘30M299元/月点击购买E5-265016G240GB SS...
NameSilo是通过之前的感恩节优惠活动中认识到这家注册商的,于是今天早上花了点时间专门了解了NameSilo优惠码和商家的详细信息。该商家只销售域名,他们家的域名销售价格还是中规中矩的,没有像godaddy域名标价和使用优惠之后的价格悬殊很大,而且其特色就是该域名平台提供免费的域名停放、免费隐私保护等功能。namesilo新注册域名价格列表,NameSilo官方网站:www.namesilo....