Я только что написал программу-вор и вдруг обнаружил, что контент не может быть захвачен при отправке POST на китайском языке. Учитывая проблему с китайской кодировкой, например escape() в javascript, эту функцию также можно использовать в vbscript. Вам нужно только отправить. его для нормального захвата. Получите содержимое send(A=&escape(A)&&escape(B))
На этом хватит!
Прилагается несколько функций, часто используемых ворами.
Функция ByteToStr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
стрReturn =
Для i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Если ЭтотCharCode < &H80 Тогда
стрReturn = strReturn & Chr(ThisCharCode)
Еще
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
я = я + 1
Конец, если
Следующий
ByteToStr = стрReturn
Конечная функция
Функция GetURL(url,PostStr)
Установить получение = Server.CreateObject(Microsoft.XMLHTTP)
С поиском
.Открыть POST, URL, false , ,
.setRequestHeader Content-Type,application/x-www-form-urlencoded
.Send(ПостСтр)
GetURL = .ResponseBody
Конец с
Установить получение = Ничего
GetURL=ByteToStr(GetURL)
Конечная функция
Функция RegExpText(strng,regStr)
Dim regEx,Match,Matches,RetStr
Установить регулярное выражение = Новое регулярное выражение
regEx.Pattern = regStr
regEx.IgnoreCase = Истина
regEx.Global = Истина
Установить совпадения = regEx.Execute(strng)
За каждый матч в матчах
RetStr = RetStr & Match.Value & ,
Следующий
РегЭкспТекст = РетСтр
установить regEx=ничего
Конечная функция
использование:
Тусклый PostStr, getContent, getArea
PostStr = action=mobile&mobile=&MobileNumber
getContent = GetURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = replace(Replace(Replace(RegExpText(getContent, расположение номера карты</TD>((.|/n)*?)</TD>), расположение номера карты</TD>,),<ширина TD =* align=center class=tdc2>,),</TD>,,)
Response.Write(getArea)