Сетевой адаптер

[ZuBy]

Привет Всем!

Вот месяц как уже работаю тех. спец-ом в фирме, проводим Beeline Интернет. Написал программку которая делает все за монтажника.
Заносит данные в реестр
Включает сетевой адаптер (если есть)
Находит сетевой адаптер, с нашими IP (шлюз)
Пингует его
Устанавливает Firefox Portable
Создает соединение для интернета

Собственно хотел узнать, можно ли управлять включением/отключение сетевой?

У меня это сделано, но через программу cnic.exe, охото чтобы из программы отключать/включать, получать статус

[raxp]

...используйте devcon c параметрами командной строки в своей программе ...через пайпы общение.

[ZuBy]

raxp, я как раз от этого метода отказываюсь!
у меня cnic.exe, а я хочу чтобы программно через свою, это возможно?

[raxp]

Да, SetupAPI ...devcon использует его интерфейсы. Но зачем изобретать "велосипед"? Использование devcon свободное.

Ограничений на свободное распространение программы DevCon нет. Она предназначена для использования в качестве средства отладки и разработки. Пользователи имеют право вносить изменения в программу в соответствии со своими потребностями. В состав программы включен пример совместного применения функций SetupAPI и CfgMgr32 для перечисления устройств и выполнения над ними определенных действий.

Примечание. Исходный программный код программы DevCon (вместе с документацией) входит в состав пакета Driver Development Kit для Windows XP (можно загрузить с веб-узла http://www.microsoft.com/whdc/devtools/ddk/default.mspx) и находится в папке DDK root\Src\Setup\Devcon.

[mihali4]

Вот пример вкл/выкл флэш-накопителя :

//  * Unit Name : USBStateChange
//  * Purpose   : Пример включения.отключения USB накопителей
//  * Author    : Александр (Rouse_) Багель
//  * Copyright : © Fangorn Wizards Lab 1998 - 2007
//  * Version   : 1.00
//  * Home Page : http://rouse.drkb.ru
//  ****************************************************************************
//
 
unit USBStateChange;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm6 = class(TForm)
    btnEnable: TButton;
    btnDisable: TButton;
    procedure btnEnableClick(Sender: TObject);
    procedure btnDisableClick(Sender: TObject);
  end;
 
var
  Form6: TForm6;
 
implementation
 
{$R *.dfm}
 
type
  PSP_CLASSINSTALL_HEADER = ^SP_CLASSINSTALL_HEADER;
  SP_CLASSINSTALL_HEADER = record
    cbSize: DWORD;
    InstallFunction: Cardinal;
  end;
 
  PSP_PROPCHANGE_PARAMS = ^SP_PROPCHANGE_PARAMS;
  SP_PROPCHANGE_PARAMS = record
    ClassInstallHeader: SP_CLASSINSTALL_HEADER;
    StateChange: DWORD;
    Scope: DWORD;
    HwProfile: DWORD;
  end;
 
  PSP_DEVINFO_DATA = ^SP_DEVINFO_DATA;
  SP_DEVINFO_DATA = record
    cbSize: DWORD;
    ClassGuid: TGUID;
    DevInst: DWORD;
    Reserved: Longint;
  end;
 
  function SetupDiGetClassDevs(const ClassGuid: PGUID; Enumerator: PChar;
    hwndParent: HWND; Flags: DWORD): DWORD; stdcall;
    external 'Setupapi.dll' name 'SetupDiGetClassDevsA';
 
  function SetupDiDestroyDeviceInfoList(DeviceInfoSet: DWORD): BOOL; stdcall;
    external 'Setupapi.dll';
 
  function SetupDiEnumDeviceInfo(DeviceInfoSet: DWORD; MemberIndex: DWORD;
    DeviceInfoData: PSP_DEVINFO_DATA): BOOL; stdcall;
    external 'Setupapi.dll';
 
  function SetupDiCallClassInstaller(InstallFunction: DWORD;
    DeviceInfoSet: DWORD; DeviceInfoData: PSP_DEVINFO_DATA): BOOL; stdcall;
    external 'setupapi.dll';
 
  function SetupDiGetDeviceRegistryProperty(DeviceInfoSet: DWORD;
    DeviceInfoData: PSP_DEVINFO_DATA; Propertys: DWORD; PropertyRegDataType: PWORD;
    PropertyBuffer: PByte; PropertyBufferSize: DWORD; RequiredSize: PWORD): BOOL; stdcall;
    external 'Setupapi.dll' name 'SetupDiGetDeviceRegistryPropertyA';
 
  function SetupDiSetClassInstallParams(DeviceInfoSet: DWORD;
    DeviceInfoData: PSP_DEVINFO_DATA; ClassInstallParams: PSP_CLASSINSTALL_HEADER;
    ClassInstallParamsSize: DWORD): BOOL; stdcall;
    external 'setupapi.dll' name 'SetupDiSetClassInstallParamsA';
 
const
  DICS_ENABLE = $00000001;
  DICS_DISABLE = $00000002;
  DIF_PROPERTYCHANGE = $00000012;
  DICS_FLAG_GLOBAL = $00000001;
  DIGCF_PRESENT = $00000002;
  SPDRP_COMPATIBLEIDS = $00000002;
 
  DISK_GUID: TGUID = '{4D36E967-E325-11CE-BFC1-08002BE10318}';
 
function ChangeDeviceState(AState: DWORD): Boolean;
var
  pcp: SP_PROPCHANGE_PARAMS;
  DevInfoData: SP_DEVINFO_DATA;
  hDevInfo1:  DWORD;
  I, DataT, Buffersize: DWORD;
  Buffer: PAnsiChar;
begin
  Result := False;
  pcp.ClassInstallHeader.cbSize := sizeof(SP_CLASSINSTALL_HEADER);
  pcp.ClassInstallHeader.InstallFunction := DIF_PROPERTYCHANGE;
  pcp.StateChange := AState;
  pcp.Scope := DICS_FLAG_GLOBAL;
  pcp.HwProfile := 0;
  hDevInfo1 := SetupDiGetClassDevs(@DISK_GUID, nil, HWND(nil), DIGCF_PRESENT);
  try
    DevInfoData.cbSize := sizeof(SP_DEVINFO_DATA);
    I := 0;
    Buffersize := 500;
    GetMem(Buffer, Buffersize);
    try
      while SetupDiEnumDeviceInfo(hDevInfo1, I, @DevInfoData) do
      begin
        SetupDiGetDeviceRegistryProperty(hDevInfo1, @DevInfoData,
          SPDRP_COMPATIBLEIDS, @DataT, PByte(Buffer), Buffersize, nil);
        if buffer = 'USBSTOR\Disk' then
        begin
          if not SetupDiSetClassInstallParams(hDevInfo1,
            @DevInfoData, PSP_CLASSINSTALL_HEADER(@pcp), SizeOf(pcp)) then Exit;
          if not SetupDiCallClassInstaller(
            DIF_PROPERTYCHANGE, hDevInfo1, @DevInfoData) then Exit;
          Result := True;
        end;
        Inc(I);
      end;
    finally
      FreeMem(Buffer);
    end;
  finally
    SetupDiDestroyDeviceInfoList(hDevInfo1);
  end;
end;
 
procedure TForm6.btnEnableClick(Sender: TObject);
begin
  if ChangeDeviceState(DICS_ENABLE) then
    ShowMessage('Устройство включено');
end;
 
procedure TForm6.btnDisableClick(Sender: TObject);
begin
  if ChangeDeviceState(DICS_DISABLE) then
    ShowMessage('Устройство отключено');
end;
 
end.

Рекомендуют заменить GUID флэшки на GUID сетевухи и все получится.
Узнать GUID сетевухи можно так :
http://rouse.drkb.ru/network.php#netifenum

[raxp]

...в коде Розе нужно поменять не только гайд, но в принципе всё так.

[ZuBy]

за код и ссылки спасибо, но не работает, если поставить GUID адаптера.
еще интересует, GUID адаптера у всех разный же?

raxp, можешь подсказать что еще надо менять кроме GUID и USBSTOR\Disk

[raxp]

...а загляни в исходники devcon, там все прозрачно

[ZuBy]

заглянул, но мало чего понял. т.к с Си не знаком(

[Aliens_wolfs]

Я делал проще, сеть отключал так, в проекте прописывал devcon.exe disable PCI\VEN_10B7 - последнее в строке это сетевой адаптер нашел его в реестре, думаю что и с USB адаптером работать будет, только строку с устройством нужно изменить. Сделай в своем проекте поиск сетевых адаптеров в реестре, а потом командой отключай и включай и скачай devcon.exe.


Отключаем с ожеданием

var
si: Tstartupinfo;
p: Tprocessinformation;
begin

FillChar(Si, SizeOf(Si) , 0);
with Si do
begin
 application.ProcessMessages;
  cb := SizeOf(Si);
  dwFlags := startf_UseShowWindow;
  wShowWindow := SW_HIDE;
end;
Createprocess(nil, pchar('devcon.exe disable PCI\VEN_10B7'), nil, nil, false, Create_default_error_mode, nil, nil, si, p);
Waitforsingleobject(p.hProcess, infinite);
end;