Скачать: CL | DM;

Сообщение по ЛАН   Найти похожие ветки 

← →
MystiX ©   (2003-03-03 20:58) [0]

Как можно послать по лан сообщение(что бы оно появилось у адресата в окошке как от showmessage), зная IP?

---

← →
Rouse_ ©   (2003-03-03 21:28) [1]

Если с НТ на НТ то используя net send
Если запущен WinPopup, используй mailslots

Желаю успехов

---

← →
Носов Максим   (2003-03-04 03:37) [2]


procedure TForm1.BitBtn1Click(Sender: TObject);
Var A,Cur:LongInt;
begin
Form1.Enabled:=False;
Cur:=Screen.Cursor;
Screen.Cursor:=-11;
For A:=0 to ListView1.Items.Count-1 do
If ListView1.Items.item[A].Checked Then
Begin
WinExec(Pchar("Net send "+ListView1.Items.item[A].Caption+" "+Edit1.text),SW_HIDE);
AddLog("Отправлено сообщение по адресу "+ListView1.Items.item[A].Caption+" ""+Edit1.text+""");
End;
Form1.Enabled:=True;
Screen.Cursor:=Cur;
end;


---

← →
O6OPMOT   (2003-03-04 13:28) [3]

убивать таких надо, кто до сих пор net send пользует.

---

← →
MystiX ©   (2003-03-04 17:55) [4]

O6OPMOT, с удовольствием узнал твой вариант.
Носов Максим, конечно спасибо, но можно с коментариями, я пока в сетевом программировании не очень

---

← →
Evgeny222   (2003-03-04 18:12) [5]

O6OPMOT, так как все-таки ? Не используя net send ?

---

← →
Anatoly Podgoretsky ©   (2003-03-04 19:04) [6]

Evgeny222 (04.03.03 18:12)
Совсем не ценишь жизнь?

---

← →
MystiX ©   (2003-03-04 20:19) [7]

Ну может кто-то объяснит как это использовать, а то ещё в потрепаться перенесут и про вопрос все забудут.

---

← →
Носов Максим   (2003-03-05 02:47) [8]


If ListView1.Items.item[A].Checked Then
(*если в списке выбраны элементы, то открывается NET SEND передаётся адрес получателя из списка ListView1.Items.item и ссответственно текст сообщения Edit1.text*)
Begin
WinExec(Pchar("Net send "+ListView1.Items.item[A].Caption+" "+Edit1.text),SW_HIDE); (*SW_HIDE указывает, что консоль недолжна отображаться*)
Вчера написал программу для этого, пишу - вышлю исходники.


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c