CHAMADA XMLHTTP COM SSL

JRSANTANNA 15/07/2024 08:46:14
#503406
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!
WEBMASTER 15/07/2024 18:13:57
#503407
No passado vi algo como...


Dim objHTTP, objStream

Set objHTTP = WScript.CreateObject("MSXML2.ServerXMLHTTP.4.0")
objHTTP.SetOption 2, 13056 ' Ignore all SSL errors


Dá uma pesquisa no objeto (ou referencia ele no vb6 e usa o object browser) para ver que operações ele suporta no SetOption
Faça seu login para responder
Voltar