 减小字体
 增大字体
代码如下， 用记事本等文本编辑工具，保存成 dv.vbs
在使用之前，需要你先到那个论坛，注册个用户然后登陆进去
使用方法： c:\cscript dv.vbs 就可以了。
'搜集的 email 地址的保存位置
strFile = "d:\email.txt"
srtUrl = "http://bbs.aaa.com"
iStart = 1 '用户ID最小值
iEnd = 1000 '用户ID最大值
For i=iStart to iEnd
strUrl1 = strUrl &
"/dispuser.asp?id=" & cstr(i)
strRet = OpenUrl(strurl1)
strRet =
getMid(strRet,"mailto:",">") '这个地方可能需要灵活做一些改变
If i mod 100=0 then
call WriteToFile(strFile,strA)
strA = ""
else
if strRet"" then strA = strA
& strRet & vbCrLf
end if
Wscript.Echo i
& vbTab & strRet
Next
Sub WriteToFile(strFile,str)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f =
fso.OpenTextFile(strfile, 8, True)
f.Write str
set f= nothing
set fso=nothing
End Sub
Function bytes2BSTR(vIn)
Dim i
strReturn =
""
For i = 1 To LenB(vIn)
ThisCharCode =
AscB(MidB(vIn,i,1))
If ThisCharCode 0
Then
j = InStr(i, str,
str2)
If j > 0
Then
str11
= Mid(str, i + Len(str1), j - i -
Len(str1))
End If
End If
getMid =
str11
End Function
（出处： |
设为首页
加入收藏
联系我们
站内广告
相关技术