בעיה בשליחת API

[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 האמת שזה לא כ"כ נצרך.
יותר סקרנות, ומחשבה שאולי יש איזה שגיאה באתר שיכולה להתנקם בי בהמשך גם באקסס.

[שמואל ש.]

פוסט זה נמחק!