用asp编程实现QQ挂机功能
点击次数：26 次 发布日期：2008-11-26 14:37:08 作者：源代码网
|
源代码网推荐
作者： 肥鱼
＜％(代码使用时把全角转换为半角)
dim objXMLHTTP, qq, pwd
qq = "10000" ‘挂机QQ号
pwd = "123456" ‘QQ挂机密码
set objXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP.5.0")
objXMLHTTP.open "POST", "_blank＞http://211.139.167.71/waptest/TW&nbs ... dateuserinfo.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
％＞
＜％
dim objXMLHTTP, qq, pwd
qq = "10000" ‘挂机QQ号
pwd = "123456" ‘QQ挂机密码
set objXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP.5.0")
objXMLHTTP.open "POST", "_blank＞http://211.139.167.71/waptest/TW&nbs ... dateuserinfo.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
％＞
源代码网供稿. |
