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

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

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

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

מתוזמן נעוץ נעול הועבר תכנות
22 פוסטים 6 כותבים 1.2k צפיות 6 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • 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
                              • דף הבית
                              • קטגוריות
                              • פוסטים אחרונים
                              • משתמשים
                              • חיפוש
                              • חוקי הפורום