paso otro codigo, que poniendo la direccion correcta habre automaticamente en google maps
m_direccion = alltrim(This.value)
m_es_email = 'www.'
c_es_web1 = 'https:'
c_es_web2 = 'http:'
if empty(m_direccion)
wait "LA DIRECCION" + CHR(13) + " de GoogleMaps" + CHR(13) +;
"ESTA VACIA" + CHR(13) + "Pulse una tecla para continuar..." WINDOWS
return .t.
endif
if m_es_email $ lower(m_direccion)
DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, STRING cAction, STRING cFileName, ;
STRING cParams, STRING cDir, INTEGER sShowWin
ShellExecute(0,"open",m_direccion,"","",1)
endif && m_es_email $ m_direccion
if c_es_web1 $ lower(m_direccion)
DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, STRING cAction, STRING cFileName, ;
STRING cParams, STRING cDir, INTEGER sShowWin
ShellExecute(0,"open",m_direccion,"","",1)
endif && m_es_email $ m_direccion
if c_es_web2 $ lower(m_direccion)
DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, STRING cAction, STRING cFileName, ;
STRING cParams, STRING cDir, INTEGER sShowWin
ShellExecute(0,"open",m_direccion,"","",1)
endif && m_es_email $ m_direccion