Reconnect

[tramvajman]

Здравствуйте.
Я пытаюсь написать программу reconnect.
Чтобы автоматом переподключаться к инету.
Как коннектиться и дизконнектиться я знаю.
Вот мой код:

procedure Connect;
var  
  cmd, par, fil, dir: PChar;
begin
  cmd := 'open';
  fil := 'rasdial.exe';
  par := PChar('Name' + ' ' + 'Login' + ' ' + 'Password');
  dir := 'C:';
  ShellExecute(GetDC(GetDesktopWindow), cmd, fil, par, dir, SW_NORMAL);
end;

procedure Disconnect;
var  
  cmd, par, fil, dir: PChar;
begin
  cmd := 'open';
  fil := 'rasdial.exe';
  par := PChar('Name' + ' /DISCONNECT');
  dir := 'C:';
  ShellExecute(GetDC(GetDesktopWindow), cmd, fil, par, dir, SW_NORMAL);
end;

procedure Reconnect;
begin
  Disconnect;
  Connect;
end;

Проблема возникает в процедуре Reconnect.
Программа почему-то не хочет выполнять последовательно два действия Disconnect и Connect... выполняется только Disconnect.
Я уже пытался ставить паузу между ними типа sleep()... И таймером паузу делал не помогает.
Помогите разобраться...

[mihali4]

Вы первый экземпляр программы запустили с дисконнектом?
А кто его "убивать" должен перед запуском на коннект?

[tramvajman]

Да, точно, немного ошибся. Спасибо.
Тут даже не нужно "убивать", просто нужно паузу подольше выдержать.
Вот, если кому надо: reconnect.rar

[rainbow]

Спасибо, но мне надо сделать так, чтобы если при коннекте вылазила ошибка 694, то бесконечный переконнект, а как вернуть эту ошибку в программу я не знаю.
Просто тупо сделал через таймер переконнект с интервалом 10 секунд,
но тогда, переконнект идет бесконечно даже если уже подключено, тоже не знаю как вернуть состояние сети подключено, чтобы прекратить подключение.

[Starsky]

А нельзя эту программу переделать так, чтобы она запускалась при старте винды, зависла где-нибудь в трее и автоматически через каждые, допустим, 5 часов перезапускала подключение по локальной сети? Если такое возможно то скажите, пожалуйста, как?

[KORN]

прописываешь ее в авторан, и по таймеру проверяешь подключение

[Starsky]

То, что в авторан это я догадался. Просто в приведённом выше коде запускается служба rasdial.exe, но она только для интернет подключений, а на локальную сеть не действует. Я думаю, что нужно как-то через svchost делать, но незнаю как... И не совсем разбираюсь в компоненте таймер.. точнее совсем не разбираюсь - не дано )) Помогите пожалуйста...

[KORN]

а локалка автоматом запускается вместе с виндой...
че в таймере уметь то7 одно событие, интервал да включить и отключить

[Starsky]

Я знаю, что локалка запускается автоматически. Дело вот в чём: у нас дома сеть из 4-х компьютеров. 3 компа подключаются к интернету через главный. Интернет безлимит, поэтому в день на счётчике подключения накапливаются десятки гигабайт переданной информации вследствие чего сеть начинаеть ужасно виснуть. Нужна такая программа, которая автоматически перезапускает локальную сеть через каждые 5-10 часов... Вот сдесь вижу вроде подходящую программу, но она не совсем для той цели которой я добиваюсь

[KORN]

у меня сеть из 5ти компов и так же все ходят через один сервак, и гонят кучу трафа и ничего не тормозит и перезапускать ничего не нужно... юзаю свич Dlink 1016D и еще пару которые расчитаны на хорошую нагрузку