[حل شد] کمک برنامه قطع

[hnosen]

سلام
من میخام با دلفی اینترنتمو قطع کنم
چیکار کنم؟؟؟؟
میگن باید از ras استفاده کنم. کسی هست بهم کمک کنه

[lord_viper]

بیشتر توضیح بده
کانکشن دیال اپ یا ADSL?

[hnosen]

هر که باشه حتی

[The.Ghost]

هر کانکشنی که باشه حتی vp n

سلام
این کد حتی بلوتوث هم برات قطع می کنه، کلا همه چیز سریع قطع می کنه.

کد:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Winapi.ActiveX, System.Win.ComObj;

type
  TForm1 = class(TForm)
    Disable: TButton;
    Enable: TButton;
    procedure DisableClick(Sender: TObject);
    procedure EnableClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DisableClick(Sender: TObject);
const
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
FWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter Where NetEnabled=True','WQL',wbemFlagForwardOnly);
oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
while oEnum.Next(1, FWbemObject, iValue) = 0 do
begin
   FWbemObject.Disable();
   FWbemObject:=Unassigned;
end;

end;

procedure TForm1.EnableClick(Sender: TObject);
const
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
FWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter Where NetEnabled=False','WQL',wbemFlagForwardOnly);
oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
while oEnum.Next(1, FWbemObject, iValue) = 0 do
begin
   FWbemObject.Enable();
   FWbemObject:=Unassigned;
end;

end;

end.

[lord_viper]

این کد برای قطع کانکشن دیال اپ

کد:

~~~~~~~~~~~~~~~~~~~~~~~~
uses WinInet;
...
InternetAutoDial(internet_autodial_force_unattended, Handle) ;

{
To disconnect this automatic dial-up connection, use
}

InternetAutodialHangup(0)

{
Another way is to specify the name
of the connection you wish to use
(ConnectionName), from Dialup
networking:
}

if InternetDial
    (0, PChar(ConnectionName), INTERNET_AUTODIAL_FORCE_UNATTENDED, dwConn, 0) <> ERROR_SUCCESS then exit;
//Do something with Internet...
InternetHangup(dwConn, 0) ;

کلید زیر رو تو گوگل جستجو کن

کد:

disconnect internet connection delphi

[hnosen]

آقا این برنامه این پیغامو میده
file not found :Winapi.Windows.dcu
file not found :Winapi.Messages.dcu
file not found :System.SysUtils.dcu
file not found :System.Variants.dcu
,....

[The.Ghost]

آقا این برنامه این پیغامو میده
file not found :Winapi.Windows.dcu
file not found :Winapi.Messages.dcu
file not found :System.SysUtils.dcu
file not found :System.Variants.dcu
,....

اگه این دو خط به این شکل تغییر بدی و در کد بالا جایگزین کنی مشکلت حل میشه.

کد:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ActiveX, ComObj;