Net Send abfangen !? (zum Zweiten)

[Gast]

ok, war ne blöde idee die adresse zu ändern, sorry... :oops:

bin jetzt bestimmt unten durch, aber ich versuchs nochmal:


wenn man mit der eingabeaufforderung einen/ein (?) "net send" an eine ip-adresse schickt (also: "net send 1.2.3.4 hallo"), erscheint beim empfänger ein fenster vom nachrichtendienst... gell?

welche komponente (indy, fastnet, jedi-addon's ...) kann so eine nachricht abfangen und in ein memo eintragen???

ps. abfangen heißt nicht unterdrücken... die kann ruhig angezeigt werden oder sonste was, aber die nachricht (mit oder ohne absender, datum oä) soll ins memo.


:oops:

[MathiasSimmack]

Frag doch einfach mal DieHardMan, der hat so ein Programm geschrieben und hilft dir möglicherweise (gern?) weiter:
Message Sender.

[Daniel]

Hallo dodo,

Zitat:

Zitat von dodo2

ok, war ne blöde idee die adresse zu ändern, sorry... :oops:

bin jetzt bestimmt unten durch [...]

Kein Problem. Fehler passieren... Die Sache ist aus der Welt.

[Gast]

hi,

Hab mal mit DieHardMan über ICQ geplaudert. Mehr als "hab ich mir schon so gedacht" hab ich aber nicht erfahren. :?

Ich soll das Handle suchen und den Static Text auslesen.
Nichts leichter als das!

In der Hilfe von Delphi stehen allerdings 1341 :shock: Themen zu "handle".
Keinen Plan wie ich da ran gehen soll!?

Ein Ansatz würde mir schon reichen...

[Luckie]

Einfach: Mit einem Timer die Messagebox suchen und das STATIC auslesen, dann die Messagebox schließen.

Schwer: Das ganze in einem Thread machen.

Hilfe von mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  hWnd, hStatic,
  hButton       : Cardinal;
  buffer: array[0..1024] of Char;
begin
  { Nachrichtendienst-Fenster finden }
  hWnd := FindWindow(nil, 'Nachrichtendienst '); { man achte auf das Leerzeichen beim Fenstertitek }
  if hWnd = INVALID_HANDLE_VALUE then
    exit;
  { Handle vom Label über die ID holen }
  hStatic := GetDlgItem(hWnd, $FFFF);
  { Text klauen }
  SendMessage(hStatic, WM_GETTEXT, sizeof(buffer), Integer(@buffer));
  { Anzeigen }
  Label1.Caption := String(buffer);
  { Handle vom Button holen }
  hButton := GetDlgItem(hWnd, $2);
  { und drauf klicken 2x, sonst geht es nicht zu }
  SendMessage(hButton, BM_CLICK, 0, 0);
  SendMessage(hButton, BM_CLICK, 0, 0);
end;

[Gast]

da schließt sich aber noch ein problemchen an: wie bekomme ich denn da die absender-ip raus?

nicht der pc-name oder sowas, sondern die echte ip...? :?:



mfg

[stho]

*push*

würde mich aber auch interessieren... also fals jemand eine idee hat... ^^