Login Auf einen Web Server
16.07.2020 13:23:41
Rolf
ich habe eine Macro geschrieben mit dem ich eine Webseite öffnen will, das ist der untere Teile der auch Funktioniert.
Im oberen Teil muss ich mich anmelden was auch Funktioniert !
Nur zusammen erscheint der Fehler "Bitte melden Sie sich an"
Sub Test()
On Error Resume Next
Dim objIE
Dim result
Set objIE = CreateObject("MSXML2.ServerXMLHTTP")
Url = "http://xxx.xxx.xxx.xxx:8080/energy-rest/security/user/login/"
objIE.Open "POST", Url, False
objIE.SetRequestHeader "Content-type", "application/json"
objIE.Send ("{""username"":""Password"",""password"":""Password""}")
Rem Senden im "json Format"
result = objIE.ResponseText
MsgBox result
result = ""
REM Unten
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://xxx.xxx.xxx.xxx:8080/energy/de/dashboard.html# _
8bbfab7b09744f25b52e6739d3ad9806"
objIE.Toolbar = False
objIE.StatusBar = False
objIE.MenuBar = False
objIE.Visible = True
objIE.Top = True
End Sub