-
Notifications
You must be signed in to change notification settings - Fork 1
/
vb6WebServer.frm
45 lines (41 loc) · 1.41 KB
/
vb6WebServer.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
VERSION 5.00
Begin VB.Form frmVb6WebServer
BorderStyle = 3 'Fixed Dialog
Caption = "vb6WebServer"
ClientHeight = 2145
ClientLeft = 45
ClientTop = 330
ClientWidth = 7290
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2145
ScaleWidth = 7290
StartUpPosition = 3 'Windows Default
End
Attribute VB_Name = "frmVb6WebServer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public errorMessage As String
Public serverIpAddress As String
Private Sub Form_Activate()
Print ""
Print " " & App.Title & " is listening on " & serverIpAddress & ":" & vb6WebServerPort ' vb6WebServerIP
If errorMessage > "" Then
ForeColor = vbRed
Print ""
Print " " & errorMessage
ForeColor = vbBlack
End If
Print ""
Print " vb6WebServer directory: " & App.path & "\html\"
Print ""
Print " Please change IP address and port number in ""Main"" subroutine and" & vbCrLf & " modify ""provideHttpReplyContent"" function according to your needs."
End Sub
Private Sub Form_Unload(Cancel As Integer)
' notify Sub Main to stop vb6WebServer after unloading
requestToStopVb6WebServer = True
End Sub