用asp编程实现QQ挂机功能

来源：中国教程网作者：出处：巧巧读书 2006-01-08 进入讨论组

关键词：
server
qq挂机
asp
jsp

作者：肥鱼


＜％(代码使用时把全角转换为半角)
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 ％＞