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

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

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

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

מתוזמן נעוץ נעול הועבר תכנות
22 פוסטים 6 כותבים 1.1k צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לaaaa ב נערך לאחרונה על ידי
    #12

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

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

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

    aaaaA תגובה 1 תגובה אחרונה
    2
    • צבי-שצ מחובר
      צבי-שצ מחובר
      צבי-ש
      השיב לaaaa ב נערך לאחרונה על ידי
      #13
      פוסט זה נמחק!
      תגובה 1 תגובה אחרונה
      0
      • aaaaA מנותק
        aaaaA מנותק
        aaaa
        השיב לOdedDvir ב נערך לאחרונה על ידי 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
        • OdedDvirO מנותק
          OdedDvirO מנותק
          OdedDvir
          השיב לaaaa ב נערך לאחרונה על ידי
          #15

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

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

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

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

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

          צבי-שצ תגובה 1 תגובה אחרונה
          1
          • צבי-שצ מחובר
            צבי-שצ מחובר
            צבי-ש
            השיב לOdedDvir ב נערך לאחרונה על ידי
            #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
              • צבי-שצ מחובר
                צבי-שצ מחובר
                צבי-ש
                השיב לOdedDvir ב נערך לאחרונה על ידי צבי-ש
                #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
                  • aaaaA מנותק
                    aaaaA מנותק
                    aaaa
                    השיב לצבי-ש ב נערך לאחרונה על ידי
                    #20

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

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

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

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

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

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

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

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

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

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

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