Sub Changes
Dim job As HttpJob
job.Initialize("", Me)
job.Password = "password"
job.Username = "admin"
job.Download("http://192.168.1.11:5984/messages/_changes?feed=continuous")
Wait For (job) JobDone(job As HttpJob)
If job.Success Then
Log(job.GetString)
job.Release
Else
Log(job.ErrorMessage)
job.Release
End If
End Sub