以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于HttpServer.Start()  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189142)

--  作者:ygg8310
--  发布时间:2023/11/13 19:51:00
--  关于HttpServer.Start()
如何判断HttpServer.Start()是否已经开启?
--  作者:有点蓝
--  发布时间:2023/11/13 20:03:00
--  
http://www.foxtable.com/mobilehelp/topics/0143.htm
--  作者:ygg8310
--  发布时间:2023/11/13 22:10:00
--  
老师,还有一个疑问,判断http开启了哪些端口如何判断
--  作者:有点蓝
--  发布时间:2023/11/13 22:23:00
--  
HttpServer.Prefixes.Add("http://*/")
HttpServer.Prefixes.Add("http://*:9090/")

For Each s As String In HttpServer.Prefixes
    Dim ss() As String = s.Split(":")
    If ss.Length = 2 Then
        MsgBox("80")
    Else
        MsgBox(ss(2).Split("/")(0))
    End If 
    
Next