挂QQ的ASP版本网页源代码

2010-08-28 10:54:03来源:西部e网作者:

现在挂QQ不知道还有什么意义了,就算你等级再高,也没会员一半的功能,我身边很多朋友都是红色的了,呵呵,腾讯赚钱的水平就是高,而且不露声色,小马哥,你牛!

下面这个是QQ挂QQ的ASP版本网页源代码,cwitter也是从网上找到的,测试的时候有可能发生“MSXML5.DLL (0x800C0005) 系统未找到指定的资源”的错误,一般MSXML5.DLL文件的地址是:
C:\Program Files\Common Files\Microsoft Shared\OFFICE11

还有一个重要的问题,就是211.139.167.71不知道是不是腾讯的,如果是一个黑客的服务器,你的QQ号和密码就都让人知道啦,哈哈。所以这个代码就是让你学习一下而已,尽量别用了。

<%
dim objXMLHTTP, qq, pwd
 
qq = "10000" //要挂的QQ号码
pwd = "123456" //要挂的QQ号码的密码
 
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, "验证失败") then
  response.write "登录失败"
else
  response.write "登录成功"
end if
 
set objXMLHTTP = nothing
%> 

关键词:ASP