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
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
Juozzz. Nyimak nyimak dan nyimak
ReplyDeleteJangan lupa like and subcribe, terima masih sudah mampir
Deleteya Allah terakhir pakai VB waktu kuliah. Dan setelah kenal delpi, lebih sering pakai delpi. bahkan ketika kerja bangun software perusahaan masih pakai Delpi.
ReplyDeleteDan 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.
kalau pakai parameter gmn ya?kok sll gagal..
ReplyDelete