·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 挂QQ的网页源代码[ASP/PHP/JS]

挂QQ的网页源代码[ASP/PHP/JS]

类别: ASP教程  评论数:0 总得分:0
明:此代码适合你做网站用,普通朋友可以不用理这个东西!

ASP:

<%
dim objXMLHTTP, qq, pwd
qq = "10000"
pwd = "123456"
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
%>

PHP:

CODE:
<?php
$qq = "100000"; //qq号码
$pwd = "123456"; //密码
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, http://211.139.167.71/waptest/TWF/qqportal/rela/updateuserinfo.jsp);
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1); //这行是设定curl是否跟随header发送的location, 重要
curl_setopt($ch, CURLOPT_POST, 1);
//curl_setopt($ch, "Connection", "Keep-Alive");
curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
curl_setopt($ch, CURLOPT_POSTFIELDS, "qq=".$qq."&pwd=".$pwd."&FromWhere=register");
$return = curl_exec($ch);
curl_close($ch);
echo strstr($return, "postfield") ? "登录失败" : "登录成功";
?>


JS:

CODE:
<script type="text/javascript">
var qq = "100000"; //qq号码
var pwd = "123456"; //密码
if (window.XMLHttpRequest) {
var x = new XMLHttpRequest();
} else {
var MSXML = new Array(\'MSXML2.XMLHTTP.5.0\', \'MSXML2.XMLHTTP.4.0\', \'MSXML2.XMLHTTP.3.0\', \'MSXML2.XMLHTTP\', \'Microsoft.XMLHTTP\');
for(var n = 0; n < MSXML.length; n ++) {
try {
var objXMLHTTP = new ActiveXObject(MSXML[n]);
break;
} catch(e) {
}
}
}
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 (objXMLHTTP.responseText.indexOf("验证失败") > 0) {
alert("登录失败");
} else {
alert("等录成功");
}
</script>
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1