关于NetBox2.8端口问题

这几天公司在搞单机练习版(asp程序),为了封装程序,使用的是netbox2.8.以往年的经验,在端口问题上给技术支持带的压力挺大.我们自己定一个端口,到了用户那里,可能该端口已被占用.上周BOSS找我谈话,让我本周把该问题解决掉,争取今年的单机练习版中不再出现此问题.由于Netbox已经停止开发了,没有任何的技术支持.所以只有自己去研究了.发现netbox的语言,和VB极为类似,可以说就是VB的语法,加入了Netbox自己的对象而已.昨天解决了以后今天又优化了一下,我想应该是没有任何问题了.发在这里,方便那里曾经或者还正在被此问题困扰的同行们.
如果你认为或者发现了其它问题,可以在后面留言,我们一起来解决它.

Dim httpd
dim Path 
Dim ServerPort
Dim b_createport

path =NetBox.ApplicationPath
NetBox.ConfigFile = path & "main.ini"
ServerPort = netBox.Config("Server","Port")

Set httpd = NetBox.CreateObject("NetBox.HttpServer")
IF ServerPort="" THen
    ServerPort = 80
    netBox.Config("Server","Port") = ServerPort
End If

Shell.Service.Icon = path & netBox.Config("config","ICON")
Shell.Service.RunService "NBWeb", "NetBox Web Server", "NetBox Http Server Sample"