Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Отправка сообщений в сети

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> Отправка сообщений в сети

Имя

Сообщение

<< Старые топики Новые топики >>

Отправка сообщений в сети - 2007-02-09 07:35:34.646666

sinker

Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000

Можно ли командой net send отправлять сообщения от чужого имени? Если нет, то подскажите альтернативу. Использую Delphi.

Post #: 1

RE: Отправка сообщений в сети - 2007-02-09 09:25:39.140000

blacksun

Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000

могу тебе пример на делфи кинуть для анонимной отправки мессаг

Post #: 2

RE: Отправка сообщений в сети - 2007-02-09 09:29:26.896666

blacksun

Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000


 procedure rNetSend;
 var
   MSopen: THandle;
   ToHostA, User, Host: String;
   Data: String;
   Len: DWORD;
   I: Integer;
 begin
   Stop := False;
   with frmNetSend do
   begin
     Button1.Enabled := False;
     for i := 0 to StrToInt(MsgCount.Text) - 1 do // MsgCount: TEdit
     begin
       if Stop then
         ExitThread(0);
       ToHostA := ToHost.Text;// ToHost, FromUser, ToUser: TEdit
       USER := FromUser.Text; 
       Host := ToUser.Text;
       Data := Text.Text; // Text: TMemo
       CharToOEM(PChar(User), PChar(User));
       CharToOEM(PChar(Host), PChar(Host));
       CharToOem(Pchar(Data), Pchar(Data));
       Data := User + #0 + Host + #0 + Data;
       Len := Length(Data);
       MSopen := CreateFile(PChar('\\' + ToHostA + '\mailslot\messngr'),
         GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
       if MSopen &lt;&gt; INVALID_HANDLE_VALUE then
         WriteFile(MSopen, Pointer(PChar(Data))^, Len, Len, nil);
       CloseHandle(MSopen);
       Label2.Caption := 'Служба сообшений - отправлено ' + IntToStr(I) + ' сообшений'; // Label2: TLabel
       application.ProcessMessages;
     end;
     Button1.Enabled := True;
     if DoHide.Checked then // DoHide: TCheckBox
       Hide;
   end;
 end;

Post #: 3

RE: Отправка сообщений в сети - 2007-02-09 09:31:18.806666

vidger

Сообщений: 43
Оценки: 0
Присоединился: 2006-05-23 19:53:14

от чужого имени мессаги можно отправлять прогой netview. Я её использую вместо стандартного сетевого окружения.

Post #: 4

RE: Отправка сообщений в сети - 2007-02-09 18:56:36.406666

sinker

Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000

quote:

ORIGINAL: vidger

от чужого имени мессаги можно отправлять прогой netview. Я её использую вместо стандартного сетевого окружения.

Только эти мессаги должна отправлять моя программа. Причем не обязательно от чужого имени - имя может быть любое (его указывает пользователь).

Post #: 5

RE: Отправка сообщений в сети - 2007-02-18 21:53:36.300000

sinker

Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000

quote:

ORIGINAL: blacksun

procedure rNetSend; var MSopen: THandle; ToHostA, User, Host: String; Data: String; Len: DWORD; I: Integer; begin Stop := False; with frmNetSend do begin Button1.Enabled := False; for i := 0 to StrToInt(MsgCount.Text) - 1 do // MsgCount: TEdit begin if Stop then ExitThread(0); ToHostA := ToHost.Text;// ToHost, FromUser, ToUser: TEdit USER := FromUser.Text; Host := ToUser.Text; Data := Text.Text; // Text: TMemo CharToOEM(PChar(User), PChar(User)); CharToOEM(PChar(Host), PChar(Host)); CharToOem(Pchar(Data), Pchar(Data)); Data := User + #0 + Host + #0 + Data; Len := Length(Data); MSopen := CreateFile(PChar('\\' + ToHostA + '\mailslot\messngr'), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if MSopen <> INVALID_HANDLE_VALUE then WriteFile(MSopen, Pointer(PChar(Data))^, Len, Len, nil); CloseHandle(MSopen); Label2.Caption := 'Служба сообшений - отправлено ' + IntToStr(I) + ' сообшений'; // Label2: TLabel application.ProcessMessages; end; Button1.Enabled := True; if DoHide.Checked then // DoHide: TCheckBox Hide; end; end;

Этот пример точно работает под ХР? У меня нет сети и я не могу проверить. А программу делать надо… :)

Post #: 6

RE: Отправка сообщений в сети - 2007-02-19 00:35:42.863333

blacksun

Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000

quote:

ORIGINAL: sinker

quote:

ORIGINAL: blacksun

procedure rNetSend; var MSopen: THandle; ToHostA, User, Host: String; Data: String; Len: DWORD; I: Integer; begin Stop := False; with frmNetSend do begin Button1.Enabled := False; for i := 0 to StrToInt(MsgCount.Text) - 1 do // MsgCount: TEdit begin if Stop then ExitThread(0); ToHostA := ToHost.Text;// ToHost, FromUser, ToUser: TEdit USER := FromUser.Text; Host := ToUser.Text; Data := Text.Text; // Text: TMemo CharToOEM(PChar(User), PChar(User)); CharToOEM(PChar(Host), PChar(Host)); CharToOem(Pchar(Data), Pchar(Data)); Data := User + #0 + Host + #0 + Data; Len := Length(Data); MSopen := CreateFile(PChar('\\' + ToHostA + '\mailslot\messngr'), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if MSopen <> INVALID_HANDLE_VALUE then WriteFile(MSopen, Pointer(PChar(Data))^, Len, Len, nil); CloseHandle(MSopen); Label2.Caption := 'Служба сообшений - отправлено ' + IntToStr(I) + ' сообшений'; // Label2: TLabel application.ProcessMessages; end; Button1.Enabled := True; if DoHide.Checked then // DoHide: TCheckBox Hide; end; end;

Этот пример точно работает под ХР? У меня нет сети и я не могу проверить. А программу делать надо… :)

Да, сам его юзал ..

Post #: 7

RE: Отправка сообщений в сети - 2007-02-19 11:19:34.956666

sinker

Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000

quote:

ORIGINAL: blacksun

procedure rNetSend; var MSopen: THandle; ToHostA, User, Host: String; Data: String; Len: DWORD; I: Integer; begin Stop := False; with frmNetSend do begin Button1.Enabled := False; for i := 0 to StrToInt(MsgCount.Text) - 1 do // MsgCount: TEdit begin if Stop then ExitThread(0); ToHostA := ToHost.Text;// ToHost, FromUser, ToUser: TEdit USER := FromUser.Text; Host := ToUser.Text; Data := Text.Text; // Text: TMemo CharToOEM(PChar(User), PChar(User)); CharToOEM(PChar(Host), PChar(Host)); CharToOem(Pchar(Data), Pchar(Data)); Data := User + #0 + Host + #0 + Data; Len := Length(Data); MSopen := CreateFile(PChar('\\' + ToHostA + '\mailslot\messngr'), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if MSopen <> INVALID_HANDLE_VALUE then WriteFile(MSopen, Pointer(PChar(Data))^, Len, Len, nil); CloseHandle(MSopen); Label2.Caption := 'Служба сообшений - отправлено ' + IntToStr(I) + ' сообшений'; // Label2: TLabel application.ProcessMessages; end; Button1.Enabled := True; if DoHide.Checked then // DoHide: TCheckBox Hide; end; end;

А свое имя здесь никак нельзя вписать?

Post #: 8

RE: Отправка сообщений в сети - 2007-02-19 22:32:16.210000

blacksun

Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000

quote:

ORIGINAL: sinker

quote:

ORIGINAL: blacksun

procedure rNetSend; var MSopen: THandle; ToHostA, User, Host: String; Data: String; Len: DWORD; I: Integer; begin Stop := False; with frmNetSend do begin Button1.Enabled := False; for i := 0 to StrToInt(MsgCount.Text) - 1 do // MsgCount: TEdit begin if Stop then ExitThread(0); ToHostA := ToHost.Text;// ToHost, FromUser, ToUser: TEdit USER := FromUser.Text; Host := ToUser.Text; Data := Text.Text; // Text: TMemo CharToOEM(PChar(User), PChar(User)); CharToOEM(PChar(Host), PChar(Host)); CharToOem(Pchar(Data), Pchar(Data)); Data := User + #0 + Host + #0 + Data; Len := Length(Data); MSopen := CreateFile(PChar('\\' + ToHostA + '\mailslot\messngr'), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); if MSopen <> INVALID_HANDLE_VALUE then WriteFile(MSopen, Pointer(PChar(Data))^, Len, Len, nil); CloseHandle(MSopen); Label2.Caption := 'Служба сообшений - отправлено ' + IntToStr(I) + ' сообшений'; // Label2: TLabel application.ProcessMessages; end; Button1.Enabled := True; if DoHide.Checked then // DoHide: TCheckBox Hide; end; end;

А свое имя здесь никак нельзя вписать?

?? ты про че? этот кусок кода я выдрал из своего исходника, там же все понятно ..

quote:

ToHostA := ToHost.Text;// ToHost, FromUser, ToUser: TEdit
USER := FromUser.Text;
Host := ToUser.Text;
Data := Text.Text; // Text: TMemo

Post #: 9

RE: Отправка сообщений в сети - 2007-02-20 11:17:41.613333

sinker

Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000

Ясно. Спасибо за информацию!

Post #: 10

RE: Отправка сообщений в сети - 2007-02-25 12:42:46.263333

adwokat

Сообщений: 252
Оценки: 0
Присоединился: 2005-11-12 14:19:05

Она позволит отправлять собщения от имени уже СУЩЕСТВУЮЩЕГО компа в сети (то есть когда это имя уже занято)? Если да скинь пжалуста полный исходник сюда или в личку

Post #: 11

RE: Отправка сообщений в сети - 2007-02-25 20:58:46.970000

sinker

Сообщений: 134
Оценки: 0
Присоединился: 2007-01-08 21:55:33.930000

quote:

ORIGINAL: adwokat

Она позволит отправлять собщения от имени уже СУЩЕСТВУЮЩЕГО компа в сети (то есть когда это имя уже занято)? Если да скинь пжалуста полный исходник сюда или в личку

Лутше сюда :)

Post #: 12

Страниц: [1]

Все форумы >> [Компилируемые языки] >> Отправка сообщений в сети

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.