73%
22%
19%
11%
6%
Dienstag, 5. April 2005, 19:32
Anonymes Net send..
Hallo,
also ich bräuchte mal kurz Hilfe:
http://www.radhome.de/index.php?do=showtut&tut=anons
Da schreiben die was von anonymen Net send, aber ich kriege das einfach nicht hin..
Könnte mir da jemand mal ne komplete Delphiunit hier reinschreiben..
Weil ich komme da nicht so durch!
Wäre echt super nett,
Gruß Marco
also ich bräuchte mal kurz Hilfe:
http://www.radhome.de/index.php?do=showtut&tut=anons
Da schreiben die was von anonymen Net send, aber ich kriege das einfach nicht hin..
Könnte mir da jemand mal ne komplete Delphiunit hier reinschreiben..
Weil ich komme da nicht so durch!
Wäre echt super nett,
Gruß Marco
.: mit dem Alter kommt die Weisheit - oder auch nicht :.
Mittwoch, 6. April 2005, 17:49
Zitat
Function SendToMailSlot(Const Server, Slot, Mail : String) : Boolean;
Var
hToSlot : THandle;
BytesWritten : DWord;
FullSlot : String;
Begin
FullSlot := '\\'+Server+'\mailslot\'+Slot; // MailSlot
hToSlot := CreateFile(
PChar(FullSlot),
GENERIC_WRITE,
FILE_SHARE_READ,
NIL,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0);
If hToSlot = INVALID_HANDLE_VALUE Then
Exit;
Try
BytesWritten := 0;
If (NOT WriteFile(hToSlot,
Pointer(Mail)^,
Length(Mail),
BytesWritten,
NIL)) OR
(BytesWritten <> Length(Mail)) Then
Exit; // Fehler
Result := True; // Alles okay
Finally
CloseHandle(hToSlot);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SendToMailSlot('nachbar','messngr','MeinComputer'+Chr(0)+'Nachbar'+Chr(0)+
'Hallo Nachbar!');
end;
das war's.
steht alles so auf dieser hompage.
If liberty means anything at all, it means the right to tell people what they do not want to hear. - Georg Orwell
Donnerstag, 7. April 2005, 15:23
Also die Unit geht nun, hatte n end; verschluckt..
Aber wie kann ich des mit der Arbeitsgruppen auflistung machen, dass ich da den empfänger eintippen kann?
Irgendwo hier rein:
SendToMailSlot('nachbar','messngr','MeinComputer'+Chr(0)+'Nachbar'+Chr(0)+
'Hallo Nachbar!');
Thx,
Gruß Marco
Aber wie kann ich des mit der Arbeitsgruppen auflistung machen, dass ich da den empfänger eintippen kann?
Irgendwo hier rein:
SendToMailSlot('nachbar','messngr','MeinComputer'+Chr(0)+'Nachbar'+Chr(0)+
'Hallo Nachbar!');
Thx,
Gruß Marco
.: mit dem Alter kommt die Weisheit - oder auch nicht :.