Redirecionarmento de Sites... (ajuda no código)
04/04/2006
0
alguém pode me dá uma ideia de como usar esse código?
foi o assunto do tópico
[url]http://forum.clubedelphi.net/viewtopic.php?t=75551[/url]
{***************************************************************************** * 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
[url]http://forum.clubedelphi.net/viewtopic.php?t=75551[/url]
Paullsoftware
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)