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

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. שליחת ערכים בHTTP (POST) בקוד VBA | ערכים שמגיעים מטופס.

שליחת ערכים בHTTP (POST) בקוד VBA | ערכים שמגיעים מטופס.

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

    בתמצות השאלה.
    האיך אפשרי לשלב בקישור HTTP נתונים שקיבלתי בטופס כך שהקישור ישתנה לפי הנתונים (למשל אם מהטופס קיבלתי מהשדה domain את המילה com לשלבו אחרי זה בבקשת HTTP לקמן מבלי לכתוב COM אלא להשתמש במשתנה domain.

    או באריכות השאלה.

    אחרי שסוכם שם שהדרך הנכונה היא לשלוח כך :

    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
    

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

    כמובן שהכנתי טופס עם שדות.
    ניסתי לעשות משהו כזה.

    'בדיקה האם כל הערכים קיימים , אם לא מחזיר הודעת שגיאה'
    
    If IsNull(mosad) Or IsNull(CardNumber) Or IsNull(Tokef) Or IsNull(Amount) Or IsNull(Tashloumim) Or IsNull(CVV) Or IsNull(Zeout) Then MsgBox "משהו לא מלא", vbInformation, "שגיאה": Exit Sub
    'הבקשה לנדרים פלוס'
    Dim XMLHTTP
    Dim result As String
    Dim argumentString
    argumentString = "Mosad=(Mosad)&ClientName=&Adresse=&Phone=&ClientId=&CardNumber=(CardNumber)&Tokef=(Tokef)&Amount=(Amount)&Tashloumim=(Tashloumim)&Groupe=&Avour=Yemot&Token=&CVV=(CVV)&Zeout=(Zeout)&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
    'מחזיר את הפלט שהתקבל מנדרים פלוס'
    MsgBox result, vbInformation, "חזר מנדרים"
    

    כאן בדוגמא ניסיתי להכניס לסוגריים את מה שקיבלתי מהטופס בתקווה אולי זה יעזור לי אבל זה עדיין כותב שגיאה.

    כיף לגלות דברים חדשים.
    חוק ה-50-50-90: בכל פעם שיש סיכוי של 50-50 שמשהו יעבוד, יש סיכוי של 90 אחוז שהוא לא. מקור

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

      @צבי-ש אמר בשליחת ערכים בHTTP (POST) בקוד VBA | ערכים שמגיעים מטופס.:

      בתמצות השאלה.
      האיך אפשרי לשלב בקישור HTTP נתונים שקיבלתי בטופס כך שהקישור ישתנה לפי הנתונים (למשל אם מהטופס קיבלתי מהשדה domain את המילה com לשלבו אחרי זה בבקשת HTTP לקמן מבלי לכתוב COM אלא להשתמש במשתנה domain.

      או באריכות השאלה.

      אחרי שסוכם שם שהדרך הנכונה היא לשלוח כך :

      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
      

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

      כמובן שהכנתי טופס עם שדות.
      ניסתי לעשות משהו כזה.

      'בדיקה האם כל הערכים קיימים , אם לא מחזיר הודעת שגיאה'
      
      If IsNull(mosad) Or IsNull(CardNumber) Or IsNull(Tokef) Or IsNull(Amount) Or IsNull(Tashloumim) Or IsNull(CVV) Or IsNull(Zeout) Then MsgBox "משהו לא מלא", vbInformation, "שגיאה": Exit Sub
      'הבקשה לנדרים פלוס'
      Dim XMLHTTP
      Dim result As String
      Dim argumentString
      argumentString = "Mosad=(Mosad)&ClientName=&Adresse=&Phone=&ClientId=&CardNumber=(CardNumber)&Tokef=(Tokef)&Amount=(Amount)&Tashloumim=(Tashloumim)&Groupe=&Avour=Yemot&Token=&CVV=(CVV)&Zeout=(Zeout)&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
      'מחזיר את הפלט שהתקבל מנדרים פלוס'
      MsgBox result, vbInformation, "חזר מנדרים"
      

      כאן בדוגמא ניסיתי להכניס לסוגריים את מה שקיבלתי מהטופס בתקווה אולי זה יעזור לי אבל זה עדיין כותב שגיאה.

      הסתדרתי,
      לבאים השואלים
      מה שצריך לעשות זה להפסיק את המחרוזת לעשות רווח & משתנה רווח & רווח ולהמשיך את המחרוזת.
      למשל ככה-
      6c4610b2-7666-43b1-95a9-13af83e3fa02-image.png .

      בהצלחה.

      כיף לגלות דברים חדשים.
      חוק ה-50-50-90: בכל פעם שיש סיכוי של 50-50 שמשהו יעבוד, יש סיכוי של 90 אחוז שהוא לא. מקור

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

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

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

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