By Pass SSL di Visual Basic 6

Assalamualaikum wr. wb

Ada kalanya kita harus menghubungkan aplikasi visual basic 6 kita dengan web service yang menggunakan https di URLnya. Https singkatan dari Hypertext Transfer Protocol Secure, yaitu ekstensi dari http. Protokol ini memberikan keamanan lebih dibandingkan dengan method http.

Di Visual Basic 6 ada 2 komponen yang sering digunakan untuk mengakses wes service. Yaitu winhttp dan xmlHttp, karena itu saya juga membuat 2 kod.

1. Dengan winhttp

dim req As WinHttp.WinHttpRequest
dim url as string
set req = New WinHttp.WinHttpRequest

  url = "someurl.com"
req.Open "GET", Url, False
  req.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = 13056
req.send

keterangan kode: perintah yang digunakan untuk membypass SSL adalah
  "req.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = 13056".

2. Dengan xmlHTTP

dim req As MSXML2.ServerXMLHTTP60
    dim url as string
Set req = CreateObject("MSXML2.ServerXMLHTTP.6.0")

    url="someurl.com"
Call req.setOption(2, 13056)
Call req.Open("GET", Url, False)
req.Send
 

keterangan kode: perintah yang digunakan untuk membypass SSL adalah
 " Call req.setOption(2, 13056)".  

Terima kasih sudah mampir, dan semoga bermanfaat