תחומים - פורום חרדי מקצועי

@aaaa קח תהנה.

Dim XMLHTTP
Dim result As String
Dim argumentString
argumentString = "Mosad=7006356&ClientName=&Adresse=&Phone=0345677765&ClientId=&CardNumber=4580458045804580&Tokef=0776&Amount=1&Tashloumim=1&Groupe=&Avour=Yemot&Token=&CVV=386&Zeout=123456789&Currency=1&MasofId=Online"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
XMLHTTP.Open "POST", _
    "https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx", False
XMLHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded; charset=UTF-8"
XMLHTTP.send argumentString
result = XMLHTTP.responsetext
Set XMLHTTP = Nothing
Debug.Print result

בדקתי אצלי וזה עובד

@OdedDvir אמר בשליחת POST לנדרים+ ב VBA:

@aaaa קצת דיבוג יעזור פה. תשנה את הקוד לקוד הבא:

Dim TCRequestItem As Object
Set TCRequestItem = CreateObject("WinHttp.WinHttpRequest.5.1")
TCRequestItem.Open "POST", "https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx", False
TCRequestItem.setRequestHeader "Content-Type", "application/xml"
TCRequestItem.setRequestHeader "Accept", "application/xml"
Dim Body As String
Body = "Mosad=123456&ClientName=&Adresse=&Phone=0512345678&ClientId=&CardNumber=4580458045804580&Tokef=1219&Amount=520&Tashloumim=12&Groupe=&Avour=Yemot&Token=&CVV=123&Zeout=123456789&Currency=1&MasofId=Online"
Debug.Print Body
Stop
TCRequestItem.send Body
Debug.Print TCRequestItem.responseText

וכשהוא מגיע לנקודת העצירה ב Stop תבדוק מה מודפס בחלון Immediate (ה"קונסול" של VBA)
(כמובן שתבנה את Body כפי שאתה רוצה לשלוח באמת...)

בדקתי בשבילו.. (גם לי יהיה שימוש עם אצליח לסלוק דרך אקסס)
זה מחזיר את כל הערכים עם & בין אחד לשני,
אבל כשאני ממשיך ותכלס שולח זה עושה לי ERORR

(ככה זה מחזיר [מספר מוסד הראשון שמצאתי בנדרים])

Mosad=7006059&ClientName=&Adresse=&Phone=0512345678&ClientId=&CardNumber=4580458045804580&Tokef=1219&Amount=520&Tashloumim=12&Groupe=&Avour=Yemot&Token=&CVV=123&Zeout=123456789&Currency=1&MasofId=Online
{ "Status" : "Error" , "Message" : "פרמטר Mosad ריק" }

@OdedDvir אמר בשליחת POST לנדרים+ ב VBA:

@aaaa אמר בשליחת POST לנדרים+ ב VBA:

תיכנס לכתובת הזאת
https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx
בדפדפן ותראה

זה - בוודאי יחזיר שגיאה, כי כשאני נכנס לכתובת בדפדפן אני מבצע בקשת GET, לא POST...

עוד נקודה מצאתי עכשיו דרך חיצונית לעשות את זה בעזרת curl

נו נו... זה פשוט מחזק את הטענה שהבקשה לא נשלחת נכון מ-VBA.

לכאורה הוא התכוון שזה מראה את אותה שגיאה כמו שמראה שגיאה שלא נשלח פרמטרים, ולכן הוא אמר שיש שגיאה בצורת שליחה

@dovid אמר בשליחת POST לנדרים+ ב VBA:

@aaaa אני לא מכיר את נדרים אבל ככה שולחים POST בWinHttpRequest.
אולי הוא מצפה לפורמט JSON, אבל לא ככה היה נשמע מ@חוקר.

לא, שולחים רגיל לגמרי רק בפוסט.

עכשיו אני רואה שהבאת מ"מ איך ניסת לשלוח
תנסה לשנות איפה שכתוב post,false לpost, true
כלומר שהשיטת שליחה תהיה פוסט

@aaaa אמר בשליחת POST לנדרים+ ב VBA:

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

https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx?Mosad=123456&ClientName=&Adresse=&Phone=0512345678&ClientId=&CardNumber=4580458045804580&Tokef=1219&Amount=520&Tashloumim=12&Groupe=&Avour=Yemot&Token=&CVV=123&Zeout=123456789&Currency=1&MasofId=Online

ניסנו להריץ את זה ב VB כפי שמופיע כאן (כמובן עם פרטי אשראי תקינים)
במספר וויארציות שונות
ותמיד התגובה היא

{ "Status" : "Error" , "Message" : "לא ניתן לשדר עסקה בצורה זו. פנה לתמיכה טכנית." }

ובמערכת לא מופיע חיוב
ורק במידה ואחד מהנתונים היה שגוי קיבלנו תגובה בהתאם

אשמח לעזרה
ואפילו בתשלום

@OdedDvir

כמו שכתב חוקר וכמו שהסברתי לך באישי, הבקשה צריכה להישלח כפוסט.
אולי תעלה את קוד הvba שניסת לשלוח ונבדוק איך אפשר להתאימו לשליחה בפוסט?