Dongwang Forum の電子メール アドレスを取得するコード
/**
著者: Ci Qinqiang
電子メール: [email protected]
**/
最近、私たちの新しいウェブサイトhttp://www.up114.com をどのように宣伝するかを考えています。
検索エンジンの最適化は当然のことながら、大量メールを手放すことはできません。大量メールは軽蔑されますが、
大量メールの対象を選択し、送信量を減らす限り、問題はありません。:=—— 。
そこで、関連トピックに関するフォーラムをいくつか見つけました。その多くは Dongwang フォーラムです。
オンラインで販売されている特別なツールもありますが、今日はそれを実現できる小さなツールを作成します。同じ効果です。
コードは次のとおりです。メモ帳などのテキスト編集ツールを使用して、dv.vbs として保存します。
使用する前に、フォーラムにアクセスし、ユーザーとして登録し、ログインする必要があります。
使用法: c:cscript dv.vbs は問題ありません。
'収集したメールアドレスの保存場所
strFile = "d:email.txt"
srtUrl = " http://bbs.aaa.com "
iStart = 1 'ユーザーIDの最小値
iEnd = 1000 'ユーザーIDの最大値For
i= iStart から iEnd
strUrl1 = strUrl & "/dispuser.asp?id=" & cstr(i)
strRet = OpenUrl(strurl1)
mod 100=0 の場合、
この場所は柔軟に変更する必要があるかもしれません。
WriteToFile(strFile,strA) を呼び出す
strA = ""
それ以外
if strRet<>"" then strA = strA & strRet & vbCrLf
終了する場合
Wscript.Echo i & vbTab & strRet
次へ
サブ WriteToFile(strFile,str)
薄暗い fso、f
Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.OpenTextFile(strfile, 8, True) を設定します。
f.str を書き込みます
f= 何も設定しない
fso=何も設定しない
エンドサブ
関数 bytes2BSTR(vIn)
ディム・アイ
strReturn = ""
For i = 1 から LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 then
strReturn = strReturn & Chr(ThisCharCode)
それ以外
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
終了の場合
次
bytes2BSTR = strReturn
終了機能
関数 OpenUrl(strUrl)
エラー発生時 再開 次の
設定 xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "GET",(strUrl),false
xmlhttp.send
OpenUrl=bytes2BSTR(xmlhttp.ResponseBody)
xmlhttp = なしを設定します
終了関数
Function getMid(str, str1, str2)
ディム・アイ
j
str11 = ""
i = InStr(str, str1)
i > 0 の場合
j = InStr(i, str, str2)
j > 0 の場合
str11 = Mid(str, i + Len(str1), j - i - Len(str1))
終了の場合
終了の場合
getMid = str11
終了機能