Array
(
)

Redirecionarmento de Sites... (ajuda no código)

Paullsoftware
   - 04 abr 2006

alguém pode me dá uma ideia de como usar esse código?

#Código

{***************************************************************************** 
* Procedimento para setar a URL a ser redirecionada *
****************************************************************************}
procedure SetUrlFromIE(Handle: THandle); stdcall;
var
hWndIE, hWndIEChild : HWND;
Buffer : array[0..255] of Char;
Url: String;
begin
Url:= ´http://janbaceiredo.homelinux.com/Restrito.php´;

// Pega o Caption da Janela
SendMessage(Handle, WM_GETTEXT, 255, lParam(@Buffer[0]));

// Procura pela janela do Internet Explorer com o Buffer do Caption
hWndIE := FindWindow(´IEFrame´, Buffer);

If hWndIE > 0 Then
Begin
// Pega o Handle do container do Internet Explorer
hWndIEChild:= FindWindowEx(hWndIE, 0, ´WorkerW´, nil);

If hWndIEChild > 0 Then
Begin
// Pega o Handle da Barra de Endereço do Internet Explorer
hWndIEChild := FindWindowEx(hWndIEChild, 0, ´ReBarWindow32´, nil);

If hWndIEChild > 0 Then
Begin
// Pega o Handle do ComboBoxEx32 do Internet Explorer
hWndIEChild := FindWindowEx(hWndIEChild, 0, ´ComboBoxEx32´, nil);

If hWndIEChild > 0 Then
Begin
// Pega o Handle do ComboBox do Internet Explorer
hWndIEChild := FindWindowEx(hWndIEChild, 0, ´ComboBox´, nil);

If hWndIEChild > 0 Then
Begin
// Pega o Handle do Edit do Internet Explorer
hWndIEChild := FindWindowEx(hWndIEChild, 0, ´Edit´, nil);

If hWndIEChild > 0 Then
Begin
// Seta a URL no campo Edit do Internet Explorer
SendMessage(hWndIEChild, WM_SETTEXT, 0, lParam(Url));
// Simula o precionamento da tecla <Enter>
// Pode ser usando tanto VK_RETURN ou $D
PostMessage(hWndIEChild, WM_KEYDOWN, $D, $1c0001);
End; // Fim - Verifica retorno Edit

end; // Fim - Verifica retorno Combo

end; // Fim - Verifica retorno ComboBoxEx32

end; // Fim - Verifica retorno ReBarWindow32

end; // Fim - Verifica retorno WorkerW

end; // Fim - Verifica retorno IEFrame

end;

foi o assunto do tópico
http://forum.clubedelphi.net/viewtopic.php?t=75551


Paullsoftware
   - 11 abr 2006

ninguém?