急！！！！！VB中有没有对URL进行编码的函数？？？比如...

Question

自己编一个程序就行了
%后面的两位是16进制表示的ASCII码

Answer 1

Public Function fxURL(SrcStr As String) As String
    Dim StrBytes() As Byte
    Dim OutStrLen As Long
    Dim StrLen As String
    Dim TempStr As String
    Dim TempNum As Long
    Dim I As Long
    Dim J As Long
    
    OutStrLen = 0
    I = 1
    StrLen = Len(SrcStr)
    Do Until I > StrLen
        J = InStr(I, SrcStr, "%")
        TempStr = Mid$(SrcStr, J + 1, 2)
        ReDim Preserve StrBytes(0 To OutStrLen)
        TempNum = Val("&H" + TempStr)
        StrBytes(OutStrLen) = TempNum
        OutStrLen = OutStrLen + 1
        I = J + 1 + 2
        
    Loop
    
    fxURL = StrConv(StrBytes, vbUnicode)
    
End Function

Answer 2

看错了
那是把URL字符串转成文本字符串
是这个：Public Function scURL(SrcStr As String) As String
    Dim TempBytes() As Byte
    Dim TempStr As String
    Dim I As Long
    Dim MinI As Long, MaxI As Long
    
    TempBytes = StrConv(SrcStr, vbFromUnicode)
    MinI = LBound(TempBytes)
    MaxI = UBound(TempBytes)
    For I = MinI To MaxI
        TempStr = TempStr + "%" + Format(Hex(TempBytes(I)), "00")
    Next I
    
    scURL = TempStr
    
End Function