שליחת בקשת 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האם למישהו יש רעיון איך אפשר לסדר את זה?
יצוין שדרך תוכנות אחרות גם העברית בסדר.
תודה רבה מראש! -
-
-
