By Pass SSL di Visual Basic 6

, , 3 comments
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

3 comments:

  1. Replies
    1. Jangan lupa like and subcribe, terima masih sudah mampir

      Delete
  2. ya Allah terakhir pakai VB waktu kuliah. Dan setelah kenal delpi, lebih sering pakai delpi. bahkan ketika kerja bangun software perusahaan masih pakai Delpi.

    Dan setelah baca ini, baru tahu klo VB bisa akses data intenet, maklum waktu zaman saya kuliah dulu kebanyakan yang dibahas database biasa, belum online. jadi pingin execute lagi. hehehe dah lama nggak programming.

    ReplyDelete