VB.NET Beispielcode

Imports System
Imports System.IO
Imports System.Net
Imports System.Text


Sub EmailCheck(ByVal Email As String, ByRef credits As Integer, ByRef resulttext As String, ByRef trafficlight As String)


         
        Dim request As WebRequest = WebRequest.Create("https://api.adresslabor.de/v1/de/check")
        
        request.Method = "POST"
        
        Dim postData As String = "apicid=x&apikey=x&product=EMX&email=" & Email
        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)


        request.ContentType = "application/x-www-form-urlencoded"
        request.ContentLength = byteArray.Length
        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArray, 0, byteArray.Length)
        dataStream.Close()
        Dim response As WebResponse = request.GetResponse()

        dataStream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream)
        Dim responseFromServer As String = reader.ReadToEnd()
        reader.Close()
        dataStream.Close()
        response.Close()

        If responseFromServer > "" Then

            Dim Pos As Integer = InStr(responseFromServer, "credits")
            Dim temp As String = Mid(responseFromServer, Pos + 9, 99)
            credits = Val(temp)

            Pos = InStr(responseFromServer, "resulttext")
            temp = Mid(responseFromServer, Pos + 13, 199)
            resulttext = Strings.Left(temp, InStr(temp, Chr(34)) - 1)

            Pos = InStr(responseFromServer, "trafficlight")
            temp = Mid(responseFromServer, Pos + 15, 99)
            trafficlight = Strings.Left(temp, InStr(temp, Chr(34)) - 1)

        End If

End Sub
Um unsere Webseite für Sie optimal zu gestalten und fortlaufend verbessern zu können, verwenden wir Cookies. Durch die weitere Nutzung der Webseite stimmen Sie der Verwendung von Cookies zu. Weiterlesen …