I made my service keeping alive with the following:
Dim Notif1 As Notification '以下是让服务器一直运行,不被OS kill的程序段,本程序也许暂时不需要
Notif1.Initialize
Notif1.Icon = "icon"
Notif1.SetInfo("正在运行...",Main)
Notif1.Sound = False
Notif1.Notify(1)
Service.StartForeground(1,Notif1)
But how about httputilise2serve?