当前位置：首页 -> 技术开发 -> ASP专区 -> 通过MSXML2自动获取QQ个人头像及在线情况(给初学者)

通过MSXML2自动获取QQ个人头像及在线情况(给初学者)

时间： 2021-07-31 作者：daque

不领会大师对msxml2.xmlhttp是否很熟习,然而它的功效不妨说是到达了顶点.你不妨经过它把旁人的网站都"搬回顾",呵呵,吹嘘啦!!即日我就用它从腾讯网站获得一个qq号子的头像,在线情景(人家隐身了我也没方法).固然大师也不妨获得qq的昵称,地方地等.简直实行本领如次:先创造两个因变量,用来处置一个url<%function gethttppage(url)dim httpset http=createobject("msxml2.xmlhttp")http.open "get",url,falsehttp.send()if http.readystate<>4 then exit functionend ifgethttppage=bytes2bstr(http.responsebody)set http=nothingif err.number<>0 then err.clear end function'''''''以次处置字符function bytes2bstr(vin)dim strreturndim i,thischarcode,nextcharcodestrreturn = ""for i = 1 to lenb(vin)thischarcode = ascb(midb(vin,i,1))if thischarcode < &h80 thenstrreturn = strreturn & chr(thischarcode)elsenextcharcode = ascb(midb(vin,i+1,1))strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))i = i + 1end ifnextbytes2bstr = strreturnend function%>这两个因变量你不妨保藏起来,用途大得不得了.大师不妨先看看这个地方http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no=5292816(qq是自己的,我每天都很忙,请大师自愿,呵呵,计划题目特殊欢送)以次咱们就经过腾讯的心腹搜索来获守信息,<%function qqhead(qq)url="http://friend.qq.com/cgi-bin/friend/oicq_find?oicq_no="&qqcontent=gethttppage(url)if len(content)>6360 then '即使qq失效,做少许处置,制止缺点爆发.content=replace(mid(content,instr(content,"http://img.tencent.com"),38),"""","")qqhead="<a href='http://friend.qq.com/cgi-bin/friend/user_show_info?ln="&qq&"' target='_blank'><img src='"&content&"' title='qq:"&qq&"' border='0'></a>"elseqqhead=""end ifend function'ok了,大功成功了.此刻大师只有挪用就行了.response.write qqhead(5292816)即使qq头像是彩色的,证明心腹在线,灰的即是不在线.%>

通过MSXML2自动获取QQ个人头像及在线情况(给初学者)

相关推荐

推荐下载

热门阅览

最新排行