delphi vkontakte

[yurii_malevannyi]

Люди а можно напписать такую прогу чтобы с ее помощью неможно было зайти вконтакт??
есть на компе 2 пользователя и одному надо закрыть контакт, чтобы он немог зайти. если кто знает и ему нетрудно, выложите исходники или хотябы подскажите как можно так сделать??. буду ОЧЕНЬ БЛАГОДАРЕН !!!!!!

[Пепел Феникса]

вообще зайти?
или именно для пользователя(логина конкретного)?

[yurii_malevannyi]

да для конкретного логина

[Izhic]

Можно просто блокировать доступ, так как Вас двое для себя, когда надо - разблокировать.

C:\WINDOWS\system32\drivers\etc\

[DeDoK]

да ну так не интересно - просто отлавливеш строку в браузере для этого id и просто закрываеш браузер. Все генильное просто.

[Квэнди]

пишешь свой прокси сервер, хоть с использованием Indy, затем прописываешь во все установленные браузеры свой локальный прокси. Ну а уже на прокси хозяин барин

[DeDoK]

ну зачем все так тяжко?
вот код

uses ddeman;
function GetUrl(Browser : string) : string;
var
Client_DDE : TDDEClientConv;
Temp:PChar;
begin
result:='';
ClientDDE:=TDDEClientConv.Create(nil);
with
Client_DDE do
begin
SetLink(Browser,'WWW_GETWindowInfo');
temp:=RequestData('0xFFFFFFF');
Result:=StrPas(temp);
Delete(Result, Pos(',',Result), Length (Result)-Pos(',',Result)+1);
Delete(Result, 1,1);
Delete(Result, Length(Result),1);
StrDispose(temp);
CloseLink;
end;
Client_DDE.Free;
end;

procedure Set_URL(URL,Browser : string);
var
Client_DDE:TDDEClientConv;
begin
Client_DDE:+TDDEClientConv.Create(nil);
with Client_DDE do begin
SetLink(Browser,'WWW_Activate');
RequestData('0xFFFFFFFF');
SetLink(Browser,'WWW_OpenUrl');
RequestData(URL+',,0xFFFFFFF,0x3,,,');
CloseLink;
end;
Client_DDE.Free;
end;

procedure TForm1.ButtonClick(Sender:TObject);
begin
Edit1.Text:=GetUrl('IExplore');
SetUrl('www.ya.ru','IExplore');
end;

[Квэнди]

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

[DeDoK]

да не скажи. я тестировал на Opera 9.60 и IE 7 - Работает. мозиллы под рукой не оказалось)

[Квэнди]

м, раньше как раз с оперой ddeconnection-ы не работали. ну тогда славно, осталось протестировать с мозилой, хромом и сафари )