evertonlb Posted September 9, 2019 Report Share Posted September 9, 2019 Preciso acessar um site usando o Chrome.. Como faço? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 9, 2019 Report Share Posted September 9, 2019 Fácil: use o CHROME como Navegador DEFAULT. //-> Programa Para acionar os Correios - by kapiabafwh@gmail.com #Include "FiveWin.Ch" Static oWnd Function Main() LOCAL cSiteCorreios cSiteCorreios := ( "http://www.buscacep.correios.com.br/sistemas/buscacep/BuscaCepEndereco.cfm" ) //-> Invisibilizo a Janela DEFINE WINDOW oWnd FROM -10, -10 TO -5, -5 ACTIVATE WINDOW oWnd ; ON INIT( ShellExecute(GetActiveWindow(),"open",'"'+cSiteCorreios+'"'), oWnd:End() ) // Google // ShellExecute(GetActiveWindow(),"open",'"'+cSite+'"') // Internet Explorer // ON INIT( ( MeuWinExec( "Start Iexplore.Exe http://www.buscacep.correios.com.br/sistemas/buscacep/resultadoBuscaCepEndereco.cfm?t", 0 ) ), oWnd:End() ) // ON INIT( ( MeuWinExec( "Start Iexplore.Exe http://www.correios.com.br/", 0 ) ), oWnd:End() ) Return Nil /* // IsWin2000() // IsWinXP() // IsNTPreWin2K() // IsNTWorkstation() // IsNTServer() // IsWin2000Prof() // IsWin2000Server() */ FUNCTION MeuWinExec( cParametro ) //LOCAL cExec := GetPvProfString("Editor","Pgm","notepad", cIniFile ) LOCAL cExecute := GetPvProfString( "" ) // NT, 2000 e XP IF IsWinNT() .OR. IsWin2000() cExecute := GetEnv( "COMSPEC" ) + " /C " ENDIF RETURN WinExec( cExecute + cParametro, 0 ) //-> Fim do programa evertonlb 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.