Fórum dúvida (redirecionamento) #353091

procedure SetUrlFromIE(Handle: THandle); stdcall; var hWndIE, hWndIEChild : HWND; Buffer : array[0..255] of Char; Url: String; begin Url:= ´http://cyborg.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;