รหัสเพื่อจับที่อยู่อีเมลของฟอรัม Dongwang
/**
ผู้แต่ง: Ci Qinqiang
อีเมล: [email protected]
**/
ช่วงนี้ผมกำลังคิดว่าจะโปรโมทเว็บใหม่ http://www.up114.com ยังไงดี
การเพิ่มประสิทธิภาพกลไกค้นหาเป็นตัวเลือกแรก แต่คุณไม่สามารถละทิ้งการส่งจดหมายจำนวนมากได้ แม้ว่าการส่งจดหมายจำนวนมากจะถูกดูหมิ่น ตราบ
ใดที่คุณเลือกเป้าหมายของการส่งจดหมายจำนวนมากและส่งน้อยลง ก็ควรจะไม่เป็นไร :=—— .
ดังนั้นฉันจึงพบฟอรัมในหัวข้อที่เกี่ยวข้อง ซึ่งส่วนใหญ่เป็นฟอรัม Dongwang ตอนนี้ฉันต้อง
รวบรวมที่อยู่อีเมลของผู้ใช้ฟอรัม นอกจากนี้ยังมีเครื่องมือพิเศษที่ขายทางออนไลน์ แต่วันนี้เราจะเขียนเครื่องมือเล็ก ๆ ด้วยตนเองซึ่งก็สามารถบรรลุได้เช่นกัน เป้าหมายเดียวกัน
รหัสมีดังนี้ ใช้เครื่องมือแก้ไขข้อความเช่น Notepad เพื่อบันทึกเป็น dv.vbs
ก่อนใช้งานคุณต้องไปที่ฟอรัมลงทะเบียนเป็นผู้ใช้และเข้าสู่ระบบ
การใช้งาน: c:cscript dv.vbs ใช้ได้
'ตำแหน่งที่เก็บข้อมูลของที่อยู่อีเมลที่รวบรวม
strFile = "d:email.txt"
srtUrl = " http://bbs.aaa.com "
iStart = 1 'มูลค่าขั้นต่ำของ ID ผู้ใช้
iEnd = 1,000 'มูลค่าสูงสุดของ ID ผู้ใช้For
i= iStart ถึง iEnd
strUrl1 = strUrl & "/dispuser.asp?id=" & cstr(i)
strRet = OpenUrl(strurl1)
strRet = getMid(strRet,"mailto:",">") 'สถานที่นี้อาจจำเป็นต้องเปลี่ยนแปลงอย่างยืดหยุ่น
ถ้าฉัน mod 100=0 แล้ว
เรียก WriteToFile(strFile,strA)
STRA = ""
อื่น
ถ้า strRet<>"" ดังนั้น strA = strA & strRet & vbCrLf
สิ้นสุดถ้า
Wscript.Echo ฉัน & vbTab & strRet
ถัดไป
ย่อย WriteToFile (strFile, str)
สลัว fso, f
ตั้งค่า fso = CreateObject("Scripting.FileSystemObject")
ตั้งค่า f = fso.OpenTextFile (strfile, 8, True)
ฉ เขียน str
ตั้งค่า f= ไม่มีอะไร
ตั้งค่า fso=nothing
จบหมวดย่อย
ฟังก์ชั่น bytes2BSTR(vIn)
ดิม ไอ
strReturn = ""
สำหรับ i = 1 ถึง LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
ถ้า ThisCharCode < &H80 แล้ว
strReturn = strReturn & Chr(ThisCharCode)
อื่น
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
ฉัน = ฉัน + 1
สิ้นสุดถ้า
ต่อไป
bytes2BSTR = strReturn
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น OpenUrl(strUrl)
บนข้อผิดพลาดดำเนินการต่อ
ชุดถัดไป xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "GET",(strUrl),เท็จ
xmlhttp.ส่ง
OpenUrl=bytes2BSTR(xmlhttp.ResponseBody)
ตั้งค่า xmlhttp = ไม่มีเลย
ฟังก์ชันสิ้นสุด
ฟังก์ชัน getMid(str, str1, str2)
ดิม ไอ
เจ
str11 = ""
i = InStr(str, str1)
ถ้าฉัน > 0 แล้ว
เจ = InStr(i, str, str2)
ถ้า j > 0 แล้ว
str11 = กลาง(str, i + Len(str1), j - i - Len(str1))
สิ้นสุดถ้า
สิ้นสุดถ้า
getMid = str11
ฟังก์ชันสิ้นสุด