精选公文范文管理资料
抓取动网论坛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
出处
[键入文字] [键入文字] [键入文字]
justhost怎么样?justhost是一家俄罗斯主机商,2006年成立,提供各种主机服务,vps基于kvm,有HDD和SSD硬盘两种,特色是200Mbps不限流量(之前是100Mbps,现在升级为200Mbps)。下面是HDD硬盘的KVM VPS,性价比最高,此外还有SSD硬盘的KVM VPS,价格略高。支持Paypal付款。国内建议选择新西伯利亚或者莫斯科DataLine。支持Paypal付...
justhost.ru官方来消息说已经对网络进行了比较全面的优化,针对中国电信、联通、移动来说,4个机房总有一个适合中国用户,让站长进行一下测试,这不就有了这篇有关justhost的VPS的第四次测评。本帖主要关注的是网络,对于其他的参数一概不管! 官方网站:https://justhost.ru 最低配VPS:8.3元/月,KVM,512M内存,5G硬盘,200M带宽,不限流量 购买链接:...
spinservers是Majestic Hosting Solutions,LLC旗下站点,主营美国独立服务器租用和Hybrid Dedicated等,spinservers这次提供的大硬盘、大内存服务器很多人很喜欢。TheServerStore自1994年以来,它是一家成熟的企业 IT 设备供应商,专门从事二手服务器和工作站业务,在德克萨斯州拥有40,000 平方英尺的仓库,库存中始终有数千台...