URL Encode - Decode UTF8 Menggunakan Script Control

Mungkin bisa disebut sebagai cara termudah untuk melakukan Encoding dan Decoding URL UTF8 dalam VB6, dengan memanfaatkan OCX Microsoft Script Control. Adapun kode untuk Encode dan Decode URL UTF8 menggunakan Visual Basic 6.0 adalah sebagai berikut:

'=================================================================
'UrlEncodeUtf8 menggunakan Script Control
'=================================================================
Public Function UrlEncodeUtf8(ByRef strSource As String) As String
    Dim sc As Object
    Set sc = CreateObject("ScriptControl")
    sc.Language = "Jscript"
    UrlEncodeUtf8 = sc.CodeObject.encodeURIComponent(strSource)
    Set sc = Nothing
End Function

'=================================================================
'UrlDecodeUtf8 menggunakan Script Control
'=================================================================
Public Function URLDecodeUTF8(strSource As String) As String
    Dim sc As Object
    Set sc = CreateObject("ScriptControl")
    sc.Language = "Jscript"
    URLDecodeUTF8 = sc.CodeObject.decodeURIComponent(strSource)
    Set sc = Nothing
End Function