Hallo Zusammen,
ich versuche gerade verzweifelt die Schnittstelle zum Bundeszentralamt für Steuern aufzubauen damit ich automatisiert UST-ID Nummern auf Gültigkeit abfragen kann.
Die Seite ist diese hier: evatr.bff-online.de/eVatR/xmlrpc/
Ich bekomme leider immer, egal was ich mache, den Doofen Fehler zurück:
Hier mal mein Code: (Die USTID's habe ich durch "*" ersetzt
Kann sich da jemand einen Reim drauf bilden?
Ich versteh es nicht
*Topic verschoben*
ich versuche gerade verzweifelt die Schnittstelle zum Bundeszentralamt für Steuern aufzubauen damit ich automatisiert UST-ID Nummern auf Gültigkeit abfragen kann.
Die Seite ist diese hier: evatr.bff-online.de/eVatR/xmlrpc/
Ich bekomme leider immer, egal was ich mache, den Doofen Fehler zurück:
An error occurred: Die Anfrage wurde abgebrochen: Es konnte kein geschützter SSL/TLS-Kanal erstellt werden
Hier mal mein Code: (Die USTID's habe ich durch "*" ersetzt
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- ServicePointManager.ServerCertificateValidationCallback = AddressOf AcceptAllCertifications
- MsgBox(WRequest("https://evatr.bff-online.de/", "POST", "UstId_1=DE******&UstId_2=FR******&Firmenname=&Ort=&PLZ=&Strasse=&Druck=nein"))
- End Sub
- Public Function AcceptAllCertifications(ByVal sender As Object, ByVal certification As System.Security.Cryptography.X509Certificates.X509Certificate, ByVal chain As System.Security.Cryptography.X509Certificates.X509Chain, ByVal sslPolicyErrors As System.Net.Security.SslPolicyErrors) As Boolean
- Return True
- End Function
- Function WRequest(URL As String, method As String, POSTdata As String) As String
- Dim responseData As String = ""
- Try
- Dim cookieJar As New Net.CookieContainer()
- Dim hwrequest As Net.HttpWebRequest = Net.WebRequest.Create(URL)
- hwrequest.CookieContainer = cookieJar
- hwrequest.Accept = "*/*"
- hwrequest.AllowAutoRedirect = True
- hwrequest.UserAgent = "http_requester/0.1"
- hwrequest.Timeout = 60000
- hwrequest.Method = method
- If hwrequest.Method = "POST" Then
- hwrequest.ContentType = "application/x-www-form-urlencoded"
- Dim encoding As New Text.ASCIIEncoding()
- Dim postByteArray() As Byte = encoding.GetBytes(POSTdata)
- hwrequest.ContentLength = postByteArray.Length
- Dim postStream As IO.Stream = hwrequest.GetRequestStream()
- postStream.Write(postByteArray, 0, postByteArray.Length)
- postStream.Close()
- End If
- Dim hwresponse As Net.HttpWebResponse = hwrequest.GetResponse()
- If hwresponse.StatusCode = Net.HttpStatusCode.OK Then
- Dim responseStream As IO.StreamReader =
- New IO.StreamReader(hwresponse.GetResponseStream())
- responseData = responseStream.ReadToEnd()
- End If
- hwresponse.Close()
- Catch e As Exception
- responseData = "An error occurred: " & e.Message
- End Try
- Return responseData
- End Function
Kann sich da jemand einen Reim drauf bilden?
Ich versteh es nicht
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()