那位大哥晓得腾讯现在登录协议！给小弟提醒一下！

發文回覆瀏覽次數：1137

推到 Plurk!

推到 Facebook!

那位大哥晓得腾讯现在登录协议！给小弟提醒一下！

缺席

piaolingfeihu
一般會員

發表：7
回覆：12
積分：3
註冊：2007-06-07

發送簡訊給我

#1 引用回覆回覆

發表時間：2007-06-27 11:48:37

IP:61.183.xxx.xxx 訂閱

先感谢大哥浏览：
我下载了一个qq群发协议，然后编译修改了一些东西，但是每次登录时总是提示用户名和密码不符，原因应该是qq登录协议的变化!

procedure TfrmMain.Button1Click(Sender: TObject);
var
QQNumber,QQPws,Msg:String;
rstr,tt:string;
poststr:String;
QQNumberList:TStringList;
i:integer;
begin
QQNumber:=edtQQNumber.Text;
QQPws:=edtQQPws.Text;
if (QQNumber='') or (QQPws='') then begin
showmessage('发送者QQ号或密码不能为空！');
exit;
end;
Button1.Enabled:=false;
QQPws:=RivestStr(QQPws);
tt:=Copy(inttostr(GetTickCount()),1,5);
poststr:='VER=1.1&CMD=Login&SEQ=' tt '&UIN=' QQNumber '&PS=' QQPws '&M5=1&LC=9326B87B234E7235';
rstr:=PostWebPage('http://tqq.tencent.com:8000',AnsiToUtf8(poststr),5000);
if pos('LI=300',Utf8ToAnsi(rstr))>1 then begin
ReadData;
QQNumberList:=split(GetQQList(QQNumber,QQPws),',');
cnt:=QQNumberList.Count;
Msg:=meoQQMsg.Lines.Text;
Timer1.Enabled:=true;
SendMsg:=TSendMsg.Create(QQNumberList,SkipQQ,Msg,QQNumber,QQPws,ProgressBar1);
end
else begin
showmessage('QQ号与密码不符！请重新输入！');
Button1.Enabled:=true;
end;
end;
代码如上所示！不知道那位大哥知道原因，并帮小弟出个主意！

------
没有做不到，只有想不到！

編輯記錄

taishyang 重新編輯於 2007-06-27 11:51:10，註解將文章分類成[問題]‧

系統時間：2024-04-28 23:17:11

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！