Un fragmento de código para capturar la dirección de correo electrónico del Foro Dongwang
/**
Autor: Ci Qinqiang
Correo electrónico: [email protected]
**/
Recientemente, he estado pensando en cómo promocionar nuestro nuevo sitio web, http://www.up114.com .
La optimización de motores de búsqueda es, naturalmente, la primera opción, pero no puede dejar de lado el correo masivo. Aunque se desprecia el correo masivo,
siempre que seleccione el destino del correo masivo y envíe menos, debería estar bien: =—— .
Entonces encontré algunos foros sobre temas relacionados, muchos de los cuales son foros de Dongwang. Ahora necesito
recopilar las direcciones de correo electrónico de los usuarios del foro. También hay herramientas especiales que se venden en línea, pero hoy escribiremos una pequeña herramienta que también podemos lograr. el mismo efecto.
El código es el siguiente. Utilice herramientas de edición de texto como el Bloc de notas para guardarlo como dv.vbs.
Antes de usarlo, debe ir al foro, registrarse como usuario e iniciar sesión.
Uso: c:cscript dv.vbs está bien.
'La ubicación de almacenamiento de las direcciones de correo electrónico recopiladas
strFile = "d:email.txt"
srtUrl = " http://bbs.aaa.com "
iStart = 1 'Valor mínimo de ID de usuario
iEnd = 1000 'Valor máximo de ID de usuarioFor
i= iComienzo a iFin
strUrl1 = strUrl & "/dispuser.asp?id=" & cstr(i)
strRet = OpenUrl(strurl1)
strRet = getMid(strRet,"mailto:",">") 'Es posible que este lugar deba cambiarse de manera flexible
si modifico 100=0, entonces
.
llamar a WriteToFile(strFile,strA)
cadenaA = ""
demás
si strRet<>"" entonces strA = strA & strRet & vbCrLf
terminar si
Wscript.Echo i & vbTab & strRet
Siguiente
SubWriteToFile(strFile,str)
tenue fso, f
Establecer fso = CreateObject("Scripting.FileSystemObject")
Establecer f = fso.OpenTextFile(strfile, 8, Verdadero)
f.Escribir str
establecer f = nada
establecer fso = nada
Subtítulo final
Función bytes2BSTR(vIn)
Yo tenue
strRetorno = ""
Para i = 1 a LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Si ThisCharCode < & H80 Entonces
strReturn = strReturn & Chr(ThisCharCode)
Demás
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
yo = yo + 1
Terminar si
Próximo
bytes2BSTR = strReturn
Función final
Función OpenUrl(strUrl)
en caso de error Reanudar siguiente
Establecer xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "OBTENER",(strUrl),falso
xmlhttp.enviar
OpenUrl=bytes2BSTR(xmlhttp.ResponseBody)
Establecer xmlhttp = Nada
Función final
Función getMid(str, str1, str2)
Yo tenue
j
cadena11 = ""
yo = InStr(cadena, cadena1)
Si i > 0 entonces
j = InStr(i, cadena, cadena2)
Si j > 0 Entonces
str11 = Medio(str, i + Len(str1), j - i - Len(str1))
Terminar si
Terminar si
obtenerMid = str11
Función final