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

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

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

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

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