📄 msnconsts.pas
字号:
unit MsnConsts;
interface
Type
{断开连接}
TDisConnectEvent = procedure (Sender: TObject) of Object;
TSignOutType = (otOTH, otSSD, otXFR, otUnKnown);
TBLP = (bpAL, bpBL);
TListKind = (lkFL, lkRL, lkAL, lkBL);
TMsnSwitchBoardEvent = procedure (Sender: TObject; TrID: Integer;
SBAddress, Cookie: String) of Object;
TMsnUrlEvent = procedure (Sender: TObject; rru, passport: String; id: Integer) of Object;
TMsnNewMailEvent = procedure (Sender: TObject; Inbox: Boolean; FromName: WideString; FromAddr: String) of Object;
TMsnUnreadMailChangeEvent = procedure (Sender: TObject; Init: Boolean) of Object;
TMsnSysMsgEvent = procedure (Sender: TObject; Arg1: String) of Object;
Const
RS_DUMMY_ALL_USER_ACCOUNT = 'all_user_not_in_the_list';
MSN_DEFAULTHOST = 'messenger.hotmail.com';
MSN_DEFAULTPORT = 1863;
MSN_VERSION8 = 'MSNP8';
MSN_VERSION9 = 'MSNP9';
DEFAULT_PING_INTERVAL = 50;
INITIAL_PASSPORT_REDIRECT_SERVER = 'https://nexus.passport.com/rdr/pprdr.asp';
MSNP8_AUTH_REQUEST = 'Authorization: Passport1.4 OrgVerb=GET,OrgURL=%s,sign-in=%s,'
+ 'pwd=%s,lc=%s,id=%s,tw=%s,fs=%s,ct=%s,kpp=%s,kv=%s,ver=%s,tpf=%s';
MSNMSGR_CHG_WINDOWS_MOBILE_DEV = 1;
MSNMSGR_CHG_UNKNOWN = 2;
MSNMSGR_CHG_SUPPORT_VIEW_INK = 4;
MSNMSGR_CHG_SUPPORT_CREATE_INK = 8;
MSNMSGR_CHG_SUPPORT_VIDEO = 16;
MSNMSGR_CHG_CLIENT_VERSION_6 = 32;
MSNMSGR_CHG_MSN_MOBILE = 64;
MSNMSGR_CHG_MSN_DIRECT = 128;
MSNMSGR_CHG_SUPPORT_MSNC1 = 268435456;
MSNMSGR_CHG_SUPPORT_MSNC2 = 536870912;
MSNMSGR_5_0_0540_CVR = '0x0409 winnt 5.1 i386 MSNMSGR 5.0.0540 MSMSGS';
MSNMSGR_5_0_0540_PID = 'PROD0038W!61ZTF9';
MSNMSGR_5_0_0540_CHL = 'VT6PX?UQTM4WM%YR';
MSNMSGR_6_0_0250_CVR = '0x0409 winnt 5.1 i386 MSNMSGR 6.0.0250 MSMSGS';
NSMMSGR_6_0_0250_PID = 'PROD0058#7IL2{QD';
NSMMSGR_6_0_0250_CHL = 'QHDCY@7R1TB6W?5B';
MSNMSGR_6_0_0268_CVR = '0x0409 winnt 5.1 i386 MSNMSGR 6.0.0268 MSMSGS';
MSNMSGR_6_0_0268_PID = 'PROD0061VRRZH@4F';
MSNMSGR_6_0_0268_CHL = 'JXQ6J@TUOGYV@N0M';
MSNMSGR_6_0_0602_CVR = '0x0409 winnt 5.1 i386 MSNMSGR 6.0.0602 MSMSGS';
MSNMSGR_6_0_0602_PID = 'PROD0061VRRZH@4F'; // invalid
MSNMSGR_6_0_0602_CHL = 'JXQ6J@TUOGYV@N0M'; // invalid
MSNMSGR_6_1_0128_CVR = '0x0409 winnt 5.1 i386 MSNMSGR 6.1.0128 MSMSGS';
MSNMSGR_6_1_0128_PID = 'PROD0061VRRZH@4F'; // invalid
MSNMSGR_6_1_0128_CHL = 'JXQ6J@TUOGYV@N0M'; // invalid
MSNMSGR_7_0_0777_CVR = '0x0409 winnt 5.1 i386 MSNMSGR 7.0.0777 MSMSGS';
MSNMSGR_7_0_0777_PID = 'PROD0101{0RM?UBW'; // not sure
MSNMSGR_7_0_0777_CHL = 'CFHUR$52U_{VIX5T'; // not sure
(*
MSNMSGR_CVR = MSNMSGR_6_0_0602_CVR;
MSNMSGR_PID = MSNMSGR_6_0_0602_PID;
MSNMSGR_CHL = MSNMSGR_6_0_0602_CHL;
*)
MSNMSGR_CVR = MSNMSGR_7_0_0777_CVR;
MSNMSGR_PID = MSNMSGR_7_0_0777_PID;
MSNMSGR_CHL = MSNMSGR_7_0_0777_CHL;
MSNMSGR_CHG =
MSNMSGR_CHG_CLIENT_VERSION_6 (* + MSNMSGR_CHG_SUPPORT_MSNC1 *);
ERR_SYNTAX_ERROR = 200;
ERR_INVALID_PARAMETER = 201;
ERR_INVALID_USER = 205;
ERR_FQDN_MISSING = 206;
ERR_ALREADY_LOGIN = 207;
ERR_INVALID_USERNAME = 208;
ERR_INVALID_FRIENDLY_NAME = 209;
ERR_LIST_FULL = 210;
ERR_ALREADY_THERE = 215;
ERR_NOT_ON_LIST = 216;
ERR_USER_NOT_ONLINE = 217;
ERR_ALREADY_IN_THE_MODE = 218;
ERR_ALREADY_IN_OPPOSITE_LIST = 219;
ERR_NOT_EXISTS_GROUP = 231;
ERR_SWITCHBOARD_FAILED = 280;
ERR_NOTIFY_XFR_FAILED = 281;
ERR_REQUIRED_FIELDS_MISSING = 300;
ERR_NOT_LOGGED_IN = 302;
ERR_INTERNAL_SERVER = 500;
ERR_DB_SERVER = 501;
ERR_FILE_OPERATION = 510;
ERR_MEMORY_ALLOC = 520;
ERR_WRONG_CHL_VALUE = 540;
ERR_SERVER_BUSY = 600;
ERR_SERVER_UNAVAILABLE = 601;
ERR_PEER_NS_DOWN = 602;
ERR_DB_CONNECT = 603;
ERR_SERVER_GOING_DOWN = 604;
ERR_CREATE_CONNECTION = 707;
ERR_UNKNOWN_CVR_PARAMETERS = 710;
ERR_BLOCKING_WRITE = 711;
ERR_SESSION_OVERLOAD = 712;
ERR_USER_TOO_ACTIVE = 713;
ERR_TOO_MANY_SESSIONS = 714;
ERR_NOT_EXPECTED = 715;
ERR_BAD_FRIEND_FILE = 717;
ERR_AUTHENTICATION_FAILED = 911;
ERR_NOT_ALLOWED_WHEN_OFFLINE = 913;
ERR_NOT_ACCEPTING_NEW_USERS = 920;
ERR_PASSPORT_NOT_VERIFIED = 924;
ERR_BAD_TICKET = 928;
MESSAGE_MAX_BYTES = 1664;
/////////////////////////////////////////////////////////
{出错列表..}
ERROR_200 = 200; ERROR_201 = 201;
ERROR_205 = 205; ERROR_206 = 206;
ERROR_207 = 207; ERROR_208 = 208;
ERROR_209 = 209; ERROR_210 = 210;
ERROR_215 = 215; ERROR_216 = 216;
ERROR_217 = 217; ERROR_218 = 218;
ERROR_219 = 219; ERROR_229 = 229;
ERROR_231 = 231; ERROR_280 = 280;
ERROR_281 = 281; ERROR_300 = 300;
ERROR_302 = 302; ERROR_500 = 500;
ERROR_501 = 501; ERROR_510 = 510;
ERROR_520 = 520; ERROR_540 = 540;
ERROR_600 = 600; ERROR_601 = 601;
ERROR_602 = 602; ERROR_603 = 603;
ERROR_604 = 604; ERROR_707 = 707;
ERROR_710 = 710; ERROR_711 = 711;
ERROR_712 = 712; ERROR_713 = 713;
ERROR_715 = 715; ERROR_717 = 717;
ERROR_911 = 911; ERROR_913 = 913;
ERROR_920 = 920; ERROR_924 = 924;
ERROR_223 = 223; ERROR_224 = 224;
{命令列表}
COMMAND_VER = 'VER'; COMMAND_NUM_VER = 0;
COMMAND_CVR = 'CVR'; COMMAND_NUM_CVR = 1;
COMMAND_USR = 'USR'; COMMAND_NUM_USR = 2;
COMMAND_XFR = 'XFR'; COMMAND_NUM_XFR = 3;
COMMAND_CHG = 'CHG'; COMMAND_NUM_CHG = 4;
COMMAND_LST = 'LST'; COMMAND_NUM_LST = 5;
COMMAND_SYN = 'SYN'; COMMAND_NUM_SYN = 6;
COMMAND_CHL = 'CHL'; COMMAND_NUM_CHL = 7;
COMMAND_QRY = 'QRY'; COMMAND_NUM_QRY = 8;
COMMAND_PNG = 'PNG'; COMMAND_NUM_PNG = 9;
COMMAND_QNG = 'QNG'; COMMAND_NUM_QNG = 10;
COMMAND_NLN = 'NLN'; COMMAND_NUM_NLN = 11;
COMMAND_FLN = 'FLN'; COMMAND_NUM_FLN = 12;
COMMAND_REA = 'REA'; COMMAND_NUM_REA = 13;
COMMAND_ADD = 'ADD'; COMMAND_NUM_ADD = 14;
COMMAND_REM = 'REM'; COMMAND_NUM_REM = 15;
COMMAND_ADG = 'ADG'; COMMAND_NUM_ADG = 16;
COMMAND_RMG = 'RMG'; COMMAND_NUM_RMG = 17;
COMMAND_REG = 'REG'; COMMAND_NUM_REG = 18;
COMMAND_BPR = 'BPR'; COMMAND_NUM_BPR = 19;
COMMAND_PRP = 'PRP'; COMMAND_NUM_PRP = 20;
COMMAND_LSG = 'LSG'; COMMAND_NUM_LSG = 21;
COMMAND_GTC = 'GTC'; COMMAND_NUM_GTC = 22;
COMMAND_BLP = 'BLP'; COMMAND_NUM_BLP = 23;
COMMAND_MSG = 'MSG'; COMMAND_NUM_MSG = 24;
COMMAND_ILN = 'ILN'; COMMAND_NUM_ILN = 25;
COMMAND_RNG = 'RNG'; COMMAND_NUM_RNG = 26;
COMMAND_OUT = 'OUT'; COMMAND_NUM_OUT = 27;
COMMAND_CAL = 'CAL'; COMMAND_NUM_CAL = 28;
COMMAND_JOI = 'JOI'; COMMAND_NUM_JOI = 29;
COMMAND_ANS = 'ANS'; COMMAND_NUM_ANS = 30;
COMMAND_IRO = 'IRO'; COMMAND_NUM_IRO = 31;
COMMAND_ACK = 'ACK'; COMMAND_NUM_ACK = 32;
COMMAND_BYE = 'BYE'; COMMAND_NUM_BYE = 33;
COMMAND_FIL = 'FIL'; COMMAND_NUM_FIL = 34;
COMMAND_TFR = 'TFR'; COMMAND_NUM_TFR = 35;
COMMAND_URL = 'URL';
ERROR_205_STR = '输入的用户名不存在..';
ERROR_208_STR = '输入的用户名非法..';
ERROR_224_STR = '组号不存在..';
ERROR_223_STR = '组户组太多..';
ERROR_229_STR = '用户组名长..';
ERROR_600_STR = '服务器忙..';
ERROR_707_STR = '连接失败..';
ERROR_911_STR = '身份验证失败..';
ERROR_OUT = '1001';
Error_Login = 1000; //用户名密码有误..
Error_DisConnect = 1001;//断开连接
SMsnAddr = 'messenger.hotmail.com';
SMsnPort = '1863';
SMsnProto = 'Tcp';
SPassPortAddr = 'loginnet.passport.com';
SPassPortPort = '80';
// SRequestHead1 = 'GET /login2.srf?lc=1033 HTTP/1.1'#13#10;
SRequestHead1 = 'https://nexus.passport.com/rdr/pprdr.asp';
SRequestHead2 = 'Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%%3A%%2F%%2Fmessenger%%2Emsn%%2Ecom,'
+ 'sign-in=%s%%40%s,pwd=%s,%s'#13#10;
SRequestHead3 = 'Host:login.live.com'#13#10;
SRequestHead4 = #13#10;
SIndividuals = 'Individuals';
SCIndividuals = '我的好友';
ERROR_217Str = '对方不在线..';
ERROR_216Str = '对方阻止你发信息给他..';
Error_LoginStr = '用户名或密码有误2..';
ERROR_911Str = '身份验证失败..';
LoginOUT = '您已经在另一台计算机上登录,如要继续使用请重新登录..';
MemberData = 'http://members.msn.com/default.msnw?mem=%s';
sSearchMember = 'http://members.msn.com/find.msnw';
EmailData = 'mailto:%s';
INodeImageIndex = 7;
INodeSelectedImageIndex = 7;
MessageMaxLength = 410;
{MSN STATE}
COMMAND_BSY = 'BSY'; COMMAND_IDL = 'IDL';
COMMAND_BRB = 'BRB'; COMMAND_AWY = 'AWY';
COMMAND_PHN = 'PHN'; COMMAND_LUN = 'LUN';
COMMAND_HDN = 'HDN'; COMMAND_OTH = 'OTH';
COMMAND_MAIL = 'Inbox-Unread:';
COMMAND_HOTMAIL = 'Hotmail';
COMMAND_INBOX = 'INBOX';
TEMP_HTMLNAME = 'c:\temp.html';
NSString = 'NS';
SBString = 'SB';
OKString = 'OK';
FormatID = ' %d ';
FormatID2 = '%d';
HttpRequest = 'from-PP=''';
MGSFormat = 'N %d ';
SendPW = ' %d TWN S ';
HttpDisCon = 'Http Disconnected';
SocketDiscon = 'Disconnected';
DelGroupStr = 'FL %s %d';
DelGroupStr2 = 'FL';
AddmemberStr = 'FL %s %s %d';
SendHeadStr = 'U %d';
// SEND_VER_COMMAND = ' %d MSNP8 MSNP9 CVR0' ;
SEND_VER_COMMAND = ' %d MSNP8 CVRO'; //bylcx
SEND_CVR_COMMAND = ' %d 0x0409 winnt 5.1 i386 MSNMSGR 6.0.0602 MSMSGS ';
// SEND_CVR_COMMAND = ' %d 0x0409 winnt 5.1 i386 MSNMSGR 6.1.0128 MSMSGS ';
SEND_USR_COMMAND = ' %d TWN I ';
SEND_QRY_ADDSTR = 'JXQ6J@TUOGYV@N0M';
SEND_CHG_COMMAND = '%s 536870956';
SEND_SYN_COMMAND = ' %d 0';
Send_REG_COMMAND = '%d %s 0';
SEND_ANS_COMMAND = '%s %s %s';
SEND_QRY_COMMAND = ' %d PROD0061VRRZH@4F 32 ';
SEND_REA_COMMAND = '%s %s';
PassWordError = 'HTTP/1.1 401 Unauthorized';
QRYADDSTRING = 'JXQ6J@TUOGYV@N0M';
ReceiveMessage = 'X-MMS-IM-Format';
SendRequestHead = 'MIME-Version: 1.0'#13#10 +
'Content-Type: text/x-msmsgscontrol'#13#10 +
'TypingUser: %s';
SendMessageText = 'MIME-Version: 1.0'#13#10 +
'Content-Type: text/plain; charset=UTF-8'#13#10
+'X-MMS-IM-Format: FN=%s; EF=; CO=0; CS=86; PF=0'#13#10#13#10;
type
TSignInStage = (ssUnConnect, ssTryConnectServer, ssTrySignIn, ssSignIn);
implementation
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -