Új hozzászólás Aktív témák

• #26895 fluxion őstag fluxion #26893

  Új Válasz 2015-05-14 10:15:01 #26895

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  fluxion

  őstag

  válasz fluxion #26893 üzenetére

  A baj az volt, hogy nem tároltam a cookie-t bejelentkezés után és így nem is továbbítottam a letöltéshez.
  Itt a teljes kód:

  Sub FileDownload()
  Dim strCookie As String, strResponse As String, _
  strUrl As String
  
  FilePath = "A fájl letöltési útvonala. Pl.:C:\Users\Attila\Documents\arlista.csv"
  '
  Dim xobj As Object
  '
  Set xobj = CreateObject("WinHTTP.WinHTTPrequest.5.1")
  '
  strUrl = "[B]Az url ahol bejelentkezel az oldalra...[/B]"
  
  xobj.Open "POST", strUrl, False
  xobj.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
  xobj.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  
  xobj.Send "A POST data, amit pl. HTTP Live Headerre tudsz kiolvasni."
  '
  strCookie = xobj.GetResponseHeader("Set-Cookie")
  strResponse = xobj.ResponseText
  
  '
  ' now try to get confidential contents:
  '
  strUrl = "Ide jön a fájl elérési útja..."
  xobj.Open "GET", strUrl, False
  '
  ' these 2 instructions are determining:
  '
  xobj.SetRequestHeader "Connection", "keep-alive"
  xobj.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
  '
  xobj.SetRequestHeader "Cookie", strCookie
  xobj.Send
  '
  'strCookie = xobj.GetResponseHeader("Set-Cookie")
  strResponse = xobj.ResponseText
  
  
  'Save the file
  FileNum = FreeFile
  Open FilePath For Binary Access Write As #FileNum
  Put #FileNum, 1, strResponse
  Close #FileNum
  
  MsgBox "File has been saved!", vbInformation, "Success"
  
  End Sub

Új hozzászólás Aktív témák