שליחת בקשת GET בעברית

[ארי]

שלום וברכה.
קיבלתי מקשר (סליקת אשראי) כתובת URL שצריך לשלוח אליה בקשת GET לצורך סליקת אשראי.
בדקתי את הכתובת בכמה תוכנות ואתרים והיא עובדת מצוין.
הבעיה היא כאשר אני מנסה להכניס אותה לקוד VBA באקסס.
היא סולקת את האשראי אבל כל העברית נהפכת לסימני שאלה.
הקוד הוא כך:

Public Function transaction()
Dim oHttp As Object
Dim TextBody As String

Set oHttp = CreateObject("MSXML2.XMLHTTP")

TextBody = "https://kesherhk.info/ConnectToKesher/ConnectToKesher?Json={""userName"":""1234567890"",""password"":""abcdef1234"",""func"":""SendTransaction"",""format"":""json"","""
TextBody = TextBody & "tran"":{""Address"":""שם רחוב"",""ApiKey"":""ABC123"",""City"":""עיר"",""CreditNum"":""4580000000001234"",""Token"":null,"""
TextBody = TextBody & "Expiry"":""2101"",""Cvv2"":""123"",""Total"":100,""Currency"":1,""CreditType"":1,""Phone"":""0521234567"",""ParamJ"":""J4"",""TransactionType"":""debit"",""Comment1"":""הערה 1"","""
TextBody = TextBody & "FirstName"":""שם פרטי"",""LastName"":""שם משפחה"",""ProjectNumber"":""1"",""Mail"":""<לא ניתן לפרסם מיילים באופן פומבי>""}}&format=json"

oHttp.Open "GET", TextBody, False

oHttp.send TextBody
Debug.Print oHttp.responseText
End Function

האם למישהו יש רעיון איך אפשר לסדר את זה?
יצוין שדרך תוכנות אחרות גם העברית בסדר.
תודה רבה מראש!

[yossiz]

@ארי אמר בשליחת בקשת GET בעברית:

אבל כל העברית נהפכת לסימני שאלה.

איזה עברית? הקוד או התשובה מהשרת? איפה זה מופיע עם סימני שאלה?

[ארי]

@yossiz
זה שולח את הבקשה עם סימני שאלה במקום עברית.
ואז באתר קשר ככה נרשם שם התורם והכתובת.

[yossiz]

@ארי רק תווי ASCII חוקיים בתוך ה-url של בקשת http. כדי לשלוח תווים אחרים צריך לקודד אותם על ידי urlencoding. נראה ש-MSXML2.XMLHTTP לא ממירה תווים לא חוקיים ל-url encoded אלא ממירה אותם לסימני שאלה...

אני לא יודע איך נהוג לעשות url encoding באקסס. אולי יש משהו מובנה? נראה שלא

[ארי]

@yossiz ניסיתי להמיר את כל מה שכתוב בעברית לקידוד של urlencoding עם הפונקציה שיש בקישור שהבאת, אבל זה עדיין לא עובד.
זאת אומרת הוא סולק את האשראי אבל את העברית הוא ממיר לסימני שאלה.

[ארי]

יש דרך אחרת לשלוח בקשת GET דרך אקסס במקום MSXML2.XMLHTTP?

[dovid]

@ארי אמר בשליחת בקשת GET בעברית:

@yossiz ניסיתי להמיר את כל מה שכתוב בעברית לקידוד של urlencoding עם הפונקציה שיש בקישור שהבאת, אבל זה עדיין לא עובד.
זאת אומרת הוא סולק את האשראי אבל את העברית הוא ממיר לסימני שאלה.

תצרף קוד.

[ארי]

הצלחתי!!!
השתמשתי בMSXML2.ServerXMLHTTP60 וזה עובד מצוין כולל העברית.
תודה לכולם!