XMLHTTP が POST を使用してフォームを送信する場合に中国語を送信する際の問題

泥棒プログラムを作成したところ、中国語で POST するときにコンテンツをキャプチャできないことがわかりました。JavaScript のエスケープ() と同様に、この関数は vbscript でも使用できます。通常どおりにコンテンツを取得します send(A=&escape(A)&&escape(B))

もう終わりにしましょう！

泥棒がよく使ういくつかの機能が付属しています

関数 ByteToStr(vIn)

Dim strReturn、i、ThisCharCode、innerCode、Hight8、Low8、NextCharCode

strReturn =

For i = 1 から LenB(vIn)

ThisCharCode = AscB(MidB(vIn,i,1))

If ThisCharCode < &H80 then

strReturn = strReturn & Chr(ThisCharCode)

それ以外

NextCharCode = AscB(MidB(vIn,i+1,1))

strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

i = i + 1

終了の場合

次

ByteToStr = strReturn

終了機能

関数 GetURL(url,PostStr)

取得 = Server.CreateObject(Microsoft.XMLHTTP) を設定します。

検索あり

.Open POST、url、false、、

.setRequestHeader Content-Type、application/x-www-form-urlencoded

.Send(PostStr)

GetURL = .ResponseBody

で終わる

取得 = なしを設定します

GetURL=ByteToStr(GetURL)

終了機能

関数 RegExpText(strng,regStr)

Dim regEx、Match、Matches、RetStr

正規表現 = 新しい正規表現を設定します

regEx.Pattern = regStr

regEx.IgnoreCase = True

regEx.Global = True

一致を設定 = regEx.Execute(strng)

試合中の各試合について

RetStr = RetStr & Match.Value & ,

次

RegExpText = RetStr

regEx=何も設定しない

終了機能

使用法：

Dim PostStr、getContent、getArea

PostStr = アクション=モバイル&モバイル=&モバイル番号

getContent = GetURL(http://www.ip138.com:8080/search.asp,PostStr)

getArea = Replace(Replace(RegExpText(getContent, カード番号の位置</TD>((.|/n)*?)</TD>), カード番号の位置</TD>,),<TD width =* align=center class=tdc2>,),</TD>,,)

応答.書き込み(getArea)