Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как послать сетевое сообщение, Вместо Ctrl+R 'net send ...' 
:(
    Опции темы
78125
  Дата 20.1.2003, 01:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Помогите хочу отсылать стандарт сообщения.
Сейчас пльзуюсь 'net send 192.168.0.X '

Как сделать это программно
Пробовал компонент [/B]NMMsg[B] не разобрался что то он делает но явно не то.
--------------------
купим подпись
PM MAIL   Вверх
78125
Дата 20.1.2003, 02:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Извиняюсь не ctrl+R
А клавиша рядом "со значком микрософт"+R
--------------------
купим подпись
PM MAIL   Вверх
Medved
Дата 20.1.2003, 05:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154
можно использовать функции WinApi

ShellExecute или WinExec

например:
Код

var NameUser, MyMessage :string;
begin
 NameUser := Edit1.Text;
 MyMessage := Edit2.Text;

 WinExec(PChar('net send '+NameUser+' '+MyMessage), SW_HIDE);
end;



--------------------
http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...
PM MAIL WWW ICQ Skype GTalk   Вверх
SmaLL
Дата 23.1.2003, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 557
Регистрация: 17.12.2002
Где: Voronezh

Репутация: 1
Всего: 2
Цитата(Pegas @ 19.1.2003, 21:27)
можно использовать функции WinApi

ShellExecute или WinExec



Нужно использовать функцию WinAPI - NetMessageBufferSend

Например:
Код

function NetMessageBufferSend(ServerName, MsgName, FromName: LPTSTR;
 Buf: Pointer; BufLen: DWORD): NET_API_STATUS; stdcall;
 external 'netapi32.dll' name 'NetMessageBufferSend';
.............
var
 SendResult: dword;
 BufMesLen: integer;
 BufMessage: widestring;
 ToComp: WideString;
............
 BufMessage:= 'Текст сообщения';
 BufMesLen:= Length(BufMessage) shl 1;
 ToComp:= 'имя комьютера или его IP-адрес';
 SendResult := NetMessageBufferSend(nil, PChar(ToComp), nil, PChar(BufMessage), BufMesLen);
 if SendResult <> 0 then {кричим, что не отправлено};




--------------------
Что ни делается - всЁ к лучшему! SmallWeb
Мой адрес не дом и не улица, мой адрес родной пивзавод!
PM MAIL WWW ICQ   Вверх
Guest_78125
Дата 24.1.2003, 17:46 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
не получилось

[Error] Unit1.pas(31): Undeclared identifier: 'NET_API_STATUS'
  Вверх
SmaLL
Дата 27.1.2003, 17:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 557
Регистрация: 17.12.2002
Где: Voronezh

Репутация: 1
Всего: 2
Цитата(Guest_78125 @ 24.1.2003, 14:46)
не получилось

[Error] Unit1.pas(31): Undeclared identifier: 'NET_API_STATUS'

type
NET_API_STATUS = DWORD;



--------------------
Что ни делается - всЁ к лучшему! SmallWeb
Мой адрес не дом и не улица, мой адрес родной пивзавод!
PM MAIL WWW ICQ   Вверх
78125
Дата 27.1.2003, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Спасибо работает!
--------------------
купим подпись
PM MAIL   Вверх
Step
Дата 28.1.2003, 00:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 25
SmaLL
Цитата
NetMessageBufferSend
А ты не подскажеш, через какой порт это работает, и по какому протоколу


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
SmaLL
Дата 28.1.2003, 17:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 557
Регистрация: 17.12.2002
Где: Voronezh

Репутация: 1
Всего: 2
Цитата(Step @ 27.1.2003, 16:39)
SmaLL
Цитата
NetMessageBufferSend
А ты не подскажеш, через какой порт это работает, и по какому протоколу

протокол NetBIOS
порт, кажется, 139 или 129

Это сообщение отредактировал(а) SmaLL - 28.1.2003, 17:13


--------------------
Что ни делается - всЁ к лучшему! SmallWeb
Мой адрес не дом и не улица, мой адрес родной пивзавод!
PM MAIL WWW ICQ   Вверх
Step
Дата 28.1.2003, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 25
точно не 139


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
SmaLL
Дата 29.1.2003, 01:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 557
Регистрация: 17.12.2002
Где: Voronezh

Репутация: 1
Всего: 2
Цитата(Step @ 28.1.2003, 14:43)
точно не 139

А что на 139-м ?


--------------------
Что ни делается - всЁ к лучшему! SmallWeb
Мой адрес не дом и не улица, мой адрес родной пивзавод!
PM MAIL WWW ICQ   Вверх
Step
Дата 30.1.2003, 02:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 25
Цитата
А что на 139-м ?
Работа с разшариными папками


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Step
Дата 30.1.2003, 02:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 25
проверил 129, тоже не подходит


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
SmaLL
Дата 30.1.2003, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 557
Регистрация: 17.12.2002
Где: Voronezh

Репутация: 1
Всего: 2
Цитата(Step @ 29.1.2003, 18:38)
Цитата
А что на 139-м ?
Работа с разшариными папками

ВсЁ правильно. Это всЁ NetBIOS, а он работает на 139-м порте.



--------------------
Что ни делается - всЁ к лучшему! SmallWeb
Мой адрес не дом и не улица, мой адрес родной пивзавод!
PM MAIL WWW ICQ   Вверх
Dayana
Дата 30.1.2003, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник Клуба
Сообщений: 352
Регистрация: 6.10.2002
Где: Тель-Авив

Репутация: 2
Всего: 4
Здесь инфа по портам.
PM MAIL ICQ   Вверх
Step
Дата 30.1.2003, 20:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 25
попробывал все порты которые связанны с сообщениями, чтото не получилось


--------------------
- Дурак учится на своих ошибках, умный на чужих.
 - умные учатся у дураков
PM MAIL ICQ   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0621 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.