Codigo que faz o login e retorna o cookie da sessão
function LoginWS(cUsuario,cSenha)
local strXml
strXml := []
strXml += [mod=login]
strXml += [&comp=5]
strXml += [&user=]+cUsuario
strXml += [&pass=]+cSenha
cUrl := "http://www.averbeporto.com.br/websys/php/conn.php"
oServer:= CreateObject( "MSXML2.ServerXMLHTTP")
oServer:Open( "POST", cUrl, .f. )
oServer:SetRequestHeader( "Content-Type", "application/x-www-form-urlencoded" )
oServer:Send(strXml) //
oServer:WaitForResponse( 10000 )
cCookieSessao := oServer:getResponseHeader("Set-Cookie") // pega o cookie da sessão
cCookieSessao := substr(cCookieSessao,1,at(';',cCookieSessao)-1)
cRetorno:= oServer:ResponseText
MemoWrit( "xml\retorno.xml", cRetorno )
return(cCookieSessao)