VPF::Hosts не работает - Форум программистов

mmvds

Дата 11.2.2008, 17:19 (ссылка)

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

Загрузка ...

Бывалый

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

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

Такая проблема, надо оградить младшую сестренку от чрезмерного сидения в инете smile

В основном она сидит на двух сайтах, не придумал ничего лучше чем написать прогу, чтоб добавляла/удаляла эти два сайта в hosts файл (C:\WINDOWS\system32\drivers\etc\hosts) с айпишником 127.0.0.1 (т.е. при заходе на эти страницы должно выдаваться страница не найдена)

Код


var f,f2:textfile;
per:byte;
begin
  assignfile(f,'C:\WINDOWS\system32\drivers\etc\p');
  reset(f);
  readln(f,per);
  rewrite(f);
  assignfile(f2,'C:\WINDOWS\system32\drivers\etc\hosts');
  rewrite(f2);
  if per=1 then
    begin
    writeln(f,'0');
    writeln(f2,'127.0.0.1 localhost');
    writeln(f2,'127.0.0.1 *vkontakte*');
    writeln(f2,'127.0.0.1 *odnoklassniki*');
  end else
    begin
    writeln(f,'1');
    writeln(f2,'127.0.0.1 localhost');
  end;
  closefile(f);
  closefile(f2);
end.

поставил в nncron, чтоб каждые 20 мин запускал.

Проверил, в хостс файл добавляются/удаляются нужные строчки, вот только в браузерах и IE и FireFox можно свободно зайти на сайты vkontakte/odnoklassniki и они отображаются как ни в чем не бывало.

Может кто-нить подскажет в чем дело, или какой-нибудь другой способ скрытно запрещать/разрешать заход на определенные сайты?

AlexeyShestchenko

Дата 11.2.2008, 18:01 (ссылка)

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

Загрузка ...

Шустрый

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

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

возмоожно там редирект какойнить

Snowy

Дата 13.2.2008, 16:26 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Пока браузер не будет перезапущен, он не полезет в hosts.
Попробуй отправить броадкастом WM_SETTINGCHANGE.
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);
Может сработает...

SneG0K

Дата 14.2.2008, 19:13 (ссылка)

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

Загрузка ...

Max Mara

Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 2
Всего: 54

Выдерни шнур с компа smile

А ваще написал бы программулину отлавливающюю весь сетевой траффик, допустим по 80 порту... и при обнаружении определенного пакета просто "убивала" его....

mmvds

Дата 14.2.2008, 22:34 (ссылка)

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

Загрузка ...

Бывалый

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

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

Проблему решил, если кому пригодится, после редактирования hosts выполнить команду: ipconfig /flushdns (сброс кэша DNS)

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