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

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

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

פתיחת URL מ-VBA עם שדות POST

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

    בניתי טופס באקסל שמפעיל פקודת VBA שפותחת כתובת URL בדפדפן.
    אני רוצה לשלוח ערכי כניסה (שם משתמש וסיסמה) לדף, אבל הדף אמור לקבל אותם דווקא ב-POST.
    האם זה אפשרי?

    להיות איש נחמד זה מחייב...

    OdedDvirO תגובה 1 תגובה אחרונה
    0
    • איש נחמדא איש נחמד

      בניתי טופס באקסל שמפעיל פקודת VBA שפותחת כתובת URL בדפדפן.
      אני רוצה לשלוח ערכי כניסה (שם משתמש וסיסמה) לדף, אבל הדף אמור לקבל אותם דווקא ב-POST.
      האם זה אפשרי?

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

      @איש-נחמד יש המון דוגמאות ברשת.
      הנה אחת מסטאק מקור

      1. אם פרטי הכניסה צריכים להיות דווקא ב-POST, תוכל לשלוח על ידי הקוד הבא:
      Dim LoginRequest As Object
      Set LoginRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
      LoginRequest.Open "POST", "http://...", False
      LoginRequest.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
      LoginRequest.send ("key1=value1&key2=value2")
      
      1. ואם הטוקן צריך להיות דווקא בכותרת, תשתמש בקוד הזה:
      Dim TCRequestItem As Object
      Set TCRequestItem = CreateObject("WinHttp.WinHttpRequest.5.1")
      TCRequestItem.Open "GET", "http://...", False
      TCRequestItem.setRequestHeader "Content-Type", "application/xml"
      TCRequestItem.setRequestHeader "Accept", "application/xml"
      TCRequestItem.setRequestHeader "Authorization", "Bearer " & token
      TCRequestItem.send
      
      I איש נחמדא 2 תגובות תגובה אחרונה
      1
      • OdedDvirO OdedDvir

        @איש-נחמד יש המון דוגמאות ברשת.
        הנה אחת מסטאק מקור

        1. אם פרטי הכניסה צריכים להיות דווקא ב-POST, תוכל לשלוח על ידי הקוד הבא:
        Dim LoginRequest As Object
        Set LoginRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
        LoginRequest.Open "POST", "http://...", False
        LoginRequest.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
        LoginRequest.send ("key1=value1&key2=value2")
        
        1. ואם הטוקן צריך להיות דווקא בכותרת, תשתמש בקוד הזה:
        Dim TCRequestItem As Object
        Set TCRequestItem = CreateObject("WinHttp.WinHttpRequest.5.1")
        TCRequestItem.Open "GET", "http://...", False
        TCRequestItem.setRequestHeader "Content-Type", "application/xml"
        TCRequestItem.setRequestHeader "Accept", "application/xml"
        TCRequestItem.setRequestHeader "Authorization", "Bearer " & token
        TCRequestItem.send
        
        I מנותק
        I מנותק
        ivrtikshoret
        כתב ב נערך לאחרונה על ידי
        #3

        @odeddvir
        הוא לא רוצה לקבל נתונים מכתובת url הוא רוצה לפתוח url בדפדפן ע"י לחיצה באקסל

        A תגובה 1 תגובה אחרונה
        1
        • OdedDvirO OdedDvir

          @איש-נחמד יש המון דוגמאות ברשת.
          הנה אחת מסטאק מקור

          1. אם פרטי הכניסה צריכים להיות דווקא ב-POST, תוכל לשלוח על ידי הקוד הבא:
          Dim LoginRequest As Object
          Set LoginRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
          LoginRequest.Open "POST", "http://...", False
          LoginRequest.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
          LoginRequest.send ("key1=value1&key2=value2")
          
          1. ואם הטוקן צריך להיות דווקא בכותרת, תשתמש בקוד הזה:
          Dim TCRequestItem As Object
          Set TCRequestItem = CreateObject("WinHttp.WinHttpRequest.5.1")
          TCRequestItem.Open "GET", "http://...", False
          TCRequestItem.setRequestHeader "Content-Type", "application/xml"
          TCRequestItem.setRequestHeader "Accept", "application/xml"
          TCRequestItem.setRequestHeader "Authorization", "Bearer " & token
          TCRequestItem.send
          
          איש נחמדא מנותק
          איש נחמדא מנותק
          איש נחמד
          כתב ב נערך לאחרונה על ידי
          #4

          @odeddvir מתנצל על הניסוח המעט מעורפל, עברתי על כל הפונקציות האלו בסטאק. הבעיה שלי היא כמו שכתב @ivrtikshoret (ערכתי את הפוסט שלי למעלה).

          להיות איש נחמד זה מחייב...

          תגובה 1 תגובה אחרונה
          0
          • I ivrtikshoret

            @odeddvir
            הוא לא רוצה לקבל נתונים מכתובת url הוא רוצה לפתוח url בדפדפן ע"י לחיצה באקסל

            A מנותק
            A מנותק
            avi rz
            כתב ב נערך לאחרונה על ידי
            #5

            @ivrtikshoret אמר בפתיחת URL מ-VBA עם שדות POST:

            הוא לא רוצה לקבל נתונים מכתובת url הוא רוצה לפתוח url בדפדפן ע"י לחיצה באקסל

            אולי זה יוכל לעזור.

            Dim xhttp As MSXML2.XMLHTTP ' make sure you reference to MSXML!
            Dim strCookie As String
            
            Set xHttp = New MSXML2.XMLHTTP
            xHttp.Open "POST", "URLOfYourLoginPage"
            xHttp.setRequestHeader "Cookie", strCookie
            xHttp.send strTicker
            
            

            אם לא, תנסה לחפש עוד אולי כאן

            איש נחמדא תגובה 1 תגובה אחרונה
            0
            • A avi rz

              @ivrtikshoret אמר בפתיחת URL מ-VBA עם שדות POST:

              הוא לא רוצה לקבל נתונים מכתובת url הוא רוצה לפתוח url בדפדפן ע"י לחיצה באקסל

              אולי זה יוכל לעזור.

              Dim xhttp As MSXML2.XMLHTTP ' make sure you reference to MSXML!
              Dim strCookie As String
              
              Set xHttp = New MSXML2.XMLHTTP
              xHttp.Open "POST", "URLOfYourLoginPage"
              xHttp.setRequestHeader "Cookie", strCookie
              xHttp.send strTicker
              
              

              אם לא, תנסה לחפש עוד אולי כאן

              איש נחמדא מנותק
              איש נחמדא מנותק
              איש נחמד
              כתב ב נערך לאחרונה על ידי
              #6

              @avi-rz אמר בפתיחת URL מ-VBA עם שדות POST:

              @ivrtikshoret אמר בפתיחת URL מ-VBA עם שדות POST:

              הוא לא רוצה לקבל נתונים מכתובת url הוא רוצה לפתוח url בדפדפן ע"י לחיצה באקסל

              אולי זה יוכל לעזור.

              Dim xhttp As MSXML2.XMLHTTP ' make sure you reference to MSXML!
              Dim strCookie As String
              
              Set xHttp = New MSXML2.XMLHTTP
              xHttp.Open "POST", "URLOfYourLoginPage"
              xHttp.setRequestHeader "Cookie", strCookie
              xHttp.send strTicker
              
              

              אם לא, תנסה לחפש עוד אולי כאן

              אין לי עניין לדמות פתיחה בדפדפן, היעד שלי הוא לפתוח את הדפדפן במחשב של המשתמש בפועל.

              להיות איש נחמד זה מחייב...

              איש נחמדא תגובה 1 תגובה אחרונה
              0
              • איש נחמדא איש נחמד

                @avi-rz אמר בפתיחת URL מ-VBA עם שדות POST:

                @ivrtikshoret אמר בפתיחת URL מ-VBA עם שדות POST:

                הוא לא רוצה לקבל נתונים מכתובת url הוא רוצה לפתוח url בדפדפן ע"י לחיצה באקסל

                אולי זה יוכל לעזור.

                Dim xhttp As MSXML2.XMLHTTP ' make sure you reference to MSXML!
                Dim strCookie As String
                
                Set xHttp = New MSXML2.XMLHTTP
                xHttp.Open "POST", "URLOfYourLoginPage"
                xHttp.setRequestHeader "Cookie", strCookie
                xHttp.send strTicker
                
                

                אם לא, תנסה לחפש עוד אולי כאן

                אין לי עניין לדמות פתיחה בדפדפן, היעד שלי הוא לפתוח את הדפדפן במחשב של המשתמש בפועל.

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

                פתרתי את הבעיה באופן עקיף, ע"י יצירת HTML עם טופס עם שדות נסתרים + סקריפט JS ששולח אותו בפוסט באופן אוטומטי. השדות הנסתרים מקבלים ערכים דינמיים מהפונקציה המפעילה.

                להיות איש נחמד זה מחייב...

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


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

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

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