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