방금 도둑 프로그램을 작성했는데 갑자기 중국어로 POST할 때 내용을 캡처할 수 없다는 것을 발견했습니다.javascript의 escape()과 같은 중국어 인코딩 문제를 고려하면 이 함수는 vbscript에서도 사용할 수 있습니다. 정상적으로 캡처하려면 콘텐츠를 가져오세요. send(A=&escape(A)&&escape(B))
하루 만에 전화하세요!
도둑이 자주 사용하는 몇 가지 기능이 첨부되어 있습니다.
함수 ByteToStr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
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
종료 조건
다음
ByteToStr = strReturn
기능 종료
함수 GetURL(url,PostStr)
검색 설정 = Server.CreateObject(Microsoft.XMLHTTP)
검색 포함
.POST 열기, URL, false , ,
.setRequestHeader Content-Type,application/x-www-form-urlencoded
.보내기(PostStr)
GetURL = .ResponseBody
끝
검색 설정 = 없음
GetURL=ByteToStr(GetURL)
기능 종료
함수 RegExpText(strng,regStr)
Dim regEx,일치,일치,RetStr
regEx = 새 RegExp 설정
regEx.Pattern = regStr
regEx.IgnoreCase = 참
regEx.Global = 참
일치 항목 설정 = regEx.Execute(strng)
경기의 각 경기에 대해
RetStr = RetStr & Match.Value & ,
다음
RegExpText = RetStr
regEx=아무것도 설정하지 않음
기능 종료
용법:
희미한 PostStr,getContent,getArea
PostStr = action=mobile&mobile=&MobileNumber
getContent = GetURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = 바꾸기(Replace(Replace(RegExpText(getContent, 카드 번호 위치</TD>((.|/n)*?)</TD>), 카드 번호 위치</TD>,),<TD 너비 =* align=center class=tdc2>,),</TD>,,)
응답.쓰기(getArea)