首页
社区
课程
招聘
QQ挂机就这么简单,网络挂机系统可以这么写~!ASP+PHP+JS版
发表于: 2005-7-2 01:33 7225

QQ挂机就这么简单,网络挂机系统可以这么写~!ASP+PHP+JS版

2005-7-2 01:33
7225
声明一下:此代码适合你做网站用,普通朋友可以不用理这个东西!

ASP版:

CODE:
<%
dim objXMLHTTP, qq, pwd

qq = "10000"
pwd = "123456"

set objXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP.5.0")
objXMLHTTP.open "POST", "_blank>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, "_blank>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", "_blank>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>

[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

收藏
免费 0
支持
分享
最新回复 (19)
雪    币: 383
活跃值: (41)
能力值: ( LV12,RANK:530 )
在线值:
发帖
回帖
粉丝
2

呵呵
看看,我只看得懂asp的拉 ,PHP不懂呢
2005-7-2 01:44
0
雪    币: 224
活跃值: (147)
能力值: ( LV9,RANK:970 )
在线值:
发帖
回帖
粉丝
3
我顶你!!!这么好的东西~~
2005-7-2 01:53
0
雪    币: 231
活跃值: (465)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
updateuserinfo.jsp
这个里面的代码是关键吧
2005-7-2 06:47
0
雪    币: 817
活跃值: (1927)
能力值: ( LV12,RANK:2670 )
在线值:
发帖
回帖
粉丝
5
最初由 cobra1111 发布
updateuserinfo.jsp
这个里面的代码是关键吧


对!
2005-7-2 07:57
0
雪    币: 214
活跃值: (86)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
6
我感觉他们是用了QQ WAP上线~~~
2005-7-2 08:37
0
雪    币: 117
活跃值: (20)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
怎么用的哦?
我把存为qq.asp传到服务器上,无法正常使用啊。。
2005-7-2 08:53
0
雪    币: 390
活跃值: (707)
能力值: ( LV12,RANK:650 )
在线值:
发帖
回帖
粉丝
8
被sniffer就完了

所以保护一定要的
2005-7-2 11:29
0
雪    币: 6075
活跃值: (2236)
能力值: (RANK:1060 )
在线值:
发帖
回帖
粉丝
9
不能下线有什么用?
2005-7-2 21:20
0
雪    币: 39
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
10
http://211.139.167.71/waptest/TWF/qqportal/rela/updateuserinfo.jsp 这个是不是会纪录密码
2005-7-2 21:39
0
雪    币: 100
活跃值: (15)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
zmh
11
这个被人家下载了怎么办啊网页
2005-7-2 23:03
0
雪    币: 494
活跃值: (2759)
能力值: ( LV10,RANK:170 )
在线值:
发帖
回帖
粉丝
12
这些代码早试过了。。。不好使的
2005-7-3 03:11
0
雪    币: 300
活跃值: (412)
能力值: ( LV9,RANK:410 )
在线值:
发帖
回帖
粉丝
13
http://211.139.167.71/

这个ip不地道呀,是不是腾训的服务器?不是的话,就危险了
2005-7-3 09:40
0
雪    币: 212
活跃值: (70)
能力值: ( LV4,RANK:50 )
在线值:
发帖
回帖
粉丝
14
还是用的3G.QQ.com的么~~我还以为是内嵌到网页中的自己的代码
2005-7-3 12:08
0
雪    币: 207
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
15
不能用了!登不上
2005-7-3 20:32
0
雪    币: 257
活跃值: (56)
能力值: ( LV5,RANK:60 )
在线值:
发帖
回帖
粉丝
16
http://www.focusme.cn/index.htm
2005-7-3 22:03
0
雪    币: 342
活跃值: (323)
能力值: ( LV9,RANK:450 )
在线值:
发帖
回帖
粉丝
17
还是不挂的好.差点连QQ都没用拉.
2005-7-4 16:06
0
雪    币: 817
活跃值: (1927)
能力值: ( LV12,RANK:2670 )
在线值:
发帖
回帖
粉丝
18
最初由 netsowell 发布
还是不挂的好.差点连QQ都没用拉.


刚刚找到了一个比较好的挂QQ网站原代码[下载地址]:

http://ahgansky.vip.sina.com/qqmax.rar  
2005-7-4 20:37
0
雪    币: 214
活跃值: (86)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
19
最初由 KuNgBiM 发布


刚刚找到了一个比较好的挂QQ网站原代码[下载地址]:

http://ahgansky.vip.sina.com/qqmax.rar


晕,下不了咯~~~~~~~呵呵
2005-7-4 20:59
0
雪    币: 214
活跃值: (86)
能力值: ( LV6,RANK:90 )
在线值:
发帖
回帖
粉丝
20
最初由 KuNgBiM 发布


刚刚找到了一个比较好的挂QQ网站原代码[下载地址]:

http://ahgansky.vip.sina.com/qqmax.rar


偶暴汗~~~~~~~~~~~~~~~~~~~~~~~~~~~

大哥,这个是QQ for Maxthon : 在Maxthon侧边栏实现QQ聊天功能。

你给偶们有什么用^^
2005-7-4 21:25
0
游客
登录 | 注册 方可回帖
返回
//