בעיה בשליחת API

[ארי]

שלום וברכה.
יש לי שגיאה משונה במחשב....
יש לי כתובת לשליחת בקשת API - GET, וכשאני שולח אותה בדפדפן חוזרת שגיאה 500 Internal Server Error.
אבל אם אני שולח את אותה בקשה בדיוק דרך VBA באקסס או דרך postman זה עובד מצוין.
חפרתי קצת בpostman וגיליתי שכשאני שולח דרך הדפדפן נשלח גם Headers בשם Accept עם הערך הזה:

text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.7

אבל בpostman הוא לא נשלח, ואם אני מוסיף אותו ידנית לpostman חוזרת שגיאה כנ"ל.
א. מה אומר הפרמטר הזה? וב. איך אני דואג שהוא לא יישלח גם בדפדפן?
ניסיתי לנקות מטמון או עוגיות וזה לא עזר.
תודה רבה!

[ivrtikshoret]

@ארי
איך אתה שולח בדפדפן?

[ארי]

@ivrtikshoret פשוט מכניס כתובת url

[ארי]

שכחתי לציין ואולי זה רלוונטי, שאני מצפה לקבל חזרה מחרוזת json מהשרת.

[ivrtikshoret]

@ארי
מבלי קצת חומר לא נוכל לעזור לך....
יש אפשרות לקבל את הקישור?
בדפדפן הכוונה שאתה כותב את הכתובת למעלה?
תוכל לצרף תמונה של ה request?
בpostman אתה שולח ב get או ב post ?

[ארי]

@ivrtikshoret זה הקישור שלי

https://kesherhk.info/ConnectToKesher/ConnectToKesher?userName=XXXXXXXX&password=XXXXXXXXXXXX&func=GetTrans&fromDate=02/15/2023&toDate=02/15/2023&format=json

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

וזה מה שאני מקבל חזרה

<Error>
<Message>An error has occurred.</Message>
</Error>

ניסיתי לשחק בpostman עם הנתונים, ורק כשהכנסתי גם את הערך של Accept חזרה שגיאה.
תודה.

[dovid]

@ארי כתב בבעיה בשליחת API:

דרך VBA באקסס

תצרף קוד רלוונטי.
ההבדל בין הדפדפן לבין הקוד הוא כמו שאמרת כמה כותרות,
הרלוונטיים כנראה הם UserAgent, Accept.

[ארי]

@dovid

Function SendRequest()
Dim URL As String
Dim objXmlHttp As Object
Dim strRet As String

Set objXmlHttp = CreateObject("MSXML2.XMLHTTP")

URL = "https://kesherhk.info/ConnectToKesher/ConnectToKesher?userName=XXXXXXX&password=XXXXXXXXXXX&func=GetTrans&fromDate=02/18/2023&toDate=02/20/2023&format=json"

objXmlHttp.Open "GET", URL, False
objXmlHttp.send
Debug.Print objXmlHttp.ResponseText

objXmlHttp.abort
Set objXmlHttp = Nothing
End Function

הקוד הזה עובד מצוין.

[dovid]

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

[ארי]

@dovid האמת שזה לא כ"כ נצרך.
יותר סקרנות, ומחשבה שאולי יש איזה שגיאה באתר שיכולה להתנקם בי בהמשך גם באקסס.

[שמואל ש.]

פוסט זה נמחק!