以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 如何写httpserver启动代码?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130826)

--  作者:liujie6215
--  发布时间:2019/2/2 22:29:00
--  [求助] 如何写httpserver启动代码?
如何同时启动这三个ip 如下图:启动代码如何写?


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/2/2 22:29:51编辑过]

--  作者:有点蓝
--  发布时间:2019/2/3 9:15:00
--  
Dim url As String = e.Form.Controls("TextBox1").Text
If url > ""
    \'添加需要监听的URL
    For Each u As String In url.Replace(chr(10),"").Split(chr(13))
        If u > "" Then
            HttpServer.Prefixes.Add(u)
        End If
    Next
    HttpServer.WebPath = "d:\\web"
    HttpServer.Start()
End If

--  作者:liujie6215
--  发布时间:2019/2/3 22:22:00
--  
非常感谢,在春节之际您还能给于答复,感谢!
祝您及你们公司的全体员工新年快乐!工作顺利,2019发发发!!!