*-------------------------
*-------------------------
function main()
local getlist:={},oData:=hb_Hash(),cResposta,oJson,vteste
local tela:=savescreen(),vdump:='1'
local vsenha:='QKfVr;^4!7Z*aHJb9Pp~=Y:hN8WjedL#?@Rt5sMXu$%ST2mUDCG6w&Fxl3n+gvyA'
curl:='https://apis.averbeporto.com.br/php/conn.php'
cls
@ 14,02 say 'Dump 1/2 ou vazio:'get vdump pict '!' valid(vdump $ '12 ')
read
oData["mod"]:= 'login'
oData["comp"]:= '5'
oData["user"]:="23515385000125"
oData["pass"]:= alltrim(vsenha)
if !empty(vdump)
   oData["dump"]:= alltrim(vdump)
endif
vteste:=hb_JsonEncode( oData )
varqsaida:='jlog.txt'
HB_MemoWrit(varqsaida,vteste)
*--
cResposta:=mandaserv('POST',cUrl, oData)
cResposta:=tacjson(cResposta) // acentuacao
alert(cresposta)
if at('userName',cresposta)>0
   HB_MemoWrit(varqret,cresposta)
else
   varqret:='jret.txt'
   HB_MemoWrit(varqret,cresposta)
   alert('Problemas ! Nao gerou novo login')
endif
rest screen from tela
retu

*------------------------------
* manda requisicao ao servidor
*------------------------------
function mandaserv(vmetodo,cUrl, oData)
local oWeb, cResposta
oWeb := win_OleCreateObject( "MSXML2.ServerXMLHTTP" )
oWeb :Open(vmetodo, cUrl, .F. )
oWeb :SetRequestHeader( "Content-Type","application/x-www-form-urlencoded")
oWeb :Send( hb_JsonEncode( oData ) )
oWeb :WaitForResponse( 300 )
cResposta := oWeb:ResponseBody()
return cResposta