客户端代码：
var source = new EventSource("timerDLGL");
source.onmessage = function(event) {
console.log("服务器返回:");
console.log(event);
document.getElementById("count").innerHTML += event.data + "<br>";
};
服务器端：
网络监视器的httpRequest事件：
Case "timerDLGL" ' 登轮管理轮询
e.AsyncExecute = True
Functions.AsyncExecute("timerDLGL",e)
内部函数：timerDLGL
Dim e As RequestEventArgs = Args(0)
Functions.Execute("showMsg2Form1","进入")
e.response.AddHeader("Content-Type" , "text/event-stream")
e.response.AddHeader("Cache-Control", "-1")
Functions.Execute("showMsg2Form1","执行")
Dim postData As Byte() = Encoding.Default.GetBytes("data:需要发送的内容\n\n")
Dim reqStream As System.IO.Stream = e.Response.OutputStream
reqStream.Write(postData, 0, postData.Length)
reqStream.Flush()
e.WriteString("data:发送完毕\n\n")
e.Handled = True '通 知系统异步函数执行完毕,可以关闭信道
Functions.Execute("showMsg2Form1","完成")
Sleep(1000)
客户端调用后， 进入了服务器端， 没有使用do while loop 循环， 内部函数："timerDLGL"，也在不断的调用
Functions.Execute("showMsg2Form1","进入") 这是在服务器的界面上显示进度
服务器上显示内容（循环显示）：
传入e.Path : timerDLGL
进入
执行
完成
传入e.Path : timerDLGL
进入
执行
完成
传入e.Path : timerDLGL
进入
执行
完成
客户端，没有进入
加好友 
发短信
Post By：2022/10/6 8:05:00 [只看该作者]
