[Tasos]

Καλημέρα σε όλους! Χριστός Ανέστη!

Γιώργο φρόντισε να προσθέσεις την αναφορά Microsoft WinHTTP Services, Version x,x στον VBE για να λειτουργήσει ο κώδικας.

Εναλλακτικά μπορείς να χρησιμοποιήσεις την παρακάτω συνάρτηση:

Public Function URLEncode(strText As String) As String
    Dim i As Integer
    Dim iLen As Integer
    Dim strTemp As String
    i = 1: iLen = Len(strText) + 1
    While i < iLen
        Select Case Asc(Mid(strText, i, 1))
            Case 48 To 57, 65 To 90, 97 To 122
                strTemp = strTemp & Mid(strText, i, 1)
            Case 32
                    strTemp = strTemp & "%" & Hex(32)
            Case Else
                strTemp = strTemp & "%" & Format(Hex(Asc(Mid(strText, i, 1))), "00")
        End Select
        i = i + 1
    Wend
    URLEncode = strTemp
End Function

Με εκτίμηση

Τάσος