VPF::Net send - Форум программистов

NoliX

Дата 19.2.2006, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 5.7.2005

Репутация: нет
Всего: 1

Товарищи, подскажите, каким образом можно можно отлавливать приходящие net send сообщения и блочить их в реальном времен, так как в сокетах (на сколько я понимаю они тут нужны) я не разбираюсь, то желательно примерчик, небольшой (заодно и другим пригодится, в поиске про это ничего нету).

Заранее спасибо

PS отключить службу не предлагать, ибо нету таких прав...

Это сообщение отредактировал(а) NoliX - 19.2.2006, 20:26

--------------------

Опыт - это учитель, который очень дорого берет за свои уроки

WolfON

Дата 19.2.2006, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 604
Регистрация: 19.7.2004

Репутация: нет
Всего: 8

Отправляй

Код


winexec('net send localhost RTFM!!',0);

Bog d`An

Дата 20.2.2006, 05:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 217
Регистрация: 26.3.2005
Где: Украина:Днепропет ровск

Репутация: нет
Всего: 3

Цитата(WolfON @ 19.2.2006, 23:32

)

winexec('net send localhost RTFM!!',0);

гыгы

каждый тик smile

Да, тема актуальна...
На текущий момент из всего что я перебрал наиболее стабильно работающим остаётся перебор (по таймеру 100..1000мс) всех окон.

Код


function GetWindText(AHandle:THandle):String;
var
  cb:DWord;
begin
  cb:=SendMessage(AHandle,WM_GETTEXTLENGTH,0,0);
  SetLength(Result,cb);
  if cb>0  then
    SendMessage(AHandle,WM_GETTEXT,cb+1,LParam(@Result[1]));
end;

Form1.Timer1Timer
Begin
  //Поиск окна
  AHandle  :=  FindWindow(PChar(#32770),  nil);
  if (AHandle  <>  0) then
  Begin
    if GetWindText(AHandle)='Служба сообщений ' then
      if GetExeNameByProcID(pProcID^)='CSRSS.EXE'then}
      Begin
        //Извлечение текста
        AHandleChild  :=  FindWindowEx(AHandle,  0,  PChar(#49177),  nil);
        if (AHandleChild <> 0) then
          CurStr  :=  GetWindText(AHandleChild);
        //Основная часть

        if CurStr<>''then
        Begin
          if Pos('Сообщение от',CurStr) > 0 then
          Begin
            //PostThreadMessage(AHandle,WM_CLOSE,0,0);
            PostMessage(AHandle,WM_CLOSE,0,0);

          While Pos(#$D+#$A+#$D+#$A,CurStr) > -1 do
            Delete(CurStr,MyPos(#$D+#$A+#$D+#$A,CurStr),2);//Удалить лишние строки

         // CurStr - здесь текст сообщения

         End;
      End;
    End;
  End;
End;
//зы: возможно потребуется подключить ShellAPI или ещё чего....

Что не является красивым.

Люди! Не в лом, наваяйте, плиз, перехват создания окна, конкретно для нетсенда!

Ловушка, к-я перехватывает создание того же блокнота упорно не хочет переделыватся для перехвата нетсенда smile

может там как-то по другому действовать надо?

Это сообщение отредактировал(а) Bog d`An - 20.2.2006, 05:34

--------------------

Удача откроет двери даже там, где их нет.Генри Морган--------------------[Furry team][Agent`s team][СРУКер]

NoliX

Дата 22.2.2006, 18:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 5.7.2005

Репутация: нет
Всего: 1

вся штука в том, товарищи, что хочется именно отлавливать эти сообщения на пути к экрану монитора...

--------------------

Опыт - это учитель, который очень дорого берет за свои уроки

Palladin

Дата 22.2.2006, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17

Меня заинтересовало такая прога, я попробовал сделать её как здесь написано но лезут ошибки, допустим не получилось сделать так чтоб начинался это процесс после нажатия на кнопку и ещё много других

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Palladin

Дата 23.2.2006, 01:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17

Может кто выложить полный код проги, которая будет отлавливать нетсенды, и показывать айпи и имя кампа с которого пошёл нетсенд??????
ну или хотябы часть проги

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

_hunter

Дата 23.2.2006, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

за полным кодом -- в раздел работа. там напишут.
тут только помогают...

--------------------

Tempora mutantur, et nos mutamur in illis...

smartov

Дата 23.2.2006, 12:21 (ссылка)

(нет голосов)

Загрузка ...

свой собственный

Профиль
Группа: Экс. модератор
Сообщений: 4225
Регистрация: 2.2.2006
Где: NJ

Репутация: нет
Всего: 259

По хорошему надо вешать hook на это дело. Если ловить окно.
А по человечески - надо ловить собственно говоря сообщение.

Из подсказок на других форумах
"Создаешь сокет, ставишь его в промиск моде, ловишь пакеты нет сенда, вырезаешь сообщение, сохраняешь."

http://www.kuban.ru/forum_new/forum2/arhiv/4912.html
http://delphikingdom.com/asp/answer.asp?IDAnswer=5416

Делаешь mailslot (предварительно остановив службу messenger) и ловишь мессаги

http://www.delphipages.com/threads/thread....86&G=154450 (компонент mailslot)

Ну и гугли... гугли...

Bog d`An

Дата 24.2.2006, 04:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 217
Регистрация: 26.3.2005
Где: Украина:Днепропет ровск

Репутация: нет
Всего: 3

smartov, я конечно извиняюсь, но по ссылкам одни вопросы... и теория не подкреплйнная практикой...

не мог бы ты привести код этой радости?

Цитата(smartov @ 23.2.2006, 12:21

)

"Создаешь сокет, ставишь его в промиск моде, ловишь пакеты нет сенда, вырезаешь сообщение, сохраняешь."

--------------------

Удача откроет двери даже там, где их нет.Генри Морган--------------------[Furry team][Agent`s team][СРУКер]

smartov

Дата 24.2.2006, 14:27 (ссылка)

(нет голосов)

Загрузка ...

свой собственный

Профиль
Группа: Экс. модератор
Сообщений: 4225
Регистрация: 2.2.2006
Где: NJ

Репутация: нет
Всего: 259

Bog d`An,

Цитата(Bog d`An @ 24.2.2006, 03:56

)

не мог бы ты привести код этой радости?

Не мог бы

А может тебе уже полноценную софтину накатать smile

Тогда это не тот форум

Цитата(Bog d`An @ 24.2.2006, 03:56

)

но по ссылкам одни вопросы...

В основном да. Но ясно что можно удобно реализовать через mailslot-s. Ссылу на компонент я кинул. Ты его смотрел?... Вооот....

Ну так вот для ленивых

Как работать с mail slot
http://faq.realcoding.net/quest514.html

Ну и собственно пример получения net send. Только не надо пугаться что сайт китайский (или корейский)
Код то все равно английский.
http://www.delphibbs.com/keylife/iblog_show.asp?xid=2657
Ну и собственно исходники, которые там обьясняются http://www.delphibbs.com/keylife/images/u56277/MailSlot.rar

Bog d`An

Дата 25.2.2006, 08:15 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 217
Регистрация: 26.3.2005
Где: Украина:Днепропет ровск

Репутация: нет
Всего: 3

smartov, мда... ленивый ты просто...
ели помнишь на ссылках ругаются что может не прокатить...
компонент закачал... может даже щас поставлю... smile

--------------------

Удача откроет двери даже там, где их нет.Генри Морган--------------------[Furry team][Agent`s team][СРУКер]

smartov

Дата 26.2.2006, 11:13 (ссылка)

(нет голосов)

Загрузка ...

свой собственный

Профиль
Группа: Экс. модератор
Сообщений: 4225
Регистрация: 2.2.2006
Где: NJ

Репутация: нет
Всего: 259

Bog d`An,

Цитата(Bog d`An @ 25.2.2006, 07:15

)

ленивый ты просто..

Я ЕЩЕ И ЛЕНИВЫЙ?! smile

Фигасе камрад.
Ну работай тогда далее сам.
Я тебе выискал кучу ответов + исходник вроде как работающий, и я еще и ленивый. Хоть бы спасибо сказал.
Если б ты попытался хоть заюзать их а потом говорил, а так еще и "может не проканать" а может и винда упасть и вообще все что угодно. Так ты проверь сначала!
Ленивый мли.... ну-ну smile

M
Girder

Давайте жить мирно :)

NoliX

Дата 1.3.2006, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 103
Регистрация: 5.7.2005

Репутация: нет
Всего: 1

а вопрос так и не решился..

--------------------

Опыт - это учитель, который очень дорого берет за свои уроки

Bog d`An

Дата 2.3.2006, 08:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 217
Регистрация: 26.3.2005
Где: Украина:Днепропет ровск

Репутация: нет
Всего: 3

smartov, СПАСИБО.

Цитата(smartov @ 26.2.2006, 11:13

)

Ну работай тогда далее сам.

отмазался

ню-ню... а ещё говоришь что не ленивый smile

smartov, я ещё ленивее smile

до сих пор не открыл делфю smile

Цитата(smartov @ 23.2.2006, 12:21

)

По хорошему надо вешать hook на это дело. Если ловить окно.

дык вроде ж везде говорят (и я сам пробовал) что hook на отлов создания окна не работает.

NoliX, да... не решился...

--------------------

Удача откроет двери даже там, где их нет.Генри Морган--------------------[Furry team][Agent`s team][СРУКер]

smartov

Дата 2.3.2006, 12:09 (ссылка)

(нет голосов)

Загрузка ...

свой собственный

Профиль
Группа: Экс. модератор
Сообщений: 4225
Регистрация: 2.2.2006
Где: NJ

Репутация: нет
Всего: 259

Bog d`An,

Цитата(Bog d`An @ 2.3.2006, 07:32

)

что hook на отлов создания окна не работает.

Работает
RTFM!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »