Как программно подключиться или отключиться от интернета

Cети и Интернет   4 Октябрь 2010  Автор статьи: admin 

В этом небольшом уроке я расскажу, как можно программно подключаться или отключаться от интернета.
Для работы этого примера подключения к интернету нам требуется модуль shellapi. Добавим его в раздел uses.

procedure connect(name,login,pass:string); // соединение
var
cs:PCHAR;
begin
cs:=PChar(name+' '+login+' '+pass);
ShellExecute(Self.Handle, 'open', 'rasdial.exe',
cs, 'C:', SW_SHOWMINNOACTIVE);
end;
procedure disconnect(name:string);  // отключение
var
cs:PCHAR;
begin
cs:=PChar(name+' /DISCONNECT');
ShellExecute(Self.Handle, 'open', 'rasdial.exe',
cs, 'C:', SW_SHOWMINNOACTIVE);
end;

В данном случае мы пользуемся уже созданным подключением к интернету. Наша задача — используя его, выйти в интернет. Предположим, у нас есть подключение к инетрнету под названием «internet», логин — «user», пароль — «123456». Далее, при подключении, мы получаем строку в формате PCHAR — «internet user 123456», а при отсоединении достаточно лишь имя подключения, т.е. переменная cs будет выгляжеть уже так: «internet /DISCONNECT». И наконец, получив что нужно, мы открываем «rasdial.exe» с нашим, заранее подготовленным параметром, и происходит нужная операция.

Научиться программировать

  • на Delphi

  • на Java

  • на C++