لقد كتبت للتو برنامج سرقة، وفجأة وجدت أنه لا يمكن التقاط المحتوى عند النشر باللغة الصينية. وبالنظر إلى مشكلة الترميز الصيني، مثل الهروب () في جافا سكريبت، يمكن أيضًا استخدام هذه الوظيفة في vbscript لالتقاطه بشكل طبيعي، احصل على إرسال المحتوى (A=&escape(A)&&escape(B))
نسميها اليوم!
مرفق العديد من الوظائف التي يشيع استخدامها من قبل اللصوص
الدالة ByteToStr(vIn)
خافت strReturn،i،ThisCharCode،innerCode،Hight8،Low8،NextCharCode
strReturn =
لأني = 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، خطأ،،
.setRequestHeader نوع المحتوى، application/x-www-form-urlencoded
.إرسال (بوستستر)
GetURL = .ResponseBody
نهاية مع
تعيين الاسترجاع = لا شيء
GetURL=ByteToStr(GetURL)
وظيفة النهاية
الدالة RegExpText(strng,regStr)
التعابير المنطقية الخافتة، المطابقة، التطابقات، RetStr
قم بتعيين regEx = New RegExp
regEx.Pattern = regStr
regEx.IgnoreCase = صحيح
regEx.Global = صحيح
تعيين التطابقات = regEx.Execute(strng)
لكل مباراة في المباريات
RetStr = RetStr & Match.Value &،
التالي
RegExpText = RetStr
تعيين regEx=لا شيء
وظيفة النهاية
الاستخدام:
خافت PostStr، getContent، getArea
PostStr = action=mobile&mobile=&MobileNumber
getContent = GetURL(http://www.ip138.com:8080/search.asp,PostStr)
getArea = Replace(Replace(Replace(RegExpText(getContent, موقع رقم البطاقة</TD>((.|/n)*?)</TD>), موقع رقم البطاقة</TD>,),<عرض TD =* محاذاة=center class=tdc2>,),</TD>,,)
الاستجابة.الكتابة (getArea)