Парольный доступ к некоторым сайтам

[Rusl92]

Здравствуйте, уважаемые эксперты! У меня такой вопрос: каким образом можно осуществить парольный доступ к некоторым сайтам: например, у меня сестра хочет зайти на сайт www.vkontakte.ru - выскакивает формочка - введите пароль (она естественно его не знает и вводит неправильно) и далее ей не удается зайти на этот сайт! Но у меня есть Мазила, Опера и IE, или это неважно? Помогите пожалуйста!

[N!ckeL]

два пути:
1) фильтрация входящих пакетов на низком уровне, для этого учи WinSock
2) Если сестра не очень догадлива и не установит 4 браузер или через диспетчер не отключит прогу, можно запомнить заголовки всех 3 браузеров когда они находятся на www.vkontakte.ru, и методом

var
h:hwnd;
begin
h:=FindWindow(nil, "заголовок оперы");
if h<> 0 then <выводим окно>
h:=FindWindow(nil, "заголовок ишака");
if h<> 0 then <выводим окно>
h:=FindWindow(nil, "заголовок лисы");
if h<> 0 then <выводим окно>
end;

выводить окно

[Rusl92]

Первое - что за заголовок оперы?
Второе - мне же надо писать доступ к странице не возможен, в этой вкладке, где был сайт vkontakte.ru
Третье - пожалуйста обьясни подробно код!

[N!ckeL]

1) на синем фоне белыми буквами написан заголовок окна (допустим открываем мой компьютер, там заголовок 'мой компьютер');
3) кидаем на форму таймер интервал 500, форма не видима, в таймере пишем

var
h:hwnd;
begin
h:=FindWindow(nil, "заголовок оперы");   {функция ищет окна с заголовками}
if h<> 0 then <выводим окно>   
h:=FindWindow(nil, "заголовок ишака");   
if h<> 0 then <выводим окно>   
h:=FindWindow(nil, "заголовок лисы");   
if h<> 0 then <выводим окно>   
end;

Под словами выводим окно я имею ввиду растянуть по всему экрану, там пароль и запрашиваем...

[Dj_smart]

Можно и не по всему, а если неправильный пароль, то просото оправить окну сообщение, wm_close.

[Rusl92]

procedure TForm1.Timer1Timer(Sender: TObject);
var
h:hwnd;
s:string;
begin
h:=FindWindow(nil,'В Контакте | Добро пожаловать - Opera'); {функция ищет окна с заголовками}
if h<> 0 then
begin
Form1.hide;
s:=Edit1.Text;
if s<>'000000' then
PostMessage(FindWindow('В Контакте | Добро пожаловать - Opera', nil),
wm_quit, 0, 0);
else form1.close;
end;

end;

end.
подскажите, у меня форм1 визибле фалсе, а почему форма сразу видима, она должна быть невидимой! помогите пожалуйста!

[Романнн]

у меня вопрос: как организовать поиск окна по какой-то части кэпшена?
например, по "В Контакте"??

[N!ckeL]

На форме Button1 и Edit1 вот код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
h:hwnd;
begin
h:=FindWindow(nil,'В Контакте | Добро пожаловать - Opera'); {функция ищет окна с заголовками}
if h<> 0 then//если нашли то...
begin
Form1.visible:=true;//Форма видима
Form1.WindowsState:=wsMaximized;//форма растянута
Form1.BorderStyle:=bsNone;//а нету крестика в углу!!! ;)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text<>'000000' then
PostMessage(FindWindow('В Контакте | Добро пожаловать - Opera', nil),
wm_quit, 0, 0)
else 
form1.close;
end;

end;

[Alter]

Используйте модуль Masks, набросал пример:

[Романнн]

хм....тут все примеры закрывают сами окна программ...а интереснее сделать-чтобы дочернее окно(то есть вкладка с "В контакте") закрывалось...