[vba] ENCODEURL > vb6.0/vba

본문 바로가기

vb6.0/vba

[vb6.0/vba] [vba] ENCODEURL

익명
2021-01-30 09:27 730 0

본문

Function ENCODEURL(varText As Variant, Optional blnEncode = True)
    Static objHtmlfile As Object
    If objHtmlfile Is Nothing Then
        Set objHtmlfile = CreateObject("htmlfile")
        With objHtmlfile.parentWindow
            .execScript "function encode(s) {return encodeURIComponent(s)}""jscript"
        End With
    End If
    If blnEncode Then
        ENCODEURL = objHtmlfile.parentWindow.encode(varText)
    End If
End Function

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색