İki bilgisayar arası bağlantı

[fazil14]

Öncelikle herkese kolay gelsin benim sorum şu :

Internet üzerinden iki bilgisayar arasında direk bağlantı.
bu işte IP kullanılacak ama nasıl hangi bileşenleri ve hangi yöntemler kullanılacak mantıkta ve pratikte örneklendirirseniz sevinirim..

Amacım : uzaktaki bilgisayardan evdeki bilgisayara komutlar gndererek
evdeki bilgisayara bir şeyler yaptırabilmek..

[mussimsek]

Merhaba,

bu iş için trojan mantığını kullanman lazım. Evdeki bilgisayara bir program yazacaksın (server) ve işleri o yapacak. Daha sonra başka bir program yazıp(client), evdeki server programa komut göndereceksin. Mesela 1 kodunu gönderdin, bu CD aç demek olsun. Gerekli kodlar evdeki bilgisayarda olacak ve o CD'yi açacak gibi.

Bağlantı için Indy bileşen setini kullanabilirsin. Örnekler ve Delphi 5 öncesi bileşenler için : http://www.indyproject.org

Kolay gelsin.

[mehmet_turecan_cakmak]

selamlar..

hocam bu iş için en iyi program symantec in pc anywhere programı valla çok işe yarıyor...

iyi çalışmlara...

[rsimsek]

PcAnyWhere, Remote Administrator veya gotomypc ile de web üzerinden erişim yapabilirsin. (GotoMyPC biraz tehlikeli deneme süresince bile kredi kartı istiyor ve hesaptan çekiyor!!)

Ayrıca Mustafanın dediği en basit yöntemle de bu işi yapabilirsin. Aşağıda ip sini bildiğin bir bilgisayarda çalışan bir mesajlaşma programı var. İstediğin gibi geliştirebilirsin;

-- main.dfm

Kod: Tümünü seç

object Form1: TForm1
  Left = 264
  Top = 118
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Mesaj Penceresi'
  ClientHeight = 342
  ClientWidth = 358
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  WindowState = wsMinimized
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 264
    Width = 206
    Height = 13
    Caption = 'Mesaj göndermek istediğiniz kişinin ip adresi'
  end
  object Label2: TLabel
    Left = 112
    Top = 320
    Width = 145
    Height = 13
    Caption = 'Mesaj yazıp enter tuşuna basın'
  end
  object Edit2: TEdit
    Left = 8
    Top = 296
    Width = 337
    Height = 21
    TabOrder = 2
    OnKeyDown = Edit2KeyDown
  end
  object Edit1: TEdit
    Left = 224
    Top = 259
    Width = 121
    Height = 21
    TabOrder = 1
  end
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 353
    Height = 257
    TabOrder = 0
  end
  object NMMSGServ1: TNMMSGServ
    Port = 3256
    ReportLevel = 0
    OnMSG = NMMSGServ1MSG
    Left = 40
    Top = 16
  end
  object NMMsg1: TNMMsg
    Port = 3256
    ReportLevel = 0
    Left = 104
    Top = 16
  end
end

--main.pas

Kod: Tümünü seç

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, NMMSG, Psock;

type
  TForm1 = class(TForm)
    NMMSGServ1: TNMMSGServ;
    NMMsg1: TNMMsg;
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    Edit2: TEdit;
    Label2: TLabel;
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure NMMSGServ1MSG(Sender: TComponent; const sFrom, sMsg: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if trim(Edit2.Text) = 'aç' then
   // cd yi aç.

 if Key = VK_RETURN then
  begin
   with NMmsg1 do
    begin
      Host := Edit1.Text;
      NMMsg1.FromName := LocalIP;
      Postit(Edit2.Text);
    end;
  end;
end;

procedure TForm1.NMMSGServ1MSG(Sender: TComponent; const sFrom,
  sMsg: String);
begin
  Memo1.Lines.Add(SFrom+' >> '+SMsg);
  Form1.WindowState := wsMinimized;
  Form1.WindowState := wsNormal;
  Beep;
end;

end.

lazım olursa mesaj.dpr

Kod: Tümünü seç

program mesaj;

uses
  Forms,
  main in 'main.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

kolay gelsin.