۲۴-فروردین-۱۳۹۳, ۱۶:۳۷:۱۶
۲۴-فروردین-۱۳۹۳, ۱۶:۴۰:۱۴
بیشتر توضیح بده
کانکشن دیال اپ یا ADSL?
کانکشن دیال اپ یا ADSL?
۲۴-فروردین-۱۳۹۳, ۱۶:۴۳:۴۶
هر که باشه حتی
۲۴-فروردین-۱۳۹۳, ۱۷:۵۲:۴۲
(۲۴-فروردین-۱۳۹۳, ۱۶:۴۳:۴۶)hnosen نوشته است: [ -> ]هر کانکشنی که باشه حتی 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.۲۵-فروردین-۱۳۹۳, ۰۹:۵۶:۳۴
این کد برای قطع کانکشن دیال اپ
کلید زیر رو تو گوگل جستجو کن
کد:
~~~~~~~~~~~~~~~~~~~~~~~~
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۰۵-اردیبهشت-۱۳۹۳, ۰۱:۰۴:۴۰
آقا این برنامه این پیغامو میده
file not found :Winapi.Windows.dcu
file not found :Winapi.Messages.dcu
file not found :System.SysUtils.dcu
file not found :System.Variants.dcu
,....
file not found :Winapi.Windows.dcu
file not found :Winapi.Messages.dcu
file not found :System.SysUtils.dcu
file not found :System.Variants.dcu
,....
۰۶-اردیبهشت-۱۳۹۳, ۰۰:۳۶:۳۴
(۰۵-اردیبهشت-۱۳۹۳, ۰۱:۰۴:۴۰)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
,....
اگه این دو خط به این شکل تغییر بدی و در کد بالا جایگزین کنی مشکلت حل میشه.
کد:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ActiveX, ComObj;