抓取动网论坛 Email 地址的一段代码

sunlei

  最近，一直想着怎么宣传我们的新网站，http://www.up114.com 。

搜索引擎优化自然是首选，可是也不能放过邮件群发，虽然邮件群发被人所不齿，

不过，只要选定了群发的对象，少发点，应该没什么吧，：=——。

所以就找了一些相关主题的论坛，好多都是动网的论坛，现在就是需要把论坛用户的Email地址

收集下来，网上也有卖专门的工具，不过今天我们就自己写个小工具，同样能够达到效果。

代码如下， 用记事本等文本编辑工具，保存成 dv.vbs

在使用之前，需要你先到那个论坛，注册个用户然后登陆进去

使用方法： c:\cscript dv.vbs 就可以了。

1. '搜集的 email 地址的保存位置
3. strFile = "d:\email.txt"
5. srtUrl = "[url]http://bbs.aaa.com[/url]"
7. iStart = 1 '用户ID最小值
9. iEnd = 1000 '用户ID最大值
11. For i=iStart to iEnd
14. strUrl1 = strUrl & "/dispuser.asp?id=" & cstr(i)
16. strRet = OpenUrl(strurl1)
18. strRet = getMid(strRet,"mailto:",">") '这个地方可能需要灵活做一些改变
20. If i mod 100=0 then
21. call WriteToFile(strFile,strA)
22. strA = ""
23. else
24. if strRet<>"" then strA = strA & strRet & vbCrLf
25. end if
27. Wscript.Echo i & vbTab & strRet
29. Next
31. Sub WriteToFile(strFile,str)
32. Dim fso, f
33. Set fso = CreateObject("Scripting.FileSystemObject")
34. Set f = fso.OpenTextFile(strfile, 8, True)
35. f.Write str
36. set f= nothing
37. set fso=nothing
38. End Sub
40. Function bytes2BSTR(vIn)
41. Dim i
42. strReturn = ""
43. For i = 1 To LenB(vIn)
44. ThisCharCode = AscB(MidB(vIn,i,1))
45. If ThisCharCode < &H80 Then
46. strReturn = strReturn & Chr(ThisCharCode)
47. Else
48. NextCharCode = AscB(MidB(vIn,i+1,1))
49. strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
50. i = i + 1
51. End If
52. Next
53. bytes2BSTR = strReturn
54. End Function
56. Function OpenUrl(strUrl)
58. on Error Resume Next
60. Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
61. xmlhttp.open "GET",(strUrl ),false
62. xmlhttp.send
63. OpenUrl=bytes2BSTR(xmlhttp.ResponseBody)
65. Set xmlhttp = Nothing
66. End Function
68. Function getMid(str, str1, str2)
69. Dim i
70. Dim j
71. str11 = ""
72. i = InStr(str, str1)
73. If i > 0 Then
74. j = InStr(i, str, str2)
75. If j > 0 Then
76. str11 = Mid(str, i + Len(str1), j - i - Len(str1))
77. End If
78. End If
79. getMid = str11
80. End Function

复制代码

xchange

大家小心自己的E-mail。

鹰

不懂怎么使用

枫叶小子

看懂了十个好方法可以做宣传了

飞影gg

好东西

oghuz

我也不懂  懂了先盗你的