2912268 发表于 2005 年 6 月 17 日 18:18:53

QQ 挂级程序 ASP JS源代码

ASP代码


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


JS代码：
<p><span id="msg"></span><p><input type="button" onclick="doIt()" id="btn" value="登录" />
<script type="text/javascript">
var qq      = "100000";
var pwd   = "123456";
var sessionid = "";
var online  = false;
var re;
 
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);
     break;
     } catch(e) {
     }
 }
}
 
function sendReq(method, url, data, callback) {
 with (objXMLHTTP) {
     open(method, url, false);
     setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
     setRequestHeader("Connection", "Keep-Alive");
     send(data);
 }
 
 setTimeout(callback, 1);
}
 
function checkLogin() {
 if (objXMLHTTP.responseText.indexOf("postfield") > 0) {
     setMsg("密码错误或者号码不正确");
 } else {
     sessionid = objXMLHTTP.getResponseHeader("Set-Cookie").match(/JSESSIONID=([^;]+);/i);
     sendReq("GET", "http://211.139.167.71/waptest/TWF/qqportal/qqchat/wait.jsp;jsessionid=" + sessionid + "?changestatus=40&random=" + Math.random()+ "&FromWhere=qqchatChangestatus", "", "setMsg('wait...');");
 
     online = true;
     setStatus();
     setBtn();
 
     re = setInterval("changeStatus();", 10000);
 }
}
 
function changeStatus() {
 sendReq("GET", "http://211.139.167.71/waptest/server;jsessionid=" + sessionid + "?productid=qqportal&actionid=qqchatChangestatus&saveURL=0&changestatus=40&random=" + Math.random(), "", "setMsg('wait');");
 sendReq("GET", "http://211.139.167.71/waptest/TWF/qqportal/qqchat/function.jsp;jsessionid=" + sessionid + "?qqlogout=1", "", "setStatus();");
}
 
function setStatus() {
 if (objXMLHTTP.responseText.match(/((d+))/i)) {
     setMsg("QQ隐身，并有" + objXMLHTTP.responseText.match(/((d+))/i) + "条新消息");
     online = true;
 } else if ( objXMLHTTP.responseText.match(/qqlogout=first">(.*)\[\d+\]/i)) {
     setMsg(objXMLHTTP.responseText.match(/qqlogout=first">(.*)/i));
     online = true;
 } else {
     setMsg("QQ离线");
     online = false;
 }
 
 setBtn();
}
 
function logout() {
 sendReq("GET", "http://211.139.167.71/waptest/server;jsessionid=" + sessionid + "?productid=qqportal&actionid=qqchatChangestatus&saveURL=0&changestatus=20&random=" + Math.random(), "", "setMsg('qq离线');");
 clearInterval(re);
 online = false;
 setBtn();
}
 
function setBtn() {
 if (online) {
     btn.value = "断开";
     btn.onclick = logout;
 } else {
     btn.value = "登录";
     btn.onclick = doIt;
 }
}
 
function setMsg(str) {
 document.getElementById("msg").innerHTML = str;
}
 
function doIt() {
 sendReq("POST", "http://211.139.167.71/waptest/TWF/qqportal/rela/updateuserinfo.jsp", "qq=" + qq + "&pwd=" + pwd + "&FromWhere=register", "checkLogin();");
}
</script>

我是农民 发表于 2005 年 6 月 17 日 18:20:31

对挂级没兴趣

大傻瓜不傻 发表于 2005 年 6 月 17 日 18:24:06

就是没有php的
^_^

襄樊风景 发表于 2005 年 6 月 17 日 18:31:00

怎么用?

秋风无名 发表于 2005 年 6 月 17 日 18:31:34

顶！

nuet 发表于 2005 年 6 月 17 日 18:36:22

支持！！
我的都是ASP空间

smxtm 发表于 2005 年 6 月 18 日 09:04:13

有什么用啊？
给个演示阿

西风辽 发表于 2005 年 6 月 18 日 12:20:45

偶全是PHP的空间，哭一个先………………

8过偶的QQ一直在QQ也疯狂上挂着呢

再问个菜问题，QQ号和密码都在代码里，别人一查看源码………………

香小子 发表于 2005 年 6 月 18 日 12:21:49

CGJ有麽？

whlcr 发表于 2005 年 6 月 18 日 13:01:47

要PHP的
页: [1] 2
查看完整版本: QQ 挂级程序 ASP JS源代码