VPF::ошибка при повторном подключении инета

BLACK_KOT

Дата 23.11.2008, 08:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: -1
Всего: -1

выкладываю проект с модулем - это пример как включить,выключить интернет.
всёбы хорошо, иннернет он включает, и даже отключает, но вот при повторном подключении выдаёт сообщение "подключение было прервано". вобщем второй раз включить инет не удаётся, тока после перезапуска проги включает.одноразовая какая то прога получается. понять не могу , почему так происходит, мож кто баг найдёт, или подскажет дельное чего - напишите вобяз.

Это сообщение отредактировал(а) BLACK_KOT - 23.11.2008, 08:36

Присоединённый файл ( Кол-во скачиваний: 4 )

__________________.rar 37,70 Kb

--------------------

.. я - демо версия Бога от Microsoft..

ecspertiza

Дата 25.11.2008, 14:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 763
Регистрация: 3.11.2008
Где: г.Смоленск

Репутация: нет
Всего: 5

Код


var
  cmd, par, fil, dir: PChar;
begin
  if connect=false then
   begin
    cmd := 'open';
    fil := 'rasdial.exe';
    par := PChar(Name.Text + ' ' + Login.Text + ' ' + Pass.Text);
    dir := 'C:';
    ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
    connect:=true;
    email:=mail.Text;
    emailLogin:=eLogin.Text;
    emailpass:=ePass.Text;
   end
  else
   begin
      cmd := 'open';
      fil := 'rasdial.exe';
      par := PChar(Name.Text + ' /DISCONNECT');
      dir := 'C:';
      ShellExecute(Self.Handle, cmd, fil, par, dir, SW_SHOWMINNOACTIVE);
   end;

вот попробуй где Name.text - имя соединения с инетом созданного на компе,
Login.text - стало быть логин,
Pass.text - стало быть поролллл.

--------------------

С уважением,
мастер конфетного цеха!

онлайн компилер
залип

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »