דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. שליחת POST לנדרים+ ב VBA

שליחת POST לנדרים+ ב VBA

מתוזמן נעוץ נעול הועבר תכנות
22 פוסטים 6 כותבים 1.2k צפיות 6 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • יהודי טובי יהודי טוב

    @aaaa הייתי ממליץ לבצע את מה שכתוב בהודעת השגיאה, ולפנות לתמיכה שלהם.

    יש להם מענה מהיר, אני מאמין שהם יוכלו לעזור לך בצורה הטובה ביותר.

    aaaaA מנותק
    aaaaA מנותק
    aaaa
    כתב ב נערך לאחרונה על ידי
    #3

    @יהודי-טוב דיברתי איתם. באופן רישמי הם לא תומכים בזה

    תגובה 1 תגובה אחרונה
    0
    • ח מנותק
      ח מנותק
      חוקר
      כתב ב נערך לאחרונה על ידי
      #4

      שיטת השליחה בנדרים השתנתה מ GET ל POST בלבד.
      עליך לבודד את הנתונים 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 מה URL ולשלוח את המידע בPOST

      תגובה 1 תגובה אחרונה
      5
      • aaaaA aaaa

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

        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

        צבי-שצ מחובר
        צבי-שצ מחובר
        צבי-ש
        כתב ב נערך לאחרונה על ידי
        #5

        @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 שניסת לשלוח ונבדוק איך אפשר להתאימו לשליחה בפוסט?

        aaaaA תגובה 1 תגובה אחרונה
        1
        • צבי-שצ מחובר
          צבי-שצ מחובר
          צבי-ש
          כתב ב נערך לאחרונה על ידי
          #6

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

          תגובה 1 תגובה אחרונה
          0
          • צבי-שצ צבי-ש

            @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 שניסת לשלוח ונבדוק איך אפשר להתאימו לשליחה בפוסט?

            aaaaA מנותק
            aaaaA מנותק
            aaaa
            כתב ב נערך לאחרונה על ידי aaaa
            #7

            @צבי-ש @חוקר
            זה הקוד שהשתמשתי

            Dim TCRequestItem As Object
            Set TCRequestItem = CreateObject("WinHttp.WinHttpRequest.5.1")
            TCRequestItem.Open "POST", "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", False
            TCRequestItem.setRequestHeader "Content-Type", "application/xml"
            TCRequestItem.setRequestHeader "Accept", "application/xml"
            TCRequestItem.send
            Debug.Print TCRequestItem.responseText
            

            איך אני מחלק את הנתונים מהכתובת?

            dovidD תגובה 1 תגובה אחרונה
            0
            • aaaaA 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?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", False
              TCRequestItem.setRequestHeader "Content-Type", "application/xml"
              TCRequestItem.setRequestHeader "Accept", "application/xml"
              TCRequestItem.send
              Debug.Print TCRequestItem.responseText
              

              איך אני מחלק את הנתונים מהכתובת?

              dovidD מנותק
              dovidD מנותק
              dovid
              ניהול
              כתב ב נערך לאחרונה על ידי
              #8

              @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"
              TCRequestItem.send "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 TCRequestItem.responseText
              
              • מנטור אישי בתכנות והמסתעף – להתקדם לשלב הבא!
              • בכל נושא אפשר ליצור קשר dovid@tchumim.com
              aaaaA תגובה 1 תגובה אחרונה
              3
              • dovidD dovid

                @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"
                TCRequestItem.send "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 TCRequestItem.responseText
                
                aaaaA מנותק
                aaaaA מנותק
                aaaa
                כתב ב נערך לאחרונה על ידי aaaa
                #9

                @dovid אמר בשליחת 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"
                TCRequestItem.send "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 TCRequestItem.responseText
                

                לא עבד, הוא לא מצרף אותם

                הפלט הוא

                { "Status" : "Error" , "Message" : "פרמטר Mosad ריק" }
                
                dovidD OdedDvirO צבי-שצ 3 תגובות תגובה אחרונה
                0
                • aaaaA aaaa

                  @dovid אמר בשליחת 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"
                  TCRequestItem.send "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 TCRequestItem.responseText
                  

                  לא עבד, הוא לא מצרף אותם

                  הפלט הוא

                  { "Status" : "Error" , "Message" : "פרמטר Mosad ריק" }
                  
                  dovidD מנותק
                  dovidD מנותק
                  dovid
                  ניהול
                  כתב ב נערך לאחרונה על ידי
                  #10

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

                  • מנטור אישי בתכנות והמסתעף – להתקדם לשלב הבא!
                  • בכל נושא אפשר ליצור קשר dovid@tchumim.com
                  צבי-שצ תגובה 1 תגובה אחרונה
                  2
                  • dovidD dovid

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

                    צבי-שצ מחובר
                    צבי-שצ מחובר
                    צבי-ש
                    כתב ב נערך לאחרונה על ידי
                    #11

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

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

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

                    תגובה 1 תגובה אחרונה
                    0
                    • aaaaA aaaa

                      @dovid אמר בשליחת 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"
                      TCRequestItem.send "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 TCRequestItem.responseText
                      

                      לא עבד, הוא לא מצרף אותם

                      הפלט הוא

                      { "Status" : "Error" , "Message" : "פרמטר Mosad ריק" }
                      
                      OdedDvirO מנותק
                      OdedDvirO מנותק
                      OdedDvir
                      כתב ב נערך לאחרונה על ידי
                      #12

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

                      לא עבד, הוא לא מצרף אותם

                      הוא כן מצרף אותם. השגיאה היא ששלחת פרמטר מוסד ריק (כמו שכתוב בתגובה וכמו שענה לך @dovid ). תבדוק אם אתה אכן שולח מספר מוסד.
                      ב-VBA, יתכן גם שאתה משרשר אפילו פרמטר אחר עם ערך NULL - וכל המחרוזת מתאפסת, זה יקרה אם אתה מחבר מחרוזות עם + במקום עם &... תשתמש כמובן ב-&.

                      aaaaA תגובה 1 תגובה אחרונה
                      2
                      • aaaaA aaaa

                        @dovid אמר בשליחת 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"
                        TCRequestItem.send "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 TCRequestItem.responseText
                        

                        לא עבד, הוא לא מצרף אותם

                        הפלט הוא

                        { "Status" : "Error" , "Message" : "פרמטר Mosad ריק" }
                        
                        צבי-שצ מחובר
                        צבי-שצ מחובר
                        צבי-ש
                        כתב ב נערך לאחרונה על ידי
                        #13
                        פוסט זה נמחק!
                        תגובה 1 תגובה אחרונה
                        0
                        • OdedDvirO OdedDvir

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

                          לא עבד, הוא לא מצרף אותם

                          הוא כן מצרף אותם. השגיאה היא ששלחת פרמטר מוסד ריק (כמו שכתוב בתגובה וכמו שענה לך @dovid ). תבדוק אם אתה אכן שולח מספר מוסד.
                          ב-VBA, יתכן גם שאתה משרשר אפילו פרמטר אחר עם ערך NULL - וכל המחרוזת מתאפסת, זה יקרה אם אתה מחבר מחרוזות עם + במקום עם &... תשתמש כמובן ב-&.

                          aaaaA מנותק
                          aaaaA מנותק
                          aaaa
                          כתב ב נערך לאחרונה על ידי aaaa
                          #14

                          @OdedDvir בדקתי הכל מחובר ב &
                          אבל הוא לא מצרף אותם
                          תיכנס לכתובת הזאת
                          https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx
                          בדפדפן ותראה

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

                          curl --data "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" https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx
                          

                          עובדת חלק

                          OdedDvirO תגובה 1 תגובה אחרונה
                          0
                          • aaaaA aaaa

                            @OdedDvir בדקתי הכל מחובר ב &
                            אבל הוא לא מצרף אותם
                            תיכנס לכתובת הזאת
                            https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx
                            בדפדפן ותראה

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

                            curl --data "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" https://www.matara.pro/nedarimplus/V6/Files/WebServices/DebitCard.aspx
                            

                            עובדת חלק

                            OdedDvirO מנותק
                            OdedDvirO מנותק
                            OdedDvir
                            כתב ב נערך לאחרונה על ידי
                            #15

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

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

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

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

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

                            צבי-שצ תגובה 1 תגובה אחרונה
                            1
                            • OdedDvirO OdedDvir

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

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

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

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

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

                              צבי-שצ מחובר
                              צבי-שצ מחובר
                              צבי-ש
                              כתב ב נערך לאחרונה על ידי
                              #16

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

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

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

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

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

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

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

                              תגובה 1 תגובה אחרונה
                              1
                              • OdedDvirO מנותק
                                OdedDvirO מנותק
                                OdedDvir
                                כתב ב נערך לאחרונה על ידי OdedDvir
                                #17

                                @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 כפי שאתה רוצה לשלוח באמת...)

                                צבי-שצ תגובה 1 תגובה אחרונה
                                1
                                • OdedDvirO OdedDvir

                                  @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 כפי שאתה רוצה לשלוח באמת...)

                                  צבי-שצ מחובר
                                  צבי-שצ מחובר
                                  צבי-ש
                                  כתב ב נערך לאחרונה על ידי צבי-ש
                                  #18

                                  @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 ריק" }
                                  
                                  תגובה 1 תגובה אחרונה
                                  2
                                  • צבי-שצ מחובר
                                    צבי-שצ מחובר
                                    צבי-ש
                                    כתב ב נערך לאחרונה על ידי צבי-ש
                                    #19

                                    @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
                                    

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

                                    aaaaA תגובה 1 תגובה אחרונה
                                    3
                                    • צבי-שצ צבי-ש

                                      @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
                                      

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

                                      aaaaA מנותק
                                      aaaaA מנותק
                                      aaaa
                                      כתב ב נערך לאחרונה על ידי
                                      #20

                                      @צבי-ש
                                      @OdedDvir
                                      @dovid
                                      עזרתם לי מאוד
                                      תודה על הכל

                                      צבי-שצ תגובה 1 תגובה אחרונה
                                      1
                                      • aaaaA aaaa

                                        @צבי-ש
                                        @OdedDvir
                                        @dovid
                                        עזרתם לי מאוד
                                        תודה על הכל

                                        צבי-שצ מחובר
                                        צבי-שצ מחובר
                                        צבי-ש
                                        כתב ב נערך לאחרונה על ידי
                                        #21

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

                                        @צבי-ש
                                        @OdedDvir
                                        @dovid
                                        עזרתם לי מאוד
                                        תודה על הכל

                                        שכחתי משהו אחד רק,
                                        אחד הפרמטרים זה הערות והערך שכתוב שם זה ימות (ימות המשיח), תשנה את זה לאקסס או משהו כזה או שתשאיר ריק

                                        תגובה 1 תגובה אחרונה
                                        2
                                        • צבי-שצ צבי-ש התייחס לנושא זה ב
                                        • צבי-שצ צבי-ש התייחס לנושא זה ב
                                        • צבי-שצ מחובר
                                          צבי-שצ מחובר
                                          צבי-ש
                                          כתב ב נערך לאחרונה על ידי
                                          #22

                                          לסגירת הנושא רק-
                                          הנה פירות עמלינו, קצת קימפלתי וערכתי,
                                          תהנו.
                                          https://tchumim.com/topic/13007/

                                          תגובה 1 תגובה אחרונה
                                          2
                                          • צבי-שצ צבי-ש התייחס לנושא זה ב
                                          • חייםיודלביץח חייםיודלביץ התייחס לנושא זה ב
                                          • צבי-שצ צבי-ש התייחס לנושא זה ב
                                          • מומחה באקססמ מומחה באקסס התייחס לנושא זה ב
                                          • צבי-שצ צבי-ש התייחס לנושא זה ב
                                          • dovidD dovid העביר נושא זה מ-תכנות ב-
                                          תגובה
                                          • תגובה כנושא
                                          התחברו כדי לפרסם תגובה
                                          • מהישן לחדש
                                          • מהחדש לישן
                                          • הכי הרבה הצבעות


                                          • 1
                                          • 2
                                          בא תתחבר לדף היומי!
                                          • התחברות

                                          • אין לך חשבון עדיין? הרשמה

                                          • התחברו או הירשמו כדי לחפש.
                                          • פוסט ראשון
                                            פוסט אחרון
                                          0
                                          • דף הבית
                                          • קטגוריות
                                          • פוסטים אחרונים
                                          • משתמשים
                                          • חיפוש
                                          • חוקי הפורום