给钱求NETBOX技术支持

来源：百度知道 编辑：UC知道 时间：2024/05/23 04:57:41
帮我写段NETBOX代码好吗？
就是跟QQ这样。能最小到任务栏。双击图标。又能显示窗口。

最小化后这个程序还在运行ASP的内容。

给100块钱。够不？有没有人帮忙。

Dim httpd

Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"

'---------------------- Service Event ---------------------

Sub OnServiceStart()
Set httpd = NetBox.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"
host.AddDefault "index.asp"
host.AddDefault "index.htm"

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