qqvars.pas

application with delphi

{
QQ[OICQ] Runer Ver 1.01

Copyright (C) 2006 HellFish

E-Mail: [e-mail],[e-mail]
QQ[OICQ]: 4427968

保留以上信息，保留对作者最基本的尊重
}
unit QQVars;

interface

Uses Windows;

const
QQServers:Array [0..5] of String=(
'sz.tencent.com',
'sz3.tencent.com',
'sz4.tencent.com',
'sz5.tencent.com',
'sz6.tencent.com',
'sz7.tencent.com');
String_SocketError='发生Socket错误 %s ,代码 %d';
String_KickMsg='您已被迫下线';
String_CanConn='无法连接主机';


type
  TQQLoginStatus=(LsPwdErr,LsRedirect,LsSucess);
  TQQStatus=(QsNone,QsReLogin,QsKickOut,QsToKen,QsLogin,QsError,QsLoginSucess,QsPassWordError,QsNotTime);
  TQQInfo=Record
    Number   :Integer;
    Password :String;
    Hide     :Boolean;
    AutoReply:String;
    UserType   :Integer;
    OnLineMin  :Integer;
    InitKey    :Array [0..15] of Byte;
    SessionKey :Array [0..15] of Byte;
    PasswordKey:Array [0..15] of Byte;
    ClientKey  :Array [0..31] of Byte;
    ReqKey     :Array [0..15] of Byte;
    FileToKen  :Array [0..15] of Byte;
    LoginToKen :Array of Byte;
    Server     :String;
    ErrorCount :integer;
    ErrorString:String;
    Messages:String;
    LastMessages:String;
    MessageQQ:Integer;
    KeepAliveCount:integer;
    State    :TQQStatus;
    LoginTime:String;
    NowTime:integer;
    TimerCount:integer;
    RCR:BYTE;
    RCG:BYTE;
    RCB:BYTE;
    RCMODE:BYTE;
    RCSIZE:BYTE;
  end;
  PQQInfo = ^TQQInfo;
  TQQInfoAry = array of TQQInfo;

  TLoginReply=Record
  Stat:TQQLoginStatus;
  SessionKey:Array [0..15] of Byte;
  ClientKey:Array [0..31] of Byte;
  RedirectServer:String;
  ErrorMessage:String;
  end;

  TRecvIM=Record
  SendQQ:Integer;
  SendTime:Integer;
  Serial:Array [0..3] of Byte;
  SendIP:Array [0..3] of Byte;
  Messages:String;
  MessageType:Byte;
  end;

  TQQBuff=array of Byte;

implementation

end.