Bruke ping og net send

[Madz0r]

Noen som vet hvordan kan f. eks

skrive en net send melding fra i

et "hjemmemekket" program?

 

Hvis noen skjønner da

[Jonas]

Noen som vet hvordan kan f. eks

skrive en net send melding fra i

et "hjemmemekket" program?

 

Hvis noen skjønner da

når du sier hjemme-mekket, mener du Delphi/Pascal/Kylix? eller bare postet du et sted?

 

@echo off

set /p target=Send til?

set /p msg=Melding?

 

net send %target% %msg%

[Madz0r]

jeg mener Delphi ja,

mener og i "Application" ikke i .bat fil.

[Dino_]

Tja du kan jo begyne med å lese i hjelp om emnet.

 

Og er du veldig hypp på å få ting gjort fort så kan du jo titte på François Piette`s Internet Component Suite (ICS), der finner du det du trenger, sett at du kan litt grunnleggende ting. eksempler (sample applications) er å finne på samme siden.

 

ICS er "postcardware" husk det når du benytter deg av disse komponentene. (les licence.txt)

[DidzisK]

procedure TForm1.Button1Click(Sender: TObject);
var
 PCallString,PParamstring:PChar;
begin
 PCallString:='net';
 PParamstring:='send MinPC MinMelding';
 ShellExecute(Handle, 'open',PCallString, PParamstring, nil, 0);
end;

 

Eller enda enklere:

 ShellExecute(Handle, 'open','net', 'send MinPC MinMelding', nil, 0);

 

Du kan prøve å lese om NetMessageBufferSend funksjon (MS Win32 API hjelp), men hvis du velger å bruke den, må du laste ned header translation, for eksempel fra http://www.delphi-jedi.org (filen du trenger heter win32api.zip, definisjonen ligger i JwaLmMsg.pas). Og så kan du bruke funksjonen - men disse Net (eller LanManager API) funksjonene kalles på litt annen måte enn vanlige Windows API funksjoner, så det var mye prøving og feiling den gangen jeg prøvde å bruke dem.

 

 

Når det gjelder ping, så kan du likegodt bruke Indy komponenter som er freeware. De er inkludert i Delphi 7, ellers må du laste dem ned fra http://www.indyproject.org/

Endret 19. januar 2004 av DidzisK

[Madz0r]

takker for svar.. vært til hjelp

unit netsend_form;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ShellApi;

 

type

  TForm1 = class(TForm)

    Edit_ip: TEdit;

    Edit_msg: TEdit;

    Btn_send: TButton;

    procedure Btn_sendClick(Sender: TObject);

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

 

implementation

 

{$R *.dfm}

 

 

procedure TForm1.Btn_sendClick(Sender: TObject);

begin

ShellExecute(Handle,'open','net','send' + Edit_ip.text + Edit_msg.text, nil, 0);

end;

 

end.

 

Men noen som kan si meg hvordan jeg kan fikse denne koden?

Kanskje det er lett, men jeg er ganske ny til delphi, og jeg lærer ting lettere sånn som dette.

[DidzisK]

ShellExecute(Handle,'open','net','send ' + Edit_ip.text +' '+ Edit_msg.text, nil, 0);

 

Jeg har lagt inn mellomrom to steder.

[Mr_Pingvin666]

kan noen gi meg filen til dette proskjektet...

 

 

kontakt meg på [email protected]

 

klarer ikke å lage dette selv

[trrunde]

Hvis man også vil endre på maskinen det står at det blir sendt fra hvordan kan vi gjøre det??