Dim httpd Dim portno Set httpd = NetBox.CreateObject("NetBox.HttpServer") portno=8107 Do While (httpd.Create("", portno) <> 0) And (portno<65535) portno=portno+1 Loop Set host = httpd.AddHost("","\wwwroot") host.EnableScript = true host.AddDefault "default.asp" host.AddDefault "default.htm" host.AddDefault "index.asp" host.AddDefault "index.htm" httpd.Start Set htWin= CreateObject("NetBox.HtmlWindow") htWin.Open "http://127.0.0.1:" & portno htwin.MaximizeBox=false htwin.MaximizeBox=false htWin.Width=1 htWin.Height=1 htWin.TopMost=false htWin.Scrollbar=false htWin.resizable=false htWin.Title="wwwroot" htWin.ShowDialog Set htWin=nothing
举报
本版积分规则 发表回复 回帖后跳转到最后一页
手机版|小黑屋|免费吧论坛
GMT+8, 2025-3-14 19:48 , Processed in 0.026037 second(s), 5 queries , Redis On.
Powered by Discuz! X3.5
© 2001-2024 Discuz! Team.