Имя: Пароль:
IT
 
Как возможно отлавливать все сообщения отправленные через диспетчер задач?
0 Cerera
 
26.09.13
09:34
Если я администратор терминального сервера и мне нужно чтоб все сообщения отправляемые пользователями друг другу, где то в виде логов оседали, то что мне делать? специальную программу для перехвата писать или уже есть готовые средства?
1 Ёпрст
 
26.09.13
09:36
остановить службу сообщений, наслаждатся отсутствием и сообщений и логов.
2 Cerera
 
26.09.13
09:40
(1)совет ни о чём.
3 пипец
 
26.09.13
09:41
сделай им чат в 1С ... и пиши логи , или ваще поставь чонить типа мессанджера или джаббера
4 Cerera
 
26.09.13
09:42
(3)да всё это не то. пойду писать на с++ прогу...
5 Ёпрст
 
26.09.13
09:47
(2)
//------------------ Функция получения текста --------------------------
function GetText(WindowHandle: hwnd):string;
var
  txtLength : integer;
  buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
  if txtlength>0 then
begin
    txtlength := txtlength + 1;
    setlength (buffer, txtlength);
    sendmessage(WindowHandle, wm_gettext, txtlength, longint(@buffer[1]));
    result := buffer;
  end else result:='';
end;
//-------------- Ищем окно и выводим с него текст ----------------------
RichEdit2.Text:=GetText(FindWindowEx(FindWindow(nil,'Messenger Service '),0,'Static',nil));

©найдено за 2 минуты поиска, пишу, мало ли ты в бане у гугла
6 пипец
 
26.09.13
09:49
Оо тоесть мессанджер который логирует типа уже - не то ... Оо
7 Ёпрст
 
26.09.13
09:50
вообще самое тупое-подменить службу сообщений на свою, которая будет писать всё куда надо.
Основная теорема систематики: Новые системы плодят новые проблемы.