BlackBoard » Design, Programmierung & Entwicklung » Programmieren » GUI für "net send" » Hallo Gast [Anmelden|Registrieren]
Letzter Beitrag | Erster ungelesener Beitrag Druckvorschau | An Freund senden | Thema zu Favoriten hinzufügen
Seiten (2): « vorherige 1 [2] Neues Thema erstellen Antwort erstellen
Zum Ende der Seite springen GUI für "net send"
Autor
Beitrag « Vorheriges Thema | Nächstes Thema »
sQuint sQuint ist männlich
BlackBoarder


Dabei seit: 10.10.2001
Beiträge: 1.454

      Zum Anfang der Seite springen

du kannst von 2000 nach 98 einen NetSend schicken, nur der Rechner mit 98 muss winpopup geöfnet haben!
11.06.2002 14:47 sQuint ist offline E-Mail an sQuint senden Beiträge von sQuint suchen
pRaider4oC
Junior Member


Dabei seit: 11.09.2001
Beiträge: 164

      Zum Anfang der Seite springen

@Lucas: Magst mir mal den Quellcode von deinem Delphi-Prog schicken? smile

.pRaider4oC

__________________
SIEMENS rulez...
11.09.2002 19:44 pRaider4oC ist offline Beiträge von pRaider4oC suchen
Lucas Lucas ist männlich
Member


images/avatars/avatar-856.gif

Dabei seit: 06.07.2001
Beiträge: 217
Herkunft: NRW

      Zum Anfang der Seite springen

Kein Problem, kannste haben:

Zwei Textfelder (TEdit) namens tona und msg, dann ganz oben bei uses ShellAPI dazutippen.

Auf den Senden-Button dann einfach folgenden Code legen:

code:
1:
2:
3:
4:
5:
6:
  namevar := tona.Text;
  txtvar := msg.Text;

  WinExec(PChar('command.com /c net send ' + namevar + ' ' + txtvar), SW_HIDE);



Und fertich. Wie man sieht isses nicht sonderlich kompliziert smile
11.09.2002 21:03 Lucas ist offline E-Mail an Lucas senden Beiträge von Lucas suchen
Kalka Kalka ist männlich
BlackBoarder


Dabei seit: 16.03.2002
Beiträge: 856

      Zum Anfang der Seite springen

und wie bekomme ich heraus, über welchen port net send arbeitet?

cu Kalka

__________________
In wirklichkeit sind wir alle kleine grüne Kaninchen!
11.09.2002 22:35 Kalka ist offline E-Mail an Kalka senden Homepage von Kalka Beiträge von Kalka suchen
Andy Andy ist männlich
BlackBoarder


Dabei seit: 21.10.2001
Beiträge: 576

      Zum Anfang der Seite springen

Guck mal in den Logs von deiner Firewall, da müsste es drinnstehen.

cya Lupus
11.09.2002 22:54 Andy ist offline Beiträge von Andy suchen
Kalka Kalka ist männlich
BlackBoarder


Dabei seit: 16.03.2002
Beiträge: 856

      Zum Anfang der Seite springen

^^ oh mein gott ich bin ein idiot..........

cu Kalka

__________________
In wirklichkeit sind wir alle kleine grüne Kaninchen!
12.09.2002 14:11 Kalka ist offline E-Mail an Kalka senden Homepage von Kalka Beiträge von Kalka suchen
pRaider4oC
Junior Member


Dabei seit: 11.09.2001
Beiträge: 164

      Zum Anfang der Seite springen

Hat sich schon erledigt - Ich hab ein Programm geschrieben sogar mit tollem Addressbuch großes Grinsen
Wer noch Vorschläge hat was man da reinbasteln könnte - mir ist zu oft zu langweilig großes Grinsen

Weiss einer wie ich per Delphi die lokale IP ausgeben kann?

greets
.pRaider4oC

__________________
SIEMENS rulez...
12.09.2002 20:26 pRaider4oC ist offline Beiträge von pRaider4oC suchen
Kalka Kalka ist männlich
BlackBoarder


Dabei seit: 16.03.2002
Beiträge: 856

      Zum Anfang der Seite springen

so...
code:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
unit LocalIPs_Unit;

interface

uses
  Windows, Classes, WinSock;

procedure GetLocalIPs(List: TStrings);

implementation

// -----------------------------------------------------------------------------

procedure GetLocalIPs(List: TStrings);
type
  PPInAddr = ^PInAddr;
var
  wsaData: TWSAData;
  HostInfo: PHostEnt;
  HostName: array[0..255] of Char;
  Addr: PPInAddr;
  VersionRequested: Word;
begin
  List.Clear;

  // WinSock Version muss höher als 1.1 sein
  VersionRequested := MakeWord(2, 1);

  if WSAStartup(VersionRequested, wsaData) <> 0 then
    Exit;

  try

    if gethostname(HostName, SizeOf(HostName)) <> 0 then
      Exit;

    HostInfo := gethostbyname(HostName);

    if HostInfo = nil then
      Exit;

    Addr := Pointer(HostInfo^.h_addr_list);

    if (Addr = nil) or (Addr^ = nil) then
      Exit;

    List.Add(inet_ntoa(Addr^^));
    inc(Addr);

    while Addr^ <> nil do
    begin
      List.Add(inet_ntoa(Addr^^));
      inc(Addr);
    end; {end while}

  finally
    WSACleanup;
  end; {end try/finally}
end; {end procedure}

// -----------------------------------------------------------------------------

end.

von www.delphi-diver.de

cu Kalka

__________________
In wirklichkeit sind wir alle kleine grüne Kaninchen!
12.09.2002 21:48 Kalka ist offline E-Mail an Kalka senden Homepage von Kalka Beiträge von Kalka suchen
Lucas Lucas ist männlich
Member


images/avatars/avatar-856.gif

Dabei seit: 06.07.2001
Beiträge: 217
Herkunft: NRW

      Zum Anfang der Seite springen

Zitat:
Original von pRaider4oC
Weiss einer wie ich per Delphi die lokale IP ausgeben kann?


Mit der Funktion GetIPAdress, Du schreibst zu uses noch Winsock und dann über das oberste procedure folgendes:

code:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
  function GetIPAddress: string; {uses: Winsock}
var
  phoste: PHostEnt;
  Buffer: array[0..100] of char;
  WSAData: TWSADATA;
begin
  result := '';
  if WSASTartup($0101, WSAData) <> 0 then exit;
  GetHostName(Buffer, Sizeof(Buffer));
  phoste := GetHostByName(buffer);
  if phoste = nil then
  begin
    result := '127.0.0.1';
  end
  else
    result := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
  WSACleanup;
end;


Dann kannst Du irgendwo im Programm einfach den String GetIPAddress einfügen, z.B. so:

code:
1:
  form1.Caption := GetIPAddress;
12.09.2002 22:13 Lucas ist offline E-Mail an Lucas senden Beiträge von Lucas suchen
pRaider4oC
Junior Member


Dabei seit: 11.09.2001
Beiträge: 164

      Zum Anfang der Seite springen

Cool danke smile
Klappt astrein Augenzwinkern

Wenn du mir jetzt noch sagst, wie ich ein auf eine gechecktes Element aus einer CheckListBox zugreife (ich will auf knofdrück gecheckte Einträge löschen) dann wär das subber großes Grinsen

.pRaider4oC

__________________
SIEMENS rulez...
13.09.2002 22:09 pRaider4oC ist offline Beiträge von pRaider4oC suchen
kilone kilone ist männlich
Senior Member


images/avatars/avatar-131.gif

Dabei seit: 13.09.2001
Beiträge: 320

      Zum Anfang der Seite springen

ich will nen prog schreiben was net send blockt. Hat einer ne idee welcher port und wie man das am besten anfangen soll.

__________________
Klick mich fest
08.10.2002 04:34 kilone ist offline E-Mail an kilone senden Homepage von kilone Beiträge von kilone suchen
phlox81 phlox81 ist männlich
Bote des Lichts und Moderator


images/avatars/avatar-2264.jpg

Dabei seit: 19.10.2002
Beiträge: 3.028
Herkunft: Irgendwo im Nirgendwo

      Zum Anfang der Seite springen

Such mal in der MSDN nach NetMessageBufferSend
das ist die Funktion mit der die Nachricht versand wird.

Devil

__________________
Intelligenz ist eine Illusion des Menschen

phlox81.de | codenode.de
19.10.2002 17:51 phlox81 ist offline E-Mail an phlox81 senden Homepage von phlox81 Beiträge von phlox81 suchen
John John ist männlich
Boardgründer


images/avatars/avatar-1.gif

Dabei seit: 05.07.2001
Beiträge: 710
Herkunft: Hessen

      Zum Anfang der Seite springen

im Grunde reicht dieser Befehl: net stop nachrichtendienst

__________________
John
19.10.2002 18:01 John ist offline E-Mail an John senden Homepage von John Beiträge von John suchen
Seiten (2): « vorherige 1 [2] Baumstruktur | Brettstruktur
Gehe zu:
Neues Thema erstellen Antwort erstellen
BlackBoard » Design, Programmierung & Entwicklung » Programmieren » GUI für "net send"

Forensoftware: Burning Board 2.3.6, entwickelt von WoltLab GmbH