لا أعرف ما إذا كنت على دراية بـ MSXML2.xmlHTTP ، ولكن يمكن القول أن وظائفها في أقصى الحدود. يمكنك استخدامه "للتراجع" على مواقع الآخرين ، هاها ، التباهي !!
اليوم سأستخدمه للحصول على رقم QQ Avatar من موقع Tencent. الموقف عبر الإنترنت (لا يمكنني فعل ذلك إذا كان شخص ما غير مرئي). بالطبع ، يمكنك أيضًا الحصول على لقب QQ والموقع وما إلى ذلك. طريقة التنفيذ المحددة هي كما يلي:
قم بإنشاء وظيفتين أولاً لمعالجة عنوان URL
نسخة الكود كما يلي:
<٪
FunctionGethTtppage (URL)
DIMHTTP
setThttp = createObject ("msxml2.xmlhttp")
http.Open "get" ، url ، false
http.send ()
ifhttp.readyState <> 4then
exitfunction
Endif
gethtpage = bytes2bsstr (http.responsebody)
setThttp = لا شيء
iferr.number <> 0thenerr.clear
الوظيفية
'' '' '' أحرف المعالجة التالية
functionBytes2bst (VIN)
dimstreturn
Dimi ، thischarcode ، NextCharcode
streturn = ""
fori = 1tolenb (vin)
thischarcode = ASCB (MIDB (VIN ، I ، 1))
IfThischarcode <& h80then
Streturn = Streturn & CHR (thischarcode)
آخر
NextCharCode = ASCB (MIDB (VIN ، I+1،1))
Streturn = Streturn & CHR (CLNG (thischarcode)*& H100+Cint (NextCharCode))
i = i+1
Endif
التالي
bytes2bstr = streturn
الوظيفية
٪>
يمكنك جمع هاتين وظيفتين ، والتي هي ذات فائدة كبيرة.
يمكنك أولاً مراجعة هذا العنوان
(QQ هو بلدي. أنا مشغول جدا كل يوم. من فضلك كن واعيا. هاها ، أنا نرحب جدا لمناقشة القضايا)
أدناه سوف نحصل على معلومات من خلال البحث عن صديق Tencent.
<٪
FunctionQQhead (QQ)
url = "http://friend.qq.com/cgi-bin/friend/oicq_find؟oicq_no=" & qq
المحتوى = gethttppage (url)
Iflen (Content)> 6360then'If QQ غير صالح ، قم ببعض المعالجة لتجنب الأخطاء.
content = استبدال (mid (المحتوى ، instr (المحتوى ، "http://img.tencent.com") ، 38) ، "" ، "")
qqhead = "<ahref = 'http: //friend.qq.com/cgi-bin/friend/user_show_info؟ ln =" & qq & "' target = '_ blank'> <imgsrc = '" & content & "' quq:"
آخر
qqhead = ""
Endif
الوظيفية
"حسنًا ، تم تنفيذ الوظيفة. الآن الجميع بحاجة فقط للاتصال به.
استجابة. writeqqqhead (5292816)
إذا كان Avatar QQ ملونًا ، فهذا يعني أن الصديق متصل بالإنترنت ، وأن الرمادي ليس عبر الإنترنت.
٪>
يمكنك الانتقال إلى http://www.okwest.net/books لمعرفة التأثير. هاها.