在netbox里,main.box怎么配置才会自动打开浏览器,而且要全屏最大化的.

[丨龙歌丨]

main.box
-----
Dim httpd
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"
'---------------------- Service Event ---------------------
Sub OnServiceStart()
Set httpd = CreateObject("NetBox.HttpServer")
If httpd.Create("", 80) = 0 Then
Set host = httpd.AddHost("", "\wwwroot")
host.EnableScript = true
host.AddDefault "default.asp"
host.AddDefault "default.htm"

'---------------------- 第一种 ---------------------
Shell.Execute """C:\Program Files\Internet Explorer\IEXPLORE.EXE"" http://localhost"

'---------------------- 第二种 ---------------------
　　Set htWin= CreateObject("NetBox.HtmlWindow")
　　htWin.ContextMenu=false
　　htWin.Width=1024
　　htWin.Height=768
　　htWin.Title="测试"
　　htWin.scrollbar=false
　　htWin.Open "http://localhost"
　　htWin.ShowDialog

httpd.Start
else
Shell.Quit 0
end if
End Sub
Sub OnServiceStop()
httpd.Close
End Sub
Sub OnServicePause()
httpd.Stop
End Sub
Sub OnServiceResume()
httpd.Start
End Sub

现在是怎么把打开的窗口全屏、最大化.配置如何。

[丨龙歌丨]

没有此属性:htWin.WindowState = vbMaximized
没办法只好用下面的方法.

'---------------------- 第二种 ---------------------
　　Set htWin= CreateObject("NetBox.HtmlWindow")
　　htWin.ContextMenu=false
htWin.top= 0
htWin.left = 0
htWin.height = screen.height
htWin.width = screen.width　　
htWin.Title="测试"
　　htWin.scrollbar=false
　　htWin.Open "http://localhost"
　　htWin.ShowDialog

[mike_24]

顶

[kuangerren]

这样子也好像不行哦。