Net Send

[netscanner]

Hi ich hab hier ein net send Schleifen - Programm geschrieben

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a, b: integer;
c, d : string;
begin

b:= strtoint (edit1.text);
a := 0   ;
c:= edit2.text  ;
d := edit3.text;
repeat a := a + 1  ;
begin
windows.WinExec(pchar('net send  ' + (d) + (c)),1);
end;
 until  a = b;
end;

variable a ist für die Schleife
b ist die Begrenzung der Schleife
c der Text, der mit net send gesendet wird
und d SOLLTE die IP Eingabe sein - das funktioniert aber nicht so wie ich wollte....ShellExec geht bei mir nicht (Delphi 6) also bitte nich sowas anbieten....
Kann mir Jemand helfen????


Schnelle Antwort wäre gut...
Danke

[BenjaminH]

Zitat:

Zitat von netscanner

und d SOLLTE die IP Eingabe sein - das funktioniert aber nicht so wie ich wollte....

Was passiert denn?
Und imho müsste ShellExecute auf jeden Fall gehen!

[NicoDE]

Zitat:

Zitat von netscanner

d SOLLTE die IP Eingabe sein

Eine IP-Adresse ist kein registrierter Nachrichtenalias (net send /?).

Zitat:

Zitat von netscanner

ShellExec geht bei mir nicht (Delphi 6)

uses ShellAPI;

[netscanner]

Wie geht use ShellAPI und wie macht man das?
Hat jemand dann ne idee wie mann die ip eingeben soll?
Es soll der DOS Befehl net send ip nachricht rauskommen...
Die nachricht und ip sollten variiren können..

[NicoDE]

Zitat:

Zitat von netscanner

Wie geht use ShellAPI und wie macht man das?

Steht in der Delphi-Hilfe.

Zitat:

Zitat von netscanner

Es soll der DOS Befehl net send ip nachricht rauskommen...

Hatte ich schon erwähnt, dass IP-Adressen nicht funktionieren?

[netscanner]

funktionieren ip adressen garnet oder nur mit einem anderen befehl - anderer code?

[ichbins]

So ne net-send-schleife habe ich auch schon mal in der Schule ausgeführt :twisted:
Danach war die net send Funktion gesperrt :wall:

uses: oben in deiner unit1 ist eine Liste von Units, deren Befehlssatz verwendet wird. Die sieht so aus:

Delphi-Quellcode:

uses
  windows, system,...

da schreibst du die shellapi dazu.

Mit net send sendest du die Nachricht an einen Nachrichtenalias und nicht an eine IP-Adresse. Der Nachrichtenalias * gibt an dass jeder die Nachricht erhält.


Geht übrigens viel einfacher (ohne Delphi):

Code:

:begin
net send * Hallo. Ich bin eine unendlich oft wiederholte Message. Stell dich schon mal drauf ein dass ich dich nerve
goto begin

Das ganze dann in eine Batch-Datei wie (z.B. 'netsend.bat') speichern und ausführen.

[netscanner]

den befehl kannte ich auch.....ich fand es aber lustiger den lehrer mit einem Programm aus der Programmiersprache zu nerven, die wir grade lernen.....

[ichbins]

Du kannst natürlich auch gleich ein Remote-Tool schreiben: Ein Programm läuft auf dem Zielrechner und zeigt die Nachrichten an und ein anderes hast du auf deinem Rechner laufen und die kommunizieren über eine Netzwerkverbindung per IP. Das wird dann aber schon schwieriger...
Mit dem Remote-Tool kannst du dann aber auch gleich noch Screenshoots abrufen und den Mauszeiger des anderen PCs bewegen und Tasks beenden und lauter so Späße ;)

Mit Delphi hast du natürlich weit mehr möglichkeiten als mit Batch (oder jedenfalls einfacher durchzuführen): Du kannst einen variierenden Text mit der Nachrichtennummer senden etc.

[Luckie]

Zitat:

Zitat von netscanner

den befehl kannte ich auch.....ich fand es aber lustiger den lehrer mit einem Programm aus der Programmiersprache zu nerven, die wir grade lernen.....

... und deswegen geschlossen. Hilfestellung zu solchen Programmen wird hier in der Delphipraxis nicht gegegeben, da solche Art von Programmen unerwünscht sind.