NET SEND für Windows 98? REPLACEMENT

[FlorianK]

@alcaeus:
Wenn du nen Proggi schreibst was einen Headcrash verursacht (auch wenn es nicht beabsichtigt war :smile2: ),
haftest du uneingeschränkt. Das heißt ... :warn: ... du musst ihm oder ihr ne neue Festplatte kaufen, usw.


Soviel zum Thema Haftungsausschluss... :tongue:

Florian K.

[edosoft]

so kann manns auch übersetzen...

aber sonst: weils auch einfach so zufällig en headcrash gibt...
naja

übrigens: "net send" (d.h. nachrichten NUR VERSCHICKEN) geht so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
  H: THandle;
  C: Cardinal;
begin
////////
//edit1: pc, der die msg empfängt(IP oder NAME)
//edit2: "nachricht von x"...
//edit3: ..."an x am <datum - wird von windows gesetzt>"
//memo1: nachrichtentext
////////

S := Edit2.Text + #0 + Edit3.Text + #0 + Memo1.Text + #0;
H := CreateFile(PChar('\\' + Edit1.Text + '\mailslot\messngr'), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
WriteFile(H, S[1], Length(S), C, nil);
CloseHandle(H);
end;

/EDIT: UUH ein formalitätsfehler im code (leerzeichen nach ":=" vergessen...)

[edosoft]

achja vergas ich fast zu erwähnen:
so kann man ja auch "net send"s bauen, die den absender(meistens die ip bzw. der besitzername bei win98) unterdrücken

[man kann natürlich auch BOMBER bauen...]

[Tubos]

Zitat:

so kann man ja auch "net send"s bauen, die den absender(meistens die ip bzw. der besitzername bei win98) unterdrücken

Zitat:

[man kann natürlich auch BOMBER bauen...]

Und beides geht mit der Windows-FunktionNetMessageBufferSend auch :stupid:
(nur halt nicht unter Win98 ;) )

[edosoft]

Zitat:

Zitat von Tubos

(nur halt nicht unter Win98 ;) )

tja...
a) das ding hab ich AUCH gebaut weil des winpopup für win98 scheisse ist und du bei xp ja auch einfach den befehl "net send" aufrufen kannst

b) ich die anleitung für des ding da net glesen hab weil ich zu faul war und mein code ja viel kürzer is

--und sowieso auf allen windowses funktionell

[NicoDE]

Zitat:

Zitat von Tubos

Und beides geht mit der Windows-Funktion NetMessageBufferSend auch :stupid:
(nur halt nicht unter Win98 ;) )

NetMessageBufferSend gibt es auch unter Win9x - ist aber nicht dokumentiert und schwierig auf direktem Wege aufzurufen, da es sich dort in einer 16-Bit DLL befindet.
Siehe: http://www.bendlins.de/nico/delphi/NetSend.zip (88 KB)

ps: das Problem bei der Mailslot-Methode ist das Senden von Win9x an WinNT...

[edosoft]

jut thänx

ist aber auf jeden fall komplizierter als meine methode, wobei mal auszuprobieren wäre ob die auf z.b. win longhorn noch geht...

[NicoDE]

Zitat:

Zitat von edosoft

ist aber auf jeden fall komplizierter als meine methode, wobei mal auszuprobieren wäre ob die auf z.b. win longhorn noch geht...

Solange es ein Win32-Subsystem/Emulator gibt, wird es funktionieren (das o.g. Programm funktioniert auch noch unter WoW64 (Win64)) ...

[Tubos]

Zitat:

NetMessageBufferSend gibt es auch unter Win9x - ist aber nicht dokumentiert und schwierig auf direktem Wege aufzurufen, da es sich dort in einer 16-Bit DLL befindet.

Ahaa...habe ich nicht gewusst! :thumb:

Zitat:

ist aber auf jeden fall komplizierter als meine methode, wobei mal auszuprobieren wäre ob die auf z.b. win longhorn noch geht...

Unter Longhorn geht es sicher, weil Win32-Programme noch wie vorher (also bei XP) ausgeführt werden, so wie heute DOS-Programme unter XP.
Für .NET braucht man dann klarerweise was anderes.

edit:
zu spät...

[edosoft]

Zitat:

Zitat von Tubos

Unter .NET braucht man dann klarerweise was anderes.

Warum meinst?
das ähem "protokoll" für die messages wird ja wahrscheinlich noch gleich sein, sonst könnte ein nt/2000/xp rechner ja auch keine nachrichten mehr an .net schicken...