Acabo de escribir un programa ladrón y de repente descubrí que el contenido no se podía capturar al publicar en chino. Teniendo en cuenta el problema de codificación en chino, como escape () en javascript, esta función también se puede usar en vbscript. para capturar normalmente. Obtenga el contenido enviado (A=&escape(A)&&escape(B)).
¡Terminar!
Se adjuntan varias funciones comúnmente utilizadas por los ladrones.
Función ByteToStr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
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
ByteToStr = strReturn
Función final
Función ObtenerURL(url,PostStr)
Establecer recuperación = Server.CreateObject(Microsoft.XMLHTTP)
Con recuperación
.Abrir POST, url, falso, ,
.setRequestHeader Tipo de contenido, aplicación/x-www-form-urlencoded
.Enviar(PostStr)
ObtenerURL = .ResponseBody
Terminar con
Establecer recuperación = nada
ObtenerURL=ByteToStr(ObtenerURL)
Función final
Función RegExpText(cadena,regStr)
Dim regEx, Match, Matches, RetStr
Establecer expresión regular = Nueva expresión regular
regEx.Patrón = regStr
regEx.IgnoreCase = Verdadero
regEx.Global = Verdadero
Establecer coincidencias = regEx.Execute(string)
Para cada partido en partidos
RetStr = RetStr & Coincidencia.Valor &,
Próximo
RegExpText = RetStr
establecer expresiones regulares = nada
Función final
uso:
Dim PostStr,getContent,getArea
PostStr = acción=móvil&móvil=&NúmeroMóvil
obtenerContenido = ObtenerURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = Reemplazar(Replace(Replace(RegExpText(getContent, la ubicación del número de tarjeta</TD>((.|/n)*?)</TD>), la ubicación del número de tarjeta</TD>,),<TD ancho =* align=centro clase=tdc2>,),</TD>,,)
Respuesta.Escribir(getArea)