怎么处理Web形式登录QQ
//以Web形式登录QQ
function LoginQQ(aIdHTTP: TIdHTTP; aUserNameStr, aPasswordStr, aVerifyStr: string; var aWebStr: string): Boolean;
var
PostData, RespData: TStringStream;
tmpStr: string;
begin
...............
aWebStr:= '';
else if pos('超时', tmpStr)>0 then
aWebStr:= '连接超时或者页面出错!'
else if pos('验证码', tmpStr)>0 then
aWebStr:= '验证码错误!'
else if pos('密码', tmpStr)>0 then
aWebStr:= '密码错误!';
except
Result:= False;
aWebStr:= '连接超时或者页面出错!';
end;
PostData.Free;
RespData.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
vWebStr: string;
begin
LoginQQ(idhttp1, 用户名,密码,验证码,vWebStr );
Label1.Caption:=vWebStr;
OpenInIE('http://user.qzone.qq.com/'+edit1.Text); //edit1.text为QQ号码
end;
这里登陆之后,为什么打开网页,却显示未登陆?
[解决办法]
断点跟踪一下，我猜测应该是你的cookie记录有问题！
反复删除cookie试验一下！
[解决办法]
cookie记得对不对
和Web QQ登录生成的cookie比较一下
