Hebben jullie een voorbeeldcode voor de API?

Private Sub Online()

Dim webRequest As HttpWebRequest

Dim webResponse As HttpWebResponse

Dim ioReader As StreamReader

Dim xmlResponse As XmlDocument

Dim strResults As String

Dim strLink As String

Try

strLink = “https://accept.mailinglijst.nl/api/?key=[key]&action=[action]”

webRequest = DirectCast(System.Net.WebRequest.Create(strLink), HttpWebRequest)

webResponse = DirectCast(webRequest.GetResponse(), HttpWebResponse)

ioReader = New StreamReader(webResponse.GetResponseStream())

strResults = ioReader.ReadToEnd()

Me.litResult.Text = strResults

‘Do something with response from API

Catch ex As Exception

‘Catch exception

End Try

End Sub

Private Sub PostBody()

Dim strUrl As String

Dim webResp As HttpWebResponse

Dim webReq As HttpWebRequest

Dim ioWriter As StreamWriter

Dim ioReader As StreamReader

Dim strResponse As String

Try

strUrl = “https://accept.mailinglijst.nl/api/?key=[key]&action=BODYPOST&s=[onderwerpregel]&n=[naam]&d=[omschrijving]&o=[eigenaar]”

webReq = WebRequest.Create(strUrl)

webReq.Method = “POST”

webReq.ContentType = “text/html;charset=””iso-8859-15″””

webReq.Accept = “text/html”

ioWriter = New StreamWriter(webReq.GetRequestStream())

ioWriter.Write(txtBody.Text)

ioWriter.Close()

webResp = webReq.GetResponse()

ioReader = New StreamReader(webResp.GetResponseStream())

strResponse = ioReader.ReadToEnd()

‘ Do something with response from API

Catch ex As Exception

‘ Catch exception

End Try

End Sub