Nachrichten ohne Gegenstelle im Netztwerk versenden

[Mikender]

Hallo

ich will ein Programm erstellen,
mit dem man über das Netzwerk Nachrichten verschicken kann.
Das ist ja auch mit TServerSocket und TClientSocket nicht so schwer.

Nun meine Frage:

Es gibt Programme, die das auch ohne diese Komponente schaffen,
es erscheint einfach auf dem Bildschirm des Zielcomputers eine Nachricht so wie mit ShowMessage.

So dass der Empfänger kein Eigenes Programm starten muss
Wie kann ich das realisieren, könnt ihr mir irgendwelche Code-Beispiele gebe?

Danke im Voraus

PS: Es sollte von XP -> XP gehen.


...

[OregonGhost]

Es ist nur die halbe Wahrheit, dass der Benutzer kein Programm starten muss. Die von dir beschriebene (Miss-)Funktionalität wird vom Windows-Nachrichtendienst gewährleistet. Falls dieser im aktuellen Windows überhaupt noch vorhanden ist, gehört es zu den ersten Maßnahmen bei vielen Systemeinrichtungen, ihn abzuschalten. Außerdem stimmt es natürlich nicht, dass man dafür keine Gegenstelle braucht. Für TClientSocket brauchst du ja auch nicht notwendigerweise TServerSocket. Wenn du es aus irgendeinem Grund trotzdem so machen willst, kannst du dir mal den Befehl net send angucken. Irgendwo gibt es bestimmt auch noch eine passende API-Funktion, die das gleiche macht.

[b1zZ]

Ich habe zwar kein Codebeispiel zur Hand, aber ich glaube, dass das was du suchst du unter Netsend finden wirst.

[RavenIV]

Um mit dem Nachrichtendienst eine Nachricht zu senden, ist eine Windows-Domäne zwingend erfolgreich.

Ausserdem muss der Nachrichtendienst installiert und aktiviert sein.
So weit ich weiss ist der Nachrichtendienst seit WinXP nicht mehr standardmässig dabei.

[Fussball-Robby]

Zitat von RavenIV:

Ausserdem muss der Nachrichtendienst installiert und aktiviert sein.
So weit ich weiss ist der Nachrichtendienst seit WinXP nicht mehr standardmässig dabei.

Ich habe XP und der Nachrichtendienst war dabei, ich musste ihn nicht installieren.

Probiers doch einfach mit ShellExecute:

Delphi-Quellcode:

//uses ShellApi;

Procedure NetSend(Nachricht: String; Empfaenger: String = '*');
begin
  ShellExecute(Application.Handle,
              'open',
              PChar('cmd'),
              Pchar('/C Net Send ' + Empfaenger + ' ' + Nachricht),
              Nil,
              sw_Hide);
end;

//An einen Computer senden:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Netsend('Hi, wie gehts?','Computer1');
end;

//Oder an das genze Netzwerk:
begin
  Netsend('Hi, wie gehts?');
end;

Computer1 ersetzt du durch den Namen (geht da auch die IP? ) des Computers, der die Nachricht empfangen soll. Lässt du den Paramter ganz weg oder schreibst * rein, wird es an alle PCs aus dem Netzwerk verschickt.

Mfg

[RavenIV]

Zitat von Fussball-Robby:

Zitat von RavenIV:

Ausserdem muss der Nachrichtendienst installiert und aktiviert sein.
So weit ich weiss ist der Nachrichtendienst seit WinXP nicht mehr standardmässig dabei.

Ich habe XP und der Nachrichtendienst war dabei, ich musste ihn nicht installieren.

War er auch aktiviert bzw. gestartet?
Hast Du mal mit "net send <PC> <TEXT>" eine Nachricht versendet?

[Fussball-Robby]

Zitat von RavenIV:

Zitat von Fussball-Robby:

Zitat von RavenIV:

Ausserdem muss der Nachrichtendienst installiert und aktiviert sein.
So weit ich weiss ist der Nachrichtendienst seit WinXP nicht mehr standardmässig dabei.

Ich habe XP und der Nachrichtendienst war dabei, ich musste ihn nicht installieren.

War er auch aktiviert bzw. gestartet?
Hast Du mal mit "net send <PC> &lt;TEXT&gt;" eine Nachricht versendet?

Ja, ziemlich oft sogar, z.B. wenn ich zu faul bin, um zu meinem Bruder rüber zu gehen
Ich hab dann irgendwann mal in der Systemsteuerung entdeckt, wie man den Dienst (de)aktivieren kann. Vorher hab ich das schon oft benutzt ohne überhaupt zu wissen, dass man das an/ausschalten kann, also muss er aktiviert gewesen sein.

Mfg

[DeluxXx]

Hm ich glaub der Nachrichtendienst ist erst ab SP1 oder SP2 standmäßig deaktiviert, weil wohl zu viele Leute damit rumgespielt haben =) .

[Mikender]

Also erstmal danke für die vielen Antworten

Aber bei mir kommt die nachricht am Zielcomputer nicht an.

Ich habe auf beiden Computern den Messengerdienst eingeschaltet und benutze den Code von Fussball-Robby.

Ich weiss wirklich nicht, was ich falsch mache

könnt ihr mir helfen

[RavenIV]

Zitat von Mikender:

Also erstmal danke für die vielen Antworten

Aber bei mir kommt die nachricht am Zielcomputer nicht an.

mach man eine Console auf (cmd.exe) und gib dort ein:
net send <Ziel-Computer> <Nachrichtentext>

Kommt eine Meldung bei Dir?