Авто удаление почты 2.7

[zombiee]

Понадобилось мне очистить почтовый ящик от выборочных сообщений, 60-ти штук :notme:
Набросал скрипт, который удаляет письмо по клику (вместе с содержимым (кинары/вещи))


// by zombiee
procedure DeleteMail(ID: word);
begin
buf:=HStr('E8 01 57 87 FE 01 00');
WriteH(ID);
buf:=buf+HStr('01 00 00');
SendToServer;
buf:='';
end;

var
mailID: word;
begin
if((FromClient) and (ReadC(1)=$ED)) then begin
mailID:=ReadH(6);
sendMSG('Delete mail #'+IntToStr(mailID));
DeleteMail(mailID);
pck:='';
end;
end.


В лог пишется идентификатор сообщения, которое удаляется.

БУДЬТЕ ВНИМАТЕЛЬНЫ!
Никаких проверок нет, письмо удаляется перманентно.
По этому, не ошибайтесь при выборе :forward:

[Scrambyy]

полезний скрипт держи пасибку )