[VB6] fonction d' encodage URL en VB

Je cherche une fonction qui permet d'encoder une url en vb, c'est à dire qui remplace les espaces par des + et les caractères spéciaux par %XX
le problème c'est que je sais pas comment trouver les bons XX
je sais qu'il existe une fonction en ASP "URLEncode()" mais j'ai pas trouver l'équivalent sous VB6 :marteau:

merci pour votre aide

ça n'existe pas ... je suis bien content de ne pas être le seul à avoir cherché ... et je me suis fait ces fonctions tout seul ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function Escape(ByVal str As String) As String
Dim strNocode as string
Dim out, Car as string
Dim i as Integer
 
strNocode = "*+-./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz"
out = ""
If Len(str) > 0 Then
 str = Replace(str, " ", "+")
 For i = 1 To Len(str)
  Car = Mid(str, i, 1)
  If InStr(strNocode, Car) Then
    out = out & Car
  Else
    out = out & "%" & Hex(Asc(Car))
  End If
 Next i
End If
Escape = out
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Function Unescape(ByVal str As String) As String
Dim out as String
Dim i as Integer
Dim str as String
 
out = ""
If Len(str) > 0 Then
 str = Replace(str, "+", " ")
 i = 1
 Do While i <= Len(str)
    If Mid(str, i, 1) = "%" Then
     Cod = Mid(str, i + 1, 2)
     If Len(Cod) = 2 Then
        out = out & Chr(CInt("&H" & Cod))
        i = i + 3
     Else
        out = out & Mid(str, i, 1)
        i = i + 1
     End If
    Else
     out = out & Mid(str, i, 1)
     i = i + 1
    End If
 Loop
End If
Unescape = out
End Function

:ccool: merci beaucoup