| Autor |
Beitrag |
Gabberman
Beiträge: 55
|
Verfasst: Sa 10.12.05 00:07
Hy @all,
ich hab ma wieder ne frage, jedoch bitte ich euch im Vorraus NICHT auf die Boardsuche zu verweisen... das hab ich schon probiert, jedoch keine befriedigende Antwort bekommen...
Es geht um folgendes:
Ich möchte ein Programm schreiben mit dem man eine Net-send verschicken kann. Als Zusatz sollte man vielleicht noch den Absender-namen verändern können... das wäre cool.
Mir wäre schon extrem geholfen, wenn ihr mir irgend einen Hinweis geben könntet, wie ich das finde...
Ich danke bereits im vorraus für eure Antworten...
MfG
Gabberman
|
|
WeBsPaCe
 
Beiträge: 2322
Erhaltene Danke: 1
FireFox 3, Internet Explorer 6 SP1
D1, D3Prof, D6Pers, D7Pers+Indy, VisualStudio Express
|
Verfasst: Sa 10.12.05 00:12
Moinmoin.
 Gabberman hat folgendes geschrieben: | | (...), jedoch bitte ich euch im Vorraus NICHT auf die Boardsuche zu verweisen... das hab ich schon probiert, jedoch keine befriedigende Antwort bekommen... |
Ich mach's trotzdem, weil du eigentlich was finden _musst_!  NET SEND
Mit dieser Funktion solltest du das aber hinbekommen:
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| uses ShellAPI;
procedure NetSend(AIp, AText: String);
begin
ShellExecute(0, 'open', 'net', PChar('send ' + AIp + ' ' + AText), nil, SW_HIDE);
end; |
coucou,
WeBBy _________________ Steht der Bauer im Gemüse, hat er später grüne Füße.
|
|
Gabberman 
Beiträge: 55
|
Verfasst: Sa 10.12.05 00:22
Was soll ich dazu sagen...
Ich hab aba schon alles durchgegugt... irgendwie ist es entweder zu spät, dsa ich das verstehe, oder ich hab zu viel gesoffen, oder es gibt nichts...
| Zitat: |
procedure NetSend(AIp, AText: String);
begin
ShellExecute(0, 'open', 'net', PChar('send ' + AIp + ' ' + AText), nil, SW_HIDE);
end;
|
kannst du ganz kurz bitte erklären was die Parameter bedeuten...!!!
|
|
Pdd
Beiträge: 142
Win XP
Delphi 7
|
Verfasst: Sa 10.12.05 00:58
| Gabberman hat folgendes geschrieben: | Was soll ich dazu sagen...
Ich hab aba schon alles durchgegugt... irgendwie ist es entweder zu spät, dsa ich das verstehe, oder ich hab zu viel gesoffen, oder es gibt nichts...
| Zitat: |
procedure NetSend(AIp, AText: String);
begin
ShellExecute(0, 'open', 'net', PChar('send ' + AIp + ' ' + AText), nil, SW_HIDE);
end;
|
kannst du ganz kurz bitte erklären was die Parameter bedeuten...!!! |
Is doch eigentlich deutlich oder? AIP= 127.0.0.1 und Atext='Hallo ich bins!'
das ergibt:
Delphi-Quelltext
1:
| NetSend(000.000.000.000,'Lulatsch'); |  _________________ Wenn alles steht und nix mehr looft, denn isses was von Meikrosooft
|
|
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Sa 10.12.05 02:18
| Gabberman hat folgendes geschrieben: | Hy @all,
ich hab ma wieder ne frage, jedoch bitte ich euch im Vorraus NICHT auf die Boardsuche zu verweisen... das hab ich schon probiert, jedoch keine befriedigende Antwort bekommen...
|
Im Zusammenhang mit NET SEND halte ich das für eine glatte Lüge.
| Zitat: |
Als Zusatz sollte man vielleicht noch den Absender-namen verändern können... das wäre cool.
|
Und warum sollte man das wollen außer Mist damit machen zu wollen und das wird hier nicht unterstützt - hoffentlich.
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Sa 10.12.05 12:55
Zum Ändern des Absendernamens gibt's mehr als genug. Schau einfach mal in den umfangreichen Suchergebnissen zu NET SEND nach. _________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
klezmor
Beiträge: 558
delphi 6 personal delphi 2005 personal
|
Verfasst: Mi 12.04.06 16:42
bei mir scheint es trotzdem nicht zu funktionieren, an was könnte das liegen?
Habe gehört der Windows Nachrichtendienst spielt dabei eine rolle, wenn ja wie kann ich den einschalten?
_________________ "Beware of bugs in the above code; I have only proved it correct, not tried it." Donald Knuth
|
|
DelphiAnfänger
Beiträge: 112
Win XP, Firefox 2.0, IE6
Delphi 5 Prof., Delphi 2005 PE
|
Verfasst: Mi 12.04.06 16:48
Verwaltung->Dienste->Nachrichtendienst
zumindest in XP bei anderen Betriebssystem weiß ich nicht obs genauso geht. Verwaltung findest du in der Systemsteuerung (Leistung und Wartung)
|
|
Marco D.
Beiträge: 2750
Windows Vista
Delphi 7, Delphi 2005 PE, PHP 4 + 5 (Notepad++), Java (Eclipse), XML, XML Schema, ABAP, ABAP OO
|
Verfasst: Mi 12.04.06 16:51
| klezmor hat folgendes geschrieben: | | wie kann ich den einschalten? |
Sofern du Admin-Rechte hast kannst du auch in der Eingabeaufforderung eingeben:
Quelltext
1:
2:
3:
| net start messenger
net stop messenger
sc query messenger |
Letzerer Befehl zeigt dir Informationen an, u.a. ob der Nachrichtendienst an ist oder nicht. _________________ Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot
|
|
klezmor
Beiträge: 558
delphi 6 personal delphi 2005 personal
|
Verfasst: Mi 12.04.06 16:59
brauche ich diesen dienst jetzt eigentlich für netsend?
_________________ "Beware of bugs in the above code; I have only proved it correct, not tried it." Donald Knuth
|
|
DelphiAnfänger
Beiträge: 112
Win XP, Firefox 2.0, IE6
Delphi 5 Prof., Delphi 2005 PE
|
Verfasst: Mi 12.04.06 17:01
| klezmor hat folgendes geschrieben: | | brauche ich diesen dienst jetzt eigentlich für netsend? |
Ja
|
|
Marco D.
Beiträge: 2750
Windows Vista
Delphi 7, Delphi 2005 PE, PHP 4 + 5 (Notepad++), Java (Eclipse), XML, XML Schema, ABAP, ABAP OO
|
Verfasst: Mi 12.04.06 17:03
Warum schreibst du dir nicht eine eigene bat-Datei?
_________________ Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot
|
|
klezmor
Beiträge: 558
delphi 6 personal delphi 2005 personal
|
Verfasst: So 23.04.06 22:23
auf einmal funzt mein net messenger nicht mehr aber ich weiß nicht wieso. Kann mir jemand sagen wieso?
_________________ "Beware of bugs in the above code; I have only proved it correct, not tried it." Donald Knuth
|
|
Horschdware
Beiträge: 744
Erhaltene Danke: 54
Win XP Pro, Win 7 Pro x64
Delphi 7, Delphi XE, C++ Builder 5, SAP R/3
|
Verfasst: So 23.04.06 23:21
[Kristallkugel]... Wir haben Betriebsferien vom ... [/Kristallkugel]
Was hast du verändert? Inwiefern funktioniert was nicht?
Mit mehr Infos kann dir evtl. geholfen werden.
_________________ Delphi: XE - OS: Windows 7 Professional x64
|
|
