NetSend mit Delphi

[Viech]

Hallo

Ich habe diese Seite gerade über Google gefunden und hab mich auch schon etwas umgesehen hier. Ich hab schon was zu meiner Frage gefunden, aber ein kleines Problem hab ich da noch, also bitte nicht gleich erschlagen falls das Thema schon auf die Nerven geht

Ich möchte also, wie der Betreff schon sagt, mit Delphi ein Programm schreiben, das NetSend Nachrichten an andere Rechner im Netzwerk schickt. Im ersten Editfeld soll man den Empfänger, im zweiten die Nachricht eingeben können. Ich habe in diesem Thread im untersten Beitrag einen Code gefunden, mit dem das doch gehen sollte?
Wenn ich auf den Button drücke, passiert aber trotz korrekter Eingabe des Empfängers nichts. Kann mir vielleicht jemand etwas auf die Sprünge helfen wo genau mein Fehler ist? Oder sollte das vielleicht gar nicht in eine Procedure?

Ich beschäftige mich erst seit Kurzem mit Delphi, deshalb komm ich leider irgendwie nicht weiter und wär dankbar für jede konstruktive Antwort

PS: Wenn es noch Alternativen zur Shellexecute gibt, würden mich die auch interessieren.

[Luckie]

da der Code vom Meister persönlich ist, sollte er gehen. Aber wie schon in dem Thread gesagt, kuck mal auf meiner Seite nach NetSend.

[Alter Mann]

Hast Du schon mal mit 'Net Send' gearbeitet?
Zu ShellExecute gibt es diverse Abhandlungen.
Womit arbeitest Du eigendlich; Delphi, VB oder was?
Kurz gesagt 'Hose runter'.

[MrKnogge]

Hier im Forum, hab ich auch schon etliche Threads zu diesem Thema gefunden,
wobei NetSend ab dem ServicePack2 für WindowsXP wohl der Vergangenheit angehört...

[Luckie]

Zitat von MrKnogge:

Hier im Forum, hab ich auch schon etliche Threads zu diesem Thema gefunden,
wobei NetSend ab dem ServicePack2 für WindowsXP wohl der Vergangenheit angehört...

Und warum das bitte sehr?

[Viech]

Würde mich auch interessieren, warum Netsend ab dem SP2 für XP der Vergangenheit angehören sollte...

@Luckie: Ich hab mir mal Dein Programm und den QT angeschaut. Leider ist mir der Code etwas zu komplex, ich steig da nich durch bin noch Anfänger...

Ich würd mich freuen, wenn jemand noch mal auf den oben genannten Code eingehen könnte, den versteh ich wenigstens zum Teil

...btw Frohes Neues

[Luckie]

wie gesagt, bei mir funktioniert er. Poste doch mal deine Version.

[Matze]

also bei mir geht das so auch

Delphi-Quellcode:

procedure TForm1.Senden;
var Send: string;
begin
  Send := 'send ' + User.Text + ' ' + Nachricht.Text;
  ShellExecute(GetDesktopWindow, 'open', 'net.exe', PChar(Send), nil, SW_HIDE);
end;

Wo bei "User" ein Edit ist, in dem der Empfänger steht (angemeldeter User oder Computername)
und "Nachricht" ein Memo ist, in dem die nachricht steht

[MathiasSimmack]

Zitat von Luckie:

da der Code vom Meister persönlich ist, sollte er gehen.

Evtl. scheitert´s bei ... Was? Wie heißt der? ... Na ja, also evtl. scheitert´s bei ... hm ... Viech am fehlenden Leerzeichen nach dem "send"-Befehl. Insofern könnte Matzes Code die Rettung bedeuten.

Zitat von MrKnogge:

wobei NetSend ab dem ServicePack2 für WindowsXP wohl der Vergangenheit angehört...

Ich schätze, das wird wohl eher darauf hinauslaufen, dass Microsoft mit dem SP2 diverse potentielle Lücken stopfen will, selbst wenn dazu noch keine Würmer usw. existieren. Evtl. wird der Zugriff auf "net send" von außen unterbunden, um den Net-Send-Spammern den Hahn abzudrehen. Inwieweit das aber die Kommunikation im LAN beeinflusst ... Mal seh´n ... Aber das "net send" komplett gekickt wird, das kann ich mir nicht vorstellen. Aber lassen wir uns mal überraschen.
Wenn´s wirklich dazu kommt, dann wäre das mit einem Schlag das Aus für diverse Hobbyprogrammierer, deren erste Idee es ist, einen grafischen Aufsatz für "net send" zu bauen ... Oh ... Entschuldige, Viech.

Zitat von Matze:

ShellExecute(GetDesktopWindow, { ... }

Hat dir das Handle deiner Form was getan, weil du es nicht benutzt? *kicher*

[MrKnogge]

Zitat von Luckie:

Zitat von MrKnogge:

Hier im Forum, hab ich auch schon etliche Threads zu diesem Thema gefunden,
wobei NetSend ab dem ServicePack2 für WindowsXP wohl der Vergangenheit angehört...

Und warum das bitte sehr?

Da Microsoft der Meinung ist, dass zuviel Spam & Betrugsversuche
(angebliche Nachrichten von MS) über diesen Service laufen. Mit
dem 2. ServicePack soll er nun komplett entfernt werden.