1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
{
AdvancedAutoAway Plugin for Miranda-IM (www.miranda-im.org)
KeepStatus Plugin for Miranda-IM (www.miranda-im.org)
StartupStatus Plugin for Miranda-IM (www.miranda-im.org)
Copyright 2003-2006 P. Boon
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
}
{$IFNDEF M_STATUSPLUGINS}
{$DEFINE M_STATUSPLUGINS}
// -- common status -- (all three plugins)
type
PROTOCOLSETTINGEX = record
cbSize :integer;
szName :PAnsiChar; // pointer to protocol modulename
szMsg :TChar; // pointer to the status message (may be NULL)
status :word; // the status
lastStatus:word; // last status
tszAccName:TChar;
end;
const
// wParam = PROTOCOLSETTINGEX*** (keep it like this for compatibility)
// lParam = 0
// returns 0 on success
MS_CS_SETSTATUSEX:PAnsiChar = 'CommonStatus/SetStatusEx';
// wParam = PROTOCOLSETTINGEX*** (keep it like this for compatibility)
// lParam = timeout
// returns hwnd
MS_CS_SHOWCONFIRMDLGEX:PAnsiChar = 'CommonStatus/ShowConfirmDialogEx';
// wParam = 0
// lParam = 0
// returns the number of protocols registerd
MS_CS_GETPROTOCOUNT:PAnsiChar = 'CommonStatus/GetProtocolCount'; // added dec '04
// wParam = PROTOCOLSETTINGEX*** (keep it like this for compatibility)
// lParam = (int) settings count
ME_CS_STATUSCHANGEEX:PAnsiChar = 'CommonStatus/StatusChangeEx';
{
// wParam = protoCount
// lParam = 0
ME_CS_CSMODULELOADED:PAnsiChar = 'CommonStatus/CommonStatusLoaded';
}
// -- startup status --
// wParam = profile number (set to -1 to get default profile)
// lParam = PROTOCOLSETTINGEX*** (keep for... )(memory must be allocated protoCount*PROTOCOLSETTINGEX* and protoCount*PROTOCOLSETTINGEX)
// szMsg member does not have to be freed
// returns 0 on success
MS_SS_GETPROFILE:PAnsiChar = 'StartupStatus/GetProfile'; // don't use this > jan '05, internal use only
// wParam = profile number
// lParam = 0
// return 0 on success
MS_SS_LOADANDSETPROFILE:PAnsiChar = 'StartupStatus/LoadAndSetProfile'; // you can use this
// wParam = int*, maybe NULL sets this int to the default profile number
// lParam = 0
// returns profile count
MS_SS_GETPROFILECOUNT:PAnsiChar = 'StartupStatus/GetProfileCount';
// wParam = profile number
// lParam = AnsiChar* (must be allocated, size = 128)
// returns 0 on success
MS_SS_GETPROFILENAME:PAnsiChar = 'StartupStatus/GetProfileName';
// -- AdvancedAutoAway --
type
STATES = [
ACTIVE, // user is active
STATUS1_SET, // first status change happened
STATUS2_SET, // second status change happened
SET_ORGSTATUS, // user was active again, original status will be restored
HIDDEN_ACTIVE, // user is active, but this is not shown to the outside world
// STATUS1_SET2, // first status change happened, but user may be active ('on inactive only was disabled')
// STATUS2_SET2 // second status change happened, but user may be active ('on inactive only was disabled')
];
type
AUTOAWAYSETTING = record
protocolSetting :^PROTOCOLSETTINGEX;
originalStatusMode:int; // this is set only when going from ACTIVE to
// STATUS1_SET (or to STATUS2_SET)
// (note: this is therefore not always valid)
oldState :STATES; // state before the call
curState :STATES; // current state
bstatusChanged :bool; // the status of the protocol will actually be changed
// (note: unlike the name suggests, the status is
// changed AFTER this hook is called)
bManual :bool; // state changed becuase status was changed manually
end;
// wParam = 0;
// lParam = AUTOAWAYSETTING*
// Called when a protocol's state in AAA is changed this does NOT necessary means the status was changed
// note: this hook is called for each protocol seperately
const
ME_AAA_STATECHANGED:PAnsiChar = 'AdvancedAutoAway/StateChanged';
{
type
AAAOPTPAGE = record
cbSize :int;
pszText :PAnsiChar;
hInst :HINSTANCE;
pfnDlgProc :DLGPROC;
pszTemplate:PAnsiChar;
end;
const
// lParam=(LPARAM)(AAAOPTPAGE)&aop
MS_AAA_REGISTEROPTIONPAGE:PAnsiChar = 'AdvancedAutoAway/RegisterOptionPage';
}
// -- KeepStatus --
KS_CONN_STATE_LOST = 1; // lParam = protocol
KS_CONN_STATE_OTHERLOCATION = 2; // lParam = protocol
KS_CONN_STATE_RETRY = 3; // lParam = nth retry
KS_CONN_STATE_STOPPEDCHECKING = 4; // lParam = TRUE if success, FALSE if failed
KS_CONN_STATE_LOGINERROR = 5; // lParam = protocol, only if selected in options
KS_CONN_STATE_RETRYNOCONN = 6; // lParam = nth try, a connection attempt will not be made
// wParam = one of above
// lParam depends on wParam
ME_KS_CONNECTIONEVENT:PAnsiChar = 'KeepStatus/ConnectionEvent';
// wParam = 0
// lParam = 0
// returns 0 on succes, nonzero on failure, probably keepstatus wasn't reconnecting
MS_KS_STOPRECONNECTING:PAnsiChar = 'KeepStatus/StopReconnecting';
// wParam = TRUE to enable checking a protocol, FALSE to disable checking a protocol
// lParam = protocol
// return 0 on success, nonzero on failure, probably the protocol is 'hard' disabled or not found
// note: you cannot enable a protocol that is disabled in the options screen, you can disable a protocol
// if it's enabled in the option screen.
MS_KS_ENABLEPROTOCOL:PAnsiChar = 'KeepStatus/EnableProtocol';
// wParam = 0
// lParam = protocol
// returns TRUE if protocol is enabled for checked, FALSE otherwise
MS_KS_ISPROTOCOLENABLED:PAnsiChar = 'KeepStatus/IsProtocolEnabled';
// Indicate the status will be changed which will not be regarded as a connection failure.
// wParam = 0
// lParam = PROTOCOLSETTINGEX* of the new situation
// returns 0
MS_KS_ANNOUNCESTATUSCHANGE:PAnsiChar = 'KeepStatus/AnnounceStatusChange';
function announce_status_change(szProto:PAnsiChar;newstatus:integer;szMsg:TChar):integer;// cdecl;
var
ps:PROTOCOLSETTINGEX;
begin
FillChar(ps,SizeOf(PROTOCOLSETTINGEX),0);
ps.cbSize:=SizeOf(PROTOCOLSETTINGEX);
if szProto<>NIL then
ps.lastStatus:=CallProtoService(szProto, PS_GETSTATUS, 0, 0);
else
ps.lastStatus:=CallService(MS_CLIST_GETSTATUSMODE, 0, 0);
ps.status:=newstatus;
ps.szMsg :=szMsg;
ps.szName:=szProto;
result:=CallService(MS_KS_ANNOUNCESTATUSCHANGE, 0,dword(@ps));
end;
{$ENDIF}
|
