Sub Handle(req As ServletRequest, resp As ServletResponse)
resp.ContentType = "text/event-stream"
resp.SetHeader("Cache-Control","no-cache")
resp.setHeader("Connection", "keep-alive")
resp.CharacterEncoding = "UTF-8"
resp.Status = 200
Dim os As OutputStream = resp.OutputStream
SendMessage(os,"123","event: open")
SendMessage(os,"123","retry: 5000")
For n = 0 To 100
Dim message As String = "data: The server time is: " & DateTime.Now
Try
If req.IsInitialized Then SendMessage(os, "123", message)
Catch
Log("Disconnected")
Exit
End Try
u.Sleep(5000)
Next
End Sub
Sub SendMessage(os As OutputStream, id As String, message As String)
Dim FinalMessage As String
If id.Length > 0 Then FinalMessage = $"id: ${id}${Chr(10)}"$
FinalMessage = FinalMessage & message & Chr(10) & Chr(10)
os.WriteBytes(FinalMessage.GetBytes("UTF-8"),0,FinalMessage.Length)
os.Flush
End Sub