ฉันไม่รู้ว่าคุณคุ้นเคยกับ msxml2.xmlhttp หรือไม่ แต่ฟังก์ชั่นของมันสามารถกล่าวได้ว่าอยู่ในระดับสูง คุณสามารถใช้มันเพื่อ "ย้ายกลับ" เว็บไซต์ของคนอื่นฮ่าฮ่าคุยโว !!
วันนี้ฉันจะใช้มันเพื่อรับ Avatar หมายเลข QQ จากเว็บไซต์ Tencent สถานการณ์ออนไลน์ (ฉันไม่สามารถทำได้หากมีคนมองไม่เห็น) แน่นอนคุณยังสามารถรับชื่อเล่น QQ ที่ตั้ง ฯลฯ วิธีการใช้งานเฉพาะมีดังนี้:
สร้างสองฟังก์ชั่นก่อนเพื่อประมวลผล URL
การคัดลอกรหัสมีดังนี้:
-
FunctionGetHttppage (URL)
dimhttp
setthttp = createObject ("msxml2.xmlhttp")))
http.open "get", url, false
http.send ()
ifhttp.readystate <> 4 จากนั้น
exitfunction
endif
gethttppage = bytes2bstr (http.responsebody)
setthttp = ไม่มีอะไร
iferr.number <> 0thenerr.Clear
endfunction
'' '' '' '' อักขระการประมวลผลต่อไปนี้
FunctionByTes2BSTR (VIN)
dimstrreturn
DiMi, ThisChode, NextCharcode
strreturn = ""
fori = 1tolenb (vin)
thischArcode = ascb (midb (vin, i, 1))
ifthisCharcode <& h80 จากนั้น
strreturn = Strreturn & Chr (ThisCharcode)
อื่น
NextCharcode = ASCB (MIDB (VIN, I+1,1)))
strreturn = strreturn & chr (clng (thischarcode)*& h100+cint (nextcharcode))
i = i+1
endif
ต่อไป
bytes2bstr = streturn
endfunction
-
คุณสามารถรวบรวมฟังก์ชั่นทั้งสองนี้ซึ่งใช้งานได้ดี
ก่อนอื่นคุณสามารถตรวจสอบที่อยู่นี้ http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816
(QQ เป็นของฉันเองฉันยุ่งมากทุกวันโปรดมีสติฮ่าฮ่าฉันยินดีเป็นอย่างยิ่งที่จะพูดคุยเกี่ยวกับปัญหา)
ด้านล่างเราจะได้รับข้อมูลผ่านการค้นหาเพื่อนของ Tencent
-
functionQqhead (qq)
url = "http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=" & qq
content = gethttppage (url)
iflen (เนื้อหา)> 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 = '" เนื้อหา & "' qq:" & qq & "
อื่น
qqhead = ""
endif
endfunction
'ตกลงงานเสร็จแล้ว ตอนนี้ทุกคนต้องเรียกมันว่า
Response.writeqqhead (5292816)
หาก Avatar QQ มีสีหมายความว่าเพื่อนออนไลน์และสีเทาไม่ได้ออนไลน์
-
คุณสามารถไปที่ http://www.okwest.net/books เพื่อดูเอฟเฟกต์ ฮ่าฮ่า.