Definir o Internet Explorer Como Padrão

[kapiaba]

Galera, tem como Definir o Internet Explorer Como Padrão?

Explico:

Alguns bancos, por exemplo: CAIXA ECONOMICA FEDERAL, o Internet Banking, só abre no INTERNET EXPLORER, eu queria antes de disparar o Link para o Internet Banking da CEF, mudar o Navegador Padrão de Google Chrome, para Internet EXplorer. Pody? Obg. Abs.

[kapiaba]

Resolvido:

Obg. abs.

[frkiko]

Grande João..... Passa ai... como você resolveu.....

Tenho que saber o navegador padrão.... mudar ..... e depois voltar....

[sambomb]

Abre como parâmetro

WaitRun("iexplore.exe" + cURL,0)

[kapiaba]

http://www.4shared.com/rar/qkugwvZZce/BANCOS.html

[frkiko]

Valeu Samir e João.... não resolveu meu problema.

ShellExecute(GetActiveWindow(),´Print´, cArquivo, , ,2)

Para abrir a janela de impressão só funciona no Internet Explorer... Nos outros navegadores não...

Eu teria que ver qual é o padrão.... mudar para Internet Explorer.... e depois voltar para o Padrão.

Ou melhor seria funcionar também nos outros navegadores.

Abraços.

[kapiaba]

Francisco,

Eu não entendi, esse exemplo chama a impressora... Onde que o IE entra aqui?

#include "FiveWin.ch"
 
Function Main()
 
   LOCAL cArquivo := "TESTE.TXT"
 
   ShellExecute(GetActiveWindow(),"Print", cArquivo, , ,2)
 
Return Nil

[frkiko]

Isso mesmo João.... quando é IE for o Padrão.... testei no Chrome e Fire Fox.... não.

[kapiaba]

Talvez, com ActiveX, funcione.

[frkiko]

Valeu João... vou estudar aqui.... quero chamar a impressora para escolher e mandar imprimir sem mostrar o arquivo na tela.

[sistem]

Ola

para usar o programa padrao:

eX:

start www.google.com // vai abrir o navegador padrao

start c:\FWH\bitmaps\16array.bmp // vai abrir o programa padrao de bitmap

agora se quiser imprimir uma pagina web sem exibila e escolher a impressora

tente assim

Function teste123()

Local oIE

oIE:=TOleAuto():New( "InternetExplorer.Application" )

oIE:Visible := .f. // aqui nao mmostra o navegador

oIE:Navigate("google.com.br")

While oIE:Busy

syswait(.5) // aqui da um time para montar a pagina web

End

oIE:ExecWB(6,0) // aqui imprime pedindo a imprssora

Return nil

[frkiko]

Legal Sistem..... vou testar aqui.... se desta forma resolve meu problema....

Obrigado....

[frkiko]

Error description: Error InternetExplorer.application/0 S_OK: EXECWB

E está mostrando o navegador.

.... rsrsrsr

[Jmsilva]

Veja se ajuda.

#INCLUDE "FIVEWIN.CH"

FUNCTION MAIN()
LOCAL oWnd,oActiveX

DEFINE WINDOW oWnd FROM 0,0 TO 600,810 PIXEL;
       TITLE "Teste de IE"

oActiveX = TActiveX():New( oWnd, "Shell.Explorer.2",0,0 )

oWnd:oClient := oActiveX 

oActiveX:Do("Navigate2","www.cef.com.br")

oWnd:Center()

ACTIVATE WINDOW oWnd

RETURN NIL

[sistem]

Error description: Error InternetExplorer.application/0 S_OK: EXECWB

E está mostrando o navegador.

.... rsrsrsr

o navegador chega abrir a pagina? oIE:Visible := .T., veja se esta aparecendo alguma msg no rodape do browse

remova -> While oIE:Busy e aumenta o tempo do syswait(.9) pra ver

aqui funcionou fwh1603 win10

em todo caso alguem vai resolver sua duvida ...ririri

[kapiaba]

#include "FiveWin.ch"


Function AbreWebWin(cAlgo, cTitulo, oWndP, lJanela, lrestaura)


   Local oWndWeb, oActiveX, lBotao


   DEFAULT lJanela := .f.

   DEFAULT lrestaura := .f.

   DEFAULT lBotao := .f.

   DEFAULT cAlgo := "www.google.com"


   DEFINE WINDOW oWndWeb From 10,10 To 42,115 TITLE cTitulo


   oActiveX = TActiveX():New( oWndWeb, "Shell.Explorer" )

   oWndWeb:oClient = oActiveX

   oActiveX:Do( "Navigate", cAlgo)

   oWndWeb:center()


   ACTIVATE WINDOW oWndWeb MAXIMIZED ON INIT BARRABOTOESCLI(oWndWeb, oActiveX)


Return nil

*------------------------------------------------------------------------------------

STATIC FUNCTION BARRABOTOESCLI(oDlg, oActiveX)


   Local oToolBarDlg, oImageList


   oImageList = TImageList():New(32,32)

   oImageList:AddMasked( TBitmap():Define( "BMP_PRI9",, oDlg ), nRGB( 255, 0, 255 ) )

   oImageList:AddMasked( TBitmap():Define( "BMP_FLO9",, oDlg ), nRGB( 255, 0, 255 ) )

   oImageList:AddMasked( TBitmap():Define( "BMP_QUIT",, oDlg ), nRGB( 255, 0, 255 ) )


   DEFINE TOOLBAR oToolBarDlg OF oDlg SIZE 35,35 IMAGELIST oImageList BALLOON


   DEFINE TBBUTTON OF oToolBarDlg ACTION oActivex:Do("ExecWB", 7,1) TOOLTIP "Imprimir"


   DEFINE TBBUTTON OF oToolBarDlg ACTION oActiveX:Do("ExecWB", 4,1) TOOLTIP "Salva"


   DEFINE TBSEPARATOR OF oToolBarDlg


   DEFINE TBBUTTON OF oToolBarDlg ACTION oDlg:End() TOOLTIP "Fechar"


RETURN Nil

[frkiko]

Valeu gente....

Ainda estou fazendo testes e a melhor Opção é justamente está com o Activex.

Estou ajustando para chegar mais próximo do que eu estava querendo.

Más no final é isso mesmo.... não é o que eu queira.... Com certeza vai servir para muitas outras coisas.

Obrigado a todos.

[frkiko]

Não resolveu muito não.... Tenho que fazer como Dialog. Como Coloco Menu e ou ButtonBar ??

[kapiaba]

Francisco, juros por Deus, que até agora não entendi o que você quer fazer na real. Siga a lógica, diga o que quer, e mostre come é... abs.

[frkiko]

Function AbreWebWin(cTitulo,cLink,cPrinter)
   Local oWndWeb,oActiveX,oButBar
   iif(Empty(cPrinter),SetDefaultPrinter(cPrinter),)

   MENU oWebMenu 2007
      MENUITEM "&Visualizar Impressão" ACTION oActivex:Do("ExecWB",7,1)
      MENUITEM "&Impremir"             ACTION oActivex:Do("ExecWB",6,1)
      MENUITEM "&Fechar"               ACTION oWndWeb:End()
   ENDMENU

   Define Window oWndWeb Title cTitulo MENU oWebMenu
      oWndWeb:center()

      oActiveX = TActiveX():New(oWndWeb,"Shell.Explorer")
         oWndWeb:oClient = oActiveX
         oActiveX:Do("Navigate",cLink)

      Define BUTTONBAR oButBar _3D 2007SIZE 30,35 Of oWndWeb
         Define BUTTON RESOURCE "PROCURA" Of oButBar Action oActivex:Do("ExecWB", 7,1) Tooltip "Visualizar Impressão" Group
         Define BUTTON RESOURCE "PRINTER" Of oButBar Action oActiveX:Do("ExecWB", 6,1) Tooltip "Imprimir" Group
         Define BUTTON RESOURCE "SAIR2" Of oButBar Action oWndWeb:End() Tooltip "Fechar" Group

   Activate Window oWndWeb Maximized
Return Nil

João, eu estou ficando louco... rsrsrsr

Dessa forma está funcionando. Só que essa tela tem que ficar ativa e ser modal, pois necessito de um retorno desta tela.

Ok ?

[kapiaba]

Inxyyyyyy, desconheço WINDOW modal, passe para uma DIALOG para ver se funciona, louko, você sempre foi... kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk