Daten aus passwort geschüzter website auslesen
09.07.2018 10:32:36
Theo
seit vielen Jahren verwende ich untenstehenden Code (ich habe es für Forenzwecke etwas vereinfacht) um Daten aus einer unseren internen Websiten nach Excel zu laden.
Function getProductDetails(strcode As String) As Variant
PC_URL = "http://xy.internal.XY.com/xyclient-1.0/getFpcDetails.do?prodfpc="
'Init cache if necessary
If objCatalog Is Nothing Then
Set objCatalog = CreateObject("Scripting.Dictionary")
End If
'Query cache
If objCatalog.Exists(strcode) Then
getProductDetails = objCatalog.Item(strcode)
Exit Function
End If
'Send request
On Error Resume Next
objReq.Open "GET", PC_URL & strcode, False
objReq.Send Null
On Error GoTo 0
If Len(objReq.responseText) = 0 Then
getProductDetails = Null
Else
getProductDetails = varResult
End If
End Function
Leider wurde jetzt eine etwas unnütze Passwortabfrage vorgeschaltet. Beim manuellen Aufruf reicht es sich einmal einzuloggen. Bei der Abfrage mittels "GET" scheint aber jedesmal auf die Paswort seite umgeleitet zu werden. Jedenfalls bekomme ich angehängten ResponseText zurück: https://www.herber.de/bbs/user/122563.txt
.
Hat jemand eine Idee ob, und wie ich Username und Passwort übergeben kann?
Danke für die Hilfe
Theo
Anzeige