Chamada XMLHTTP com SSL

[JRSANTANNA]

Tenho uma integracao, obtendo dados de um EndPoint, mas agora temos uma alteracao na conexao e preciso colocar na chamada, para:

 

- Desabilita verificação do certificado SSL

- Desabilita verificação do host SSL

 

e me passaram este modelo em PHP, mas preciso fazer isso no vb, para usar a mesma app

 

$ch = curl_init($url);

curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);

curl_setopt($ch, CURLOPT_HEADER, true);

curl_setopt($ch, CURLOPT_NOBODY, true);

curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false); // Desabilita verificação do certificado SSL

curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, false); // Desabilita verificação do host SSL

curl_setopt($ch, CURLOPT_USERPWD, "$httpsUsername:$httpsPassword"); // Adiciona autenticação HTTP

$response = curl_exec($ch);

$httpCode = curl_getinfo($ch, CURLINFO_HTTP_CODE);

$curlError = curl_error($ch);

curl_close($ch);

 

 

--------------------------------------------------------------------------

Estou usando isso:

 

Dim objXMLHttp as New MSXML2.ServerXMLHTTP60

 

objXMLHttp.Open "GET", URLSERVER, False, "USUARIO", "SENHA"

objXMLHttp.setRequestHeader “Content-Type”, “text/xml; charset=utf-8”

objXMLHttp.setRequestHeader “Authorization”, “Basic “ & Base64Encode(“USUARIO:SENHA”)

objXMLHttp.send XMLENVIO

 

iResposta = objXMLHttp.responseText

 

Set objXMLHttp = Nothing

--------------------------------------------------------------------------

 

Agradeço muito, se alguém puder me ajudar a colocar estes parametros do PHP que funcionaram nesta chamada do VB6!