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

04/04/2006

0

alguém pode me dá uma ideia de como usar esse 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
[url]http://forum.clubedelphi.net/viewtopic.php?t=75551[/url]


Paullsoftware

Paullsoftware

Responder

Posts

11/04/2006

Paullsoftware

ninguém?


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar