Ich habe gerade ein Diebprogramm geschrieben und plötzlich festgestellt, dass der Inhalt beim Posten auf Chinesisch nicht erfasst werden konnte. In Anbetracht des chinesischen Codierungsproblems kann diese Funktion auch in VBScript verwendet werden Es soll normal erfasst werden. Holen Sie sich den Inhalt send(A=&escape(A)&&escape(B))
Machen Sie Schluss!
Im Anhang sind mehrere Funktionen aufgeführt, die häufig von Dieben genutzt werden
Funktion ByteToStr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn =
Für i = 1 Zu LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Wenn ThisCharCode < &H80 Dann
strReturn = strReturn & Chr(ThisCharCode)
Anders
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
ich = ich + 1
Ende wenn
Nächste
ByteToStr = strReturn
Funktion beenden
Funktion GetURL(url,PostStr)
Set Retrieval = Server.CreateObject(Microsoft.XMLHTTP)
Mit Abruf
.Öffnen Sie POST, URL, false , ,
.setRequestHeader Content-Type,application/x-www-form-urlencoded
.Send(PostStr)
GetURL = .ResponseBody
Ende mit
Abruf festlegen = Nichts
GetURL=ByteToStr(GetURL)
Funktion beenden
Funktion RegExpText(strng,regStr)
Dimmen Sie regEx,Match,Matches,RetStr
Setze regEx = New RegExp
regEx.Pattern = regStr
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strng)
Für jedes Spiel in Spielen
RetStr = RetStr & Match.Value & ,
Nächste
RegExpText = RetStr
setze regEx=nichts
Funktion beenden
Verwendung:
Dimmen Sie PostStr, getContent, getArea
PostStr = action=mobile&mobile=&MobileNumber
getContent = GetURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = Replacement(Replace(Replace(RegExpText(getContent, der Standort der Kartennummer</TD>((.|/n)*?)</TD>), der Standort der Kartennummer</TD>,),<TD width =* align=center class=tdc2>,),</TD>,,)
Response.Write(getArea)