نوشتن برنامه برای قطع ارتباط یکی از کلاینت ها

[Mahdi_Delphi]

سلام

یک شبکه Lan داریم که به صورت WorkGroup هست و یکی از کامپیوترها سرور اینترنته و تعدادی هم کلاینت هستند.

چطور میشه برنامه ای نوشت که ارتباط بین سرور و یک کلاینت خاص رو برای مدت مشخصی قطع کنه؟

یعنی هیچ بسته ای بین سرور و اون کامپیوتر رد و بدل نشه؟!

در واقع میخوام از طریق سرور ارتباط اون کلاینت رو با اینترنت قطع کنم !

ممنون میشم راهنمایی کنید.

[Touska]

سلام

یک شبکه Lan داریم که به صورت WorkGroup هست و یکی از کامپیوترها سرور اینترنته و تعدادی هم کلاینت هستند.

چطور میشه برنامه ای نوشت که ارتباط بین سرور و یک کلاینت خاص رو برای مدت مشخصی قطع کنه؟

یعنی هیچ بسته ای بین سرور و اون کامپیوتر رد و بدل نشه؟!

در واقع میخوام از طریق سرور ارتباط اون کلاینت رو با اینترنت قطع کنم !

ممنون میشم راهنمایی کنید.

برای این کار شما باید یک سرور و کلاینت با Indy طراحی کنید که وقتی سرور دستور داد کلاینت

قفل گردد یا کارت شبکه فرد رو Disable کنید :

             RE: Disable/Enable Network



             Bowers, Michael P. ISD

            Tue, 28 Jun 2005 23:05:14 -0700

         

        I did this just recently as a quick test for a proof of concept.  It

uses the SetupAPI header translation from Project Jedi and the rest is

adapted from source from the Microsoft Win2K3 DDK.  It works in

Win2K/WinXP (the only platforms of interest in my work) but may work in

others.  YMMV.





unit Unit1;



interface



uses

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

Forms,

  Dialogs, StdCtrls, SetupAPI;



const

  GUID_DEVCLASS_NET: TGUID = '{4D36E972-E325-11CE-BFC1-08002BE10318}';



type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



function StateChange(NewState, SelectedItem: cardinal; hDevInfo:

HDEVINFO): boolean;

var

  PropChangeParams:     SP_PROPCHANGE_PARAMS;

  DeviceInfoData:       SP_DEVINFO_DATA;

begin

  DeviceInfoData.cbSize := SizeOf(SP_DEVINFO_DATA);



  // Get handle to selected item

  if not SetupDiEnumDeviceInfo(hDevInfo, SelectedItem, DeviceInfoData)

then

  begin

    Result := False;

    Exit;

  end;



  // Set the PropChangeParams structure for this item

  PropChangeParams.ClassInstallHeader.InstallFunctio  n :=

DIF_PROPERTYCHANGE;

  PropChangeParams.ClassInstallHeader.cbSize :=

SizeOf(SP_CLASSINSTALL_HEADER);

  PropChangeParams.Scope := DICS_FLAG_GLOBAL;

  PropChangeParams.StateChange := NewState;



  if not SetupDiSetClassInstallParams(hDevInfo, @DeviceInfoData,

PSPCLASSINSTALLHEADER(@PropChangeParams), SizeOf(PropChangeParams)) then

  begin

    Result := False;

    Exit;

  end;



  // Call the ClassInstaller and perform the change

  if not SetupDiCallClassInstaller(DIF_PROPERTYCHANGE, hDevInfo,

@DeviceInfoData) then

  begin

    Result := False;

    Exit;

  end;



  Result := True;

end;



//

------------------------------------------------------------------------

-----



function DisableNetAdapter: boolean;

var

  hdi:  HDEVINFO;

begin

  hdi := SetupDiGetClassDevs(@GUID_DEVCLASS_NET, nil, 0, DIGCF_PRESENT);



  if cardinal(hdi) = INVALID_HANDLE_VALUE then

  begin

    Result := False;

  end

  else

  begin

    Result := StateChange(DICS_DISABLE, 0, hdi);

    SetupDiDestroyDeviceInfoList(hdi);

  end;

end;



//

------------------------------------------------------------------------

-----



function EnableNetAdapter: boolean;

var

  hdi:  HDEVINFO;

begin

  hdi := SetupDiGetClassDevs(@GUID_DEVCLASS_NET, nil, 0, DIGCF_PRESENT);



  if cardinal(hdi) = INVALID_HANDLE_VALUE then

  begin

    Result := False;

  end

  else

  begin

    Result := StateChange(DICS_ENABLE, 0, hdi);

    SetupDiDestroyDeviceInfoList(hdi);

  end;

end;



//

------------------------------------------------------------------------

-----



procedure TForm1.Button1Click(Sender: TObject);

begin

  EnableNetAdapter;

end;



//

------------------------------------------------------------------------

-----



procedure TForm1.Button2Click(Sender: TObject);

begin

  DisableNetAdapter;

end;



//

------------------------------------------------------------------------

-----



end.

ولی فکر کنم این کد در Win9X جواب بده تو Xp تست نکردم.

موفق باشید :)

[Identifier]

برای این کار شما باید یک سرور و کلاینت با Indy طراحی کنید که وقتی سرور دستور داد کلاینت
قفل گردد یا کارت شبکه فرد رو Disable کنید :

???????????????????

برای فعال کردن دوباره اش هم حتماً ادمین باید زحمت بکشه بره پای سیستم کارت شبکه را enable کنه :D

[Mahdi_Delphi]

خیلی ممنون

جناب Touska مثال فوق با Indy نوشته شده ؟!

SetupAPI مزبوط به کامپوننت خاصیه ؟

برای فعال کردن دوباره اش هم حتماً ادمین باید زحمت بکشه بره پای سیستم کارت شبکه را enable کنه

من هنوز نتونستم کد رو تست کنم. ولی توی کد یه تابع برای Enable کردن هست.

البته اطلاعات من در حدی نیست که قضاوت کنم و شما مسلماً بهتر میدونید.

آیا راهی هست که فقط از طریق سرور، ادمین بتونه ارتباط یک کلاینت رو قطع کنه؟!
(مثل برنامه های محدود کردن پهنای باند و سرعت کلاینتها)

ممنون از راهنمایی دوستان گرامی

[Identifier]

من هنوز نتونستم کد رو تست کنم. ولی توی کد یه تابع برای Enable کردن هست.

این در حالت Local بهت جواب میده اما زمانی که Lan غیر فعال میشه، به طور معمول امکان برقراری ارتباط با کامپیوتر مربوطه در شبکه غیر ممکن میشه

[Mahdi_Delphi]

این در حالت Local بهت جواب میده اما زمانی که Lan غیر فعال میشه، به طور معمول امکان برقراری ارتباط با کامپیوتر مربوطه در شبکه غیر ممکن میشه

درسته،اصلاً به این موضوع فکر نکرده بودم !!!

[Touska]

من به اون فکر کرده بودم سرور زمان مشخص رو به کلاینت ارسال می کنه و

کلاینت سر موقعش اونو فعال می کنه.

پرسیدن برای زمان مشخصی :)

[Identifier]

حامد جان من به اون فکر کرده بودم سرور زمان مشخص رو به کلاینت ارسال می کنه و
کلاینت سر موقعش اونو فعال می کنه.
پرسیدن برای زمان مشخصی :)

در این صورت انعطاف پذیری رو از دست میدهد؛
برای انجام این کار میتونید از روش های مختلفی استفاده کنید

1- استفاده از *** Connection و مدیریت اتصال آن توسط 3rd party Application جهت کنترل اینترنت.

2- استفاده از Windows Packet Filter Framework و ایجاد محدودیت در زمان های مشخص، این فریم ورک به شما امکان می دهد که بتونید Packet ها ردو بدل شده را بررسی و ویرایش کنید .و با استفاده از این فریم ورک شما هیچ نیازی به برنامه نویسی سطح پایین ندارید.

WinpkFilter

موفق باشید

[nasr]

برای این کار شما باید یک سرور و کلاینت با Indy طراحی کنید که وقتی سرور دستور داد کلاینت

قفل گردد یا کارت شبکه فرد رو Disable کنید :

             RE: Disable/Enable Network



             Bowers, Michael P. ISD

            Tue, 28 Jun 2005 23:05:14 -0700

         

        I did this just recently as a quick test for a proof of concept.  It

uses the SetupAPI header translation from Project Jedi and the rest is

adapted from source from the Microsoft Win2K3 DDK.  It works in

Win2K/WinXP (the only platforms of interest in my work) but may work in

others.  YMMV.





unit Unit1;



interface



uses

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

Forms,

  Dialogs, StdCtrls, SetupAPI;



const

  GUID_DEVCLASS_NET: TGUID = '{4D36E972-E325-11CE-BFC1-08002BE10318}';



type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



function StateChange(NewState, SelectedItem: cardinal; hDevInfo:

HDEVINFO): boolean;

var

  PropChangeParams:     SP_PROPCHANGE_PARAMS;

  DeviceInfoData:       SP_DEVINFO_DATA;

begin

  DeviceInfoData.cbSize := SizeOf(SP_DEVINFO_DATA);



  // Get handle to selected item

  if not SetupDiEnumDeviceInfo(hDevInfo, SelectedItem, DeviceInfoData)

then

  begin

    Result := False;

    Exit;

  end;



  // Set the PropChangeParams structure for this item

  PropChangeParams.ClassInstallHeader.InstallFunctio  n :=

DIF_PROPERTYCHANGE;

  PropChangeParams.ClassInstallHeader.cbSize :=

SizeOf(SP_CLASSINSTALL_HEADER);

  PropChangeParams.Scope := DICS_FLAG_GLOBAL;

  PropChangeParams.StateChange := NewState;



  if not SetupDiSetClassInstallParams(hDevInfo, @DeviceInfoData,

PSPCLASSINSTALLHEADER(@PropChangeParams), SizeOf(PropChangeParams)) then

  begin

    Result := False;

    Exit;

  end;



  // Call the ClassInstaller and perform the change

  if not SetupDiCallClassInstaller(DIF_PROPERTYCHANGE, hDevInfo,

@DeviceInfoData) then

  begin

    Result := False;

    Exit;

  end;



  Result := True;

end;



//

------------------------------------------------------------------------

-----



function DisableNetAdapter: boolean;

var

  hdi:  HDEVINFO;

begin

  hdi := SetupDiGetClassDevs(@GUID_DEVCLASS_NET, nil, 0, DIGCF_PRESENT);



  if cardinal(hdi) = INVALID_HANDLE_VALUE then

  begin

    Result := False;

  end

  else

  begin

    Result := StateChange(DICS_DISABLE, 0, hdi);

    SetupDiDestroyDeviceInfoList(hdi);

  end;

end;



//

------------------------------------------------------------------------

-----



function EnableNetAdapter: boolean;

var

  hdi:  HDEVINFO;

begin

  hdi := SetupDiGetClassDevs(@GUID_DEVCLASS_NET, nil, 0, DIGCF_PRESENT);



  if cardinal(hdi) = INVALID_HANDLE_VALUE then

  begin

    Result := False;

  end

  else

  begin

    Result := StateChange(DICS_ENABLE, 0, hdi);

    SetupDiDestroyDeviceInfoList(hdi);

  end;

end;



//

------------------------------------------------------------------------

-----



procedure TForm1.Button1Click(Sender: TObject);

begin

  EnableNetAdapter;

end;



//

------------------------------------------------------------------------

-----



procedure TForm1.Button2Click(Sender: TObject);

begin

  DisableNetAdapter;

end;



//

------------------------------------------------------------------------

-----



end.

ولی فکر کنم این کد در Win9X جواب بده تو Xp تست نکردم.

موفق باشید :)

سلام
این کد نمی تونه کارت شبکه را Disable یا Enable کنه!

[nasr]

راهی نیست که بشه کارت شبکه را Disable و Enable کرد؟

[dkhatibi]

در واقع میخوام از طریق سرور ارتباط اون کلاینت رو با اینترنت قطع کنم !

شاید نوشتن یک سرویس و استفاده از ایندی برای فرستادن یک کد خاص به کلاینت خوب باشه.
در این صورت سرویس مذکور موقعی که کد خاصی را دریافت کرد می تواند به جای غیر فعال کردن شبکه IP ی کلاینت را تغییر داده و مقدار Default Getway اونو حذف کند. البته این کار در صورتی که IP ها اتوماتیک تنظیم می شوند ممکنه موجب Confrit شدن بشه. ولی بهتر از Disable کردن شبکه است. برای این مشکل هم می تونید از Ip ی استفاده نمایید که در محدوده ی شبکه ی شما نیست البته باز هم سبب از دست دادن کل شبکه ی کلاینت مذکور می شوید.
برای فرستادن پیام توسط ایندی مثال هست. تنظیم Ip هم قبلا توسط من یک برنامه گذاشته شده است.

[دنیای دلفی]

بهترین راه kill کردن وب برازرها است . از Task Manager

[mortezakiaee]

سرویس مذکور موقعی که کد خاصی را دریافت کرد می تواند به جای غیر فعال کردن شبکه IP ی کلاینت را تغییر داده و مقدار Default Getway اونو حذف کند. البته این کار در صورتی که IP ها اتوماتیک تنظیم می شوند ممکنه موجب Confrit شدن بشه. ولی بهتر از Disable کردن شبکه است.

که کارت شبکه رو غیر فعال یا تغییر IP می دین دیگه از شبکه کامل خارج می شه؟ توصیه می کنم از security policy ها استفاده کنید. نمی دونم تو دلفی می شه تغییرشون داد ولی تو سایت مایکروسافت یه سری مثال برای security policy ها هست

[dkhatibi]

که کارت شبکه رو غیر فعال یا تغییر IP می دین دیگه از شبکه کامل خارج می شه؟

به هیچ وجه اینجوری نیست.