< návrat zpět

MS Excel


Téma: volání webové služby vrací encryption error rss

Zaslal/a 10.1.2023 7:43

Zdravím, mám macro v excelu ve kterém volám webovou službu. V odpovědi se mi mi však vrací chyba encryption error. Mohl by mi prosím někdo poradit? Děkuji

Public Sub httplogin()
 
Dim result As String
Dim xmlDoc As Object, post As Object
Dim sEnv As String
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
Dim HTTPRequest As WinHttp.WinHttpRequest
Set HTTPRequest = New WinHttp.WinHttpRequest
sEnv = sEnv & "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
sEnv = "<?xml version=""1.0"" encoding=""utf-8""?>"
sEnv = sEnv & "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
sEnv = sEnv & "<soap:Body>"
sEnv = sEnv & "<logUser xmlns=""http://www.webservice.com/Sws/"">"
sEnv = sEnv & "<LOGIN>user</LOGIN>"
sEnv = sEnv & "<PASSWORD>pass</PASSWORD>"
sEnv = sEnv & "</logUser>"
sEnv = sEnv & "</soap:Body>"
sEnv = sEnv & "</soap:Envelope>"
 
With HTTPRequest
.Open "POST", "http://server.com/webservice.asmx?WSDL&op=logUser", False
.SetRequestHeader "Content-Type", "text/xml; charset=utf-8"
.SetRequestHeader "Upgrade-Insecure-Requests", "1"
.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
.send sEnv
Debug.Print .responseText
 
End With
End Sub

Zaslat odpověď >

Nebyly zaslány žádné odpovědi.

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Tlac s farebneho

ivana1 • 19.6. 22:16

GRAF teploty

Scraper • 18.6. 15:34

Vyhledat dnešní datum když je číslo jako text

veny • 17.6. 13:56

Vyhledat dnešní datum když je číslo jako text

Ontik • 17.6. 12:07

Zaokrouhlování

lubo • 17.6. 12:03

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52