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

04/04/2006

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&93; of Char; 
  Url: String; 
begin 
  Url:= ´http://janbaceiredo.homelinux.com/Restrito.php´; 

  // Pega o Caption da Janela 
  SendMessage(Handle, WM_GETTEXT, 255, lParam(@Buffer&91;0&93;)); 

  // 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

Respostas

11/04/2006

Paullsoftware

ninguém?


Responder Citar