ฉันเพิ่งเขียนโปรแกรมขโมย และทันใดนั้นฉันก็พบว่าเนื้อหาไม่สามารถบันทึกได้เมื่อโพสต์เป็นภาษาจีน เมื่อพิจารณาถึงปัญหาการเข้ารหัสภาษาจีน เช่น Escape() ในจาวาสคริปต์ ฟังก์ชันนี้ก็สามารถใช้ได้ใน vbscript เท่านั้น เพื่อจับภาพตามปกติ รับเนื้อหา send(A=&escape(A)&&escape(B))
โทรเลยสักวัน!
สิ่งที่แนบมาด้วยคือฟังก์ชันหลายอย่างที่โจรใช้กันทั่วไป
ฟังก์ชั่น ByteToStr (vIn)
Dim strReturn, i, ThisCharCode, รหัสภายใน, Hight8, Low8, NextCharCode
strReturn=
สำหรับ i = 1 ถึง LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
ถ้า ThisCharCode < &H80 แล้ว
strReturn = strReturn & Chr(ThisCharCode)
อื่น
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
ฉัน = ฉัน + 1
สิ้นสุดถ้า
ต่อไป
ByteToStr = strReturn
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น GetURL (url, PostStr)
ตั้งค่าการเรียกข้อมูล = Server.CreateObject(Microsoft.XMLHTTP)
ด้วยการเรียกค้น
.เปิด POST, url, false , ,
.setRequestHeader Content-Type,application/x-www-form-urlencoded
.ส่ง(PostStr)
GetURL = .ResponseBody
จบด้วย
ตั้งค่าการดึงข้อมูล = ไม่มีเลย
GetURL=ByteToStr(GetURL)
ฟังก์ชันสิ้นสุด
ฟังก์ชัน RegExpText(strng,regStr)
Dim regEx, แมตช์, แมตช์, RetStr
ตั้งค่า regEx = RegExp ใหม่
regEx.Pattern = regStr
regEx.IgnoreCase = จริง
regEx.Global = จริง
ตั้งค่าการจับคู่ = regEx.Execute(strng)
สำหรับการแข่งขันแต่ละครั้งในการแข่งขัน
RetStr = RetStr & Match.Value & ,
ต่อไป
RegExpText = RetStr
ตั้งค่า regEx=nothing
ฟังก์ชันสิ้นสุด
การใช้งาน:
Dim PostStr,getContent,getArea
PostStr = action=mobile&mobile=&MobileNumber
getContent = GetURL (http://www.ip138.com:8080/search.asp,PostStr)
getArea = แทนที่(แทนที่(แทนที่(RegExpText(getContent, ตำแหน่งของหมายเลขบัตร</TD>((.|/n)*?)</TD>), ตำแหน่งของหมายเลขบัตร</TD>,),<ความกว้าง TD =* align=center class=tdc2>,),</TD>,,)
การตอบกลับเขียน (getArea)