Olá Ricardo A parte de token consegui fazer sem problema, agora só estou enrolado mesmo é com usuários teste.
dbase oHTTP = CreateObject("MSXML2.ServerXMLHTTP")
//dbase oHTTP = CreateObject("Microsoft.XMLHTTP")
//Carrega serviço do windows para conexões http
//Buscar TOKEN
&curl = 'https://api.mercadolibre.com/oauth/token?client_id='+trim(ID_API)+'&client_secret='+trim(SecretKeyAPI)+'&grant_type=client_credentials'
dbase oHTTP.Open("POST", [!&curl!], .F.)
dbase oHTTP.Send()
dbase [!&nretorno!] = oHTTP.status
dbase [!&cretornotxt!] = oHTTP.responseText
dbase [!&cretornoxml!] = oHTTP.responseXML