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

[איש נחמד]

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

[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")

2. ואם הטוקן צריך להיות דווקא בכותרת, תשתמש בקוד הזה:

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

[ivrtikshoret]

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

[איש נחמד]

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

[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

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

[איש נחמד]

@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

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

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

[איש נחמד]

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