동왕포럼의 이메일 주소를 캡쳐하는 코드
/**
작성자: Ci Qinqiang
이메일: [email protected]
**/
최근에 저는 우리의 새로운 웹사이트인 http://www.up114.com 을 홍보하는 방법에 대해 고민하고 있습니다.
검색 엔진 최적화가 당연히 1순위인데, 대량 메일을 버릴 수는 없잖아요. 대량 메일 발송도 멸시되긴 하지만,
대량 메일 발송 대상을 선택하고 적게 보내기만 하면 괜찮을 텐데요, :=—— .
그래서 관련 주제에 대한 포럼을 찾았는데 그 중 대부분이 동왕 포럼입니다. 이제
포럼 사용자의 이메일 주소를 수집해야 합니다. 온라인으로 판매되는 특별한 도구도 있지만 오늘은 이를 달성할 수 있는 작은 도구를 직접 작성하겠습니다. 같은 목표.
코드는 다음과 같습니다. 메모장 등의 텍스트 편집 도구를 사용하여 dv.vbs로 저장한
후, 포럼에 접속하여 사용자 등록을 해야 합니다.
사용법: c:cscript dv.vbs는 괜찮습니다.
'수집된 이메일 주소 저장 위치
strFile = "d:email.txt"
srtUrl = " http://bbs.aaa.com "
iStart = 1 '사용자 ID의 최소값
iEnd = 1000 '사용자 IDFor의 최대값
i= iStart에서 iEnd까지
strUrl1 = strUrl & "/dispuser.asp?id=" & cstr(i)
strRet = OpenUrl(strurl1)
mod 100=0이면
이 장소를 유연하게 변경해야 할 수도 있습니다.
WriteToFile(strFile,strA)를 호출합니다.
strA = ""
또 다른
if strRet<>""이면 strA = strA & strRet & vbCrLf
종료하면
Wscript.Echo i & vbTab & strRet
다음
하위 WriteToFile(strFile,str)
희미한 fso, f
fso = CreateObject("Scripting.FileSystemObject") 설정
f = fso.OpenTextFile(strfile, 8, True) 설정
f.str 쓰기
f= 아무것도 설정하지 않음
fso=아무것도 설정하지 않음
서브 끝
함수 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),false
xmlhttp.send
OpenUrl=bytes2BSTR(xmlhttp.ResponseBody)
xmlhttp = 없음 설정
종료 함수
함수 getMid(str, str1, str2)
나는 어둡다
j
str11 = ""
나는 = InStr(str, str1)
만약 i > 0이면
j = InStr(i, str, str2)
j > 0이면
str11 = Mid(str, i + Len(str1), j - i - Len(str1))
종료 조건
종료 조건
getMid = str11
기능 종료