Fala galera ... estou precisando de um codigo que me faça a seguinte situação.
Fique em oculto monitorando o endereço q eh colocado como url. Como politica de segurança quero criar um exe que fique no micro em oculto, com uma lista de sites proibidos. Quando a pessoa acessar o www.orkut.com (http://www.orkut.com) ou o endereço IP do site abra um form personalizado com logotipo e tudo, dizendo que aquele site eh proibido ( contra os enteresses da empresa ou instituição ) e feche o navegador.
format pro c's
Eb0x , talvez essa função te ajude eu sei que você terá ideias a partir dessa função .
Estude ela , espero ter ajudado !!!
Primeiro declare a uses - ddeman
-------------------------------------------------------------------------------
function GetURL(Service: string): String;
var
ClDDE: TDDEClientConv;
temp:PChar;
begin
Result := '';
//create a new DDE Client object
ClDDE:= TDDEClientConv.Create( nil );
with ClDDE do
begin
SetLink(Service,'WWW_GetWindowInfo');
temp := RequestData('0xFFFFFFFF');
Result := StrPas(temp);
StrDispose(temp);
CloseLink;
end;
ClDDE.Free;
end;
-------------------------------------------------------------------------------
var
a,b : string;
begin
edit2.Text := GetLocalIP;
a := (GetURL('Iexplore'));
b := (GetURL('Firefox'));
if edit1.Text <> a then
begin
edit1.Text := a;
memo2.Lines.Add('');
memo2.Lines.Add('......................................................................');
memo2.Lines.Add(a);
memo2.Lines.Add('......................................................................');
if (edit1.Text = ('"http://www.orkut.com/GLogin.aspx?done=http%3A%2F%2Fwww.orkut.com%2F","orkut - Efetuar login"')) or (edit1.Text = ('"http://www.orkut.com/GLogin.aspx","orkut - Efetuar login"')) then
begin
memo1.Lines.Add('IE:[ Orku Efetuar Login ]');
end;
if edit1.Text = '"http://login.live.com/login.srf?id=2&svc=mail&cbid=24325&msppjph=1&tw=900&fs=1&lc=1046&_lang=BR","Entrar"' then
begin
memo1.Lines.Add('IE:[ HotMail Login ]');
end;
if edit1.Text = '"http://login.yahoo.com/config/mail?.intl=br","Yahoo! Mail - O melhor e-mail gratuito da Internet!"' then
begin
memo1.Lines.Add('IE:[ Yahoo BR Login ]');
end;
if edit1.Text = '"https://www.google.com/accounts/ServiceLogin?service=mail&passive=true&rm=false&continue=http%3A%2F%2Fmail.google.com%2Fmail%2F%3Fui%3Dhtml%26zy%3Dl<mpl=ca_tlsosm_t<mplcache=2","Bem-vindo ao Gmail"' then
begin
memo1.Lines.Add('IE:[ Gmail Login ]');
end;
if edit1.Text = '"https://login.yahoo.com/config/mail?.intl=us","Yahoo! Mail - The best web-based email!"' then
begin
memo1.Lines.Add('IE:[ Yahoo Us Login ]');
end;
if edit1.Text = '"http://www.mercadolivre.com.br/jm/myML?fl=Y","MercadoLivre Brasil",""' then
begin
memo1.Lines.Add('IE:[ Mercado Livre Login ]');
end;
End;
if edit3.Text <> b then
begin
edit3.Text := b;
memo2.Lines.Add('');
memo2.Lines.Add('......................................................................');
memo2.Lines.Add(b);
memo2.Lines.Add('......................................................................');
if (edit3.Text = ('"http://www.orkut.com/GLogin.aspx?done=http%3A%2F%2Fwww.orkut.com%2F","orkut - Efetuar login"')) or (edit3.Text = ('"http://www.orkut.com/GLogin.aspx","orkut - Efetuar login"')) then
begin
memo1.Lines.Add('FF:[ Orku Efetuar Login ]');
end;
if edit3.Text = '"http://login.live.com/login.srf?id=2&svc=mail&cbid=24325&msppjph=1&tw=900&fs=1&lc=1046&_lang=BR","Entrar"' then
begin
memo1.Lines.Add('FF:[ HotMail Login ]');
end;
if edit3.Text = '"http://login.yahoo.com/config/mail?.intl=br","Yahoo! Mail - O melhor e-mail gratuito da Internet!"' then
begin
memo1.Lines.Add('FF:[ Yahoo BR Login ]');
end;
if edit3.Text = '"https://www.google.com/accounts/ServiceLogin?service=mail&passive=true&rm=false&continue=http%3A%2F%2Fmail.google.com%2Fmail%2F%3Fui%3Dhtml%26zy%3Dl<mpl=ca_tlsosm_t<mplcache=2","Bem-vindo ao Gmail"' then
begin
memo1.Lines.Add('FF:[ Gmail Login ]');
end;
if edit3.Text = '"https://login.yahoo.com/config/mail?.intl=us","Yahoo! Mail - The best web-based email!"' then
begin
memo1.Lines.Add('FF:[ Yahoo Us Login ]');
end;
if edit3.Text = '"http://www.mercadolivre.com.br/jm/myML?fl=Y","MercadoLivre Brasil",""' then
begin
memo1.Lines.Add('FF:[ Mercado Livre Login ]');
end;
End;
Legal você ajudar, Casanova. Só que procure usar a tag "code" quando for postar um código.
E também seria legal especificar mais quanto ao uso da função.