Acessar um site com o Chrome

[evertonlb]

Preciso acessar um site usando o Chrome.. 

Como faço?

 

[kapiaba]

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