Je viens d'écrire un programme voleur, et du coup j'ai découvert que le contenu ne pouvait pas être capturé lors du POST en chinois. Compte tenu du problème d'encodage chinois, comme escape() en javascript, cette fonction peut également être utilisée en vbscript. pour capturer normalement. Obtenez le contenu send(A=&escape(A)&&escape(B))
Arrêtez-vous !
Ci-joint plusieurs fonctions couramment utilisées par les voleurs
Fonction ByteToStr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strRetour =
Pour i = 1 À LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Si ThisCharCode < &H80 Alors
strReturn = strReturn & Chr(ThisCharCode)
Autre
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
je = je + 1
Fin si
Suivant
OctetVersStr = strReturn
Fonction de fin
Fonction GetURL(url,PostStr)
Définir la récupération = Server.CreateObject (Microsoft.XMLHTTP)
Avec récupération
.Ouvrez POST, url, false , ,
.setRequestHeader Content-Type,application/x-www-form-urlencoded
.Envoyer(PostStr)
GetURL = .ResponseBody
Terminer par
Définir la récupération = Rien
GetURL=ByteToStr(GetURL)
Fonction de fin
Fonction RegExpText(strng,regStr)
Dim regEx, Match, Correspondances, RetStr
Définir regEx = Nouvelle RegExp
regEx.Pattern = regStr
regEx.IgnoreCase = Vrai
regEx.Global = Vrai
Définir les correspondances = regEx.Execute(strng)
Pour chaque match dans les matchs
RetStr = RetStr & Match.Value & ,
Suivant
RegExpText = RetStr
définir regEx = rien
Fonction de fin
usage:
Dim PostStr, getContent, getArea
PostStr = action=mobile&mobile=&MobileNumber
getContent = GetURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = Replace(Replace(Replace(RegExpText(getContent, l'emplacement du numéro de carte</TD>((.|/n)*?)</TD>), l'emplacement du numéro de carte</TD>,),<largeur TD =* align=center class=tdc2>,),</TD>,,)
Réponse.Write(getArea)