About netbox2.8 Port

Source: Internet
Author: User
In the past few days, the company is engaged in a standalone exercise edition (ASP Program In order to encapsulate the program, netbox2.8. over the past years of experience, the pressure on technical support is quite high. we set a port by ourselves. When we get to the user, this port may have been occupied. the boss talked to me last week and asked me to solve the problem this week, so that this problem will not occur in this year's standalone practice version. as netbox has stopped development, there is no technical support. so I only studied it myself. it is found that the netbox language is very similar to VB. It can be said that it is the VB syntax, and netbox's own object is added. after yesterday's solution, I optimized it again today. I think there should be no problems. sent here to help colleagues who have been or are still suffering from this problem.
If you think or find other problems, you can leave a message to solve them together.

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 "

Sub createport () Sub Createport ()
SERVERPORT =   0
Do   While (SERVERPORT < 1025   Or SERVERPORT > 65535 )
If Httpd. Create ( "" , 0 ) =   0 Then
If Httpd. localport >   1024   And Httpd. localport <   65535   Then
SERVERPORT = Httpd. localport
End   If
End   If
Loop
End sub

Sub onservicestart () Sub Onservicestart ()
Set Service =   Shell . Service
If Httpd. Create ( "" , SERVERPORT) =   0   Then
If B _createport =   True   Then
Dim B _saveconfig
B _saveconfig =   Shell . Msgbox ( " The exercise system detects the currently allocated port [ "   & SERVERPORT &   " ] It Can Be Used. Do you want to save it? " , " Save Port " , 33 )
If B _saveconfig =   1   Then
Netbox. config ( " Server " , " Port " ) = SERVERPORT
End   If
End   If
Set Host = Httpd. addhost ( "" , " \ " )
Set Host1 = Host. addfolder ( " Webexam " , " \ Webexam " )
Host1.enablescript =   True
Host1.adddefault " Default. asp "
Host1.adddefault " Default.htm "
Httpd. Start
Shell . Execute " "" "   & Netbox. sysinfo ( " Folder_programfiles " ) &   " \ Internet Explorer \ iexplore. EXE "" http: // localhost: " & SERVERPORT & " /Your app "
Else
Shell . Msgbox " The exercise system detects the port to be used [ "   & SERVERPORT &   " ] The port is occupied by another program. The system will reassign the port! Click OK to continue " , " Prompt information " , 64
B _createport =   True
Createport
Onservicestart
End   If
End sub

Sub onservicestop () SubOnservicestop ()
Httpd. Close
Shell. Halt0
Shell. Quit0
End sub

Sub onservicepause () SubOnservicepause ()
Httpd. Stop
End sub

Sub onserviceresume () SubOnserviceresume ()
Httpd. Start
End sub

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.