[γιώργοςΚ]

Αρχική Δημοσίευση από 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

Με εκτίμηση

Τάσος

Καλημέρα Τάσο και Χριστός Ανέστη και Χρόνια Πολλά,

¨Εχω δοκιμασει τον κωδικα και έχω δηλώσει και την reference Microsoft WinHTTP Services αλλά δοκιμάζοντας το λαμβάνω και πάλι error στο σημείο που επισυνάπτω στην φωτο. Δεν ξέρω αν κάνω κάτι λάθος φίλε και δεν θέλω να ταλαιπωρώ και εσάς....Αν βρεθει κάποια λυση καλώς, διαφορετικά θα το δουλέψω με τα ελληνικά κεφαλαία που δούλεψε, και θα βάζω αγγλικό τίτλο μηνύματος.

Σε κάθε περίπτωση σε ευχαριστω πάρα πολύ για τον χρόνο σου και θα χαρώ να μιλήσουμε πάλι οποτε μπορεις