掛QQ的網頁原始碼[ASP/PHP/JS]

來源:互聯網
上載者:User
js|網頁|原始碼

明:此代碼適合你做網站用,普通朋友可以不用理這個東西!

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>



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。