📄 frmmain.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Personal Webserver"
ClientHeight = 4410
ClientLeft = 4875
ClientTop = 4155
ClientWidth = 4260
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4410
ScaleWidth = 4260
Begin VB.PictureBox Picture4
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3135
Left = 240
ScaleHeight = 3135
ScaleWidth = 3735
TabIndex = 21
Top = 480
Visible = 0 'False
Width = 3735
Begin VB.Frame Frame8
BackColor = &H00C0C0C0&
Caption = "Open/Closed"
Height = 790
Left = 240
TabIndex = 22
Top = 240
Width = 3255
Begin VB.CheckBox Check1
BackColor = &H00C0C0C0&
Caption = "Temporarily Closed"
Height = 255
Left = 120
TabIndex = 23
Top = 330
Width = 2175
End
End
Begin VB.Line Line13
BorderColor = &H00000000&
X1 = 3720
X2 = 3720
Y1 = 3120
Y2 = -120
End
Begin VB.Line Line16
BorderColor = &H00000000&
X1 = 0
X2 = 3720
Y1 = 3120
Y2 = 3120
End
Begin VB.Line Line15
BorderColor = &H00FFFFFF&
X1 = 3720
X2 = 0
Y1 = 0
Y2 = 0
End
Begin VB.Line Line14
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 0
Y1 = 0
Y2 = 3120
End
End
Begin VB.CommandButton cmdOK
BackColor = &H00C0C0C0&
Caption = "OK"
Height = 375
Left = 3000
Style = 1 'Graphical
TabIndex = 1
Top = 3960
Width = 1215
End
Begin VB.PictureBox Picture3
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3135
Left = 240
ScaleHeight = 3135
ScaleWidth = 3735
TabIndex = 13
Top = 480
Visible = 0 'False
Width = 3735
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Connections/Requests:"
Height = 1695
Left = 240
TabIndex = 19
Top = 1200
Width = 3255
Begin VB.ListBox List1
Height = 1035
ItemData = "frmMain.frx":0E42
Left = 120
List = "frmMain.frx":0E44
TabIndex = 20
Top = 480
Width = 3015
End
End
Begin VB.Frame Frame5
BackColor = &H00C0C0C0&
Caption = "Logging:"
Height = 735
Left = 240
TabIndex = 14
Top = 240
Width = 3255
Begin VB.CheckBox cheLogging
BackColor = &H00C0C0C0&
Caption = "Logging"
Height = 255
Left = 120
TabIndex = 15
Top = 330
Width = 975
End
End
Begin VB.Line Line9
BorderColor = &H00000000&
X1 = 3720
X2 = 3720
Y1 = 3120
Y2 = -120
End
Begin VB.Line Line10
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 0
Y1 = 0
Y2 = 3120
End
Begin VB.Line Line11
BorderColor = &H00FFFFFF&
X1 = 3720
X2 = 0
Y1 = 0
Y2 = 0
End
Begin VB.Line Line12
BorderColor = &H00000000&
X1 = 0
X2 = 3720
Y1 = 3120
Y2 = 3120
End
End
Begin VB.PictureBox Picture2
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3135
Left = 240
ScaleHeight = 3135
ScaleWidth = 3735
TabIndex = 9
Top = 480
Visible = 0 'False
Width = 3735
Begin VB.Frame Frame4
BackColor = &H00C0C0C0&
Caption = "Active Objects:"
Height = 1095
Left = 240
TabIndex = 10
Top = 240
Width = 3255
Begin VB.CheckBox cheCounter
BackColor = &H00C0C0C0&
Caption = "Enable counter"
Height = 255
Left = 120
TabIndex = 12
Top = 650
Width = 1695
End
Begin VB.CheckBox cheGuest
BackColor = &H00C0C0C0&
Caption = "Enable guestbook"
Height = 255
Left = 120
TabIndex = 11
Top = 330
Width = 1935
End
End
Begin VB.Line Line6
BorderColor = &H00000000&
X1 = 3720
X2 = 3720
Y1 = 3120
Y2 = -120
End
Begin VB.Line Line8
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 0
Y1 = 0
Y2 = 3120
End
Begin VB.Line Line7
BorderColor = &H00FFFFFF&
X1 = 3720
X2 = 0
Y1 = 0
Y2 = 0
End
Begin VB.Line Line5
BorderColor = &H00000000&
X1 = 0
X2 = 3720
Y1 = 3120
Y2 = 3120
End
End
Begin VB.PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3135
Left = 240
ScaleHeight = 3135
ScaleWidth = 3735
TabIndex = 2
Top = 480
Width = 3735
Begin VB.CommandButton Command1
BackColor = &H00C0C0C0&
Caption = "Start"
Height = 375
Left = 2280
Style = 1 'Graphical
TabIndex = 16
Top = 2640
Width = 1215
End
Begin VB.Frame Frame3
BackColor = &H00C0C0C0&
Caption = "Server Options:"
Height = 1095
Left = 240
TabIndex = 6
Top = 1320
Width = 3255
Begin VB.CheckBox cheMinimized
BackColor = &H00C0C0C0&
Caption = "Start minimized"
Height = 255
Left = 120
TabIndex = 8
Top = 330
Width = 1815
End
Begin VB.CheckBox cheActivate
BackColor = &H00C0C0C0&
Caption = "Activate server on start"
Height = 255
Left = 120
TabIndex = 7
Top = 650
Width = 2535
End
End
Begin VB.Frame Frame2
BackColor = &H00C0C0C0&
Caption = "Server Directory:"
Height = 855
Left = 240
TabIndex = 3
Top = 240
Width = 3255
Begin VB.TextBox txtRoot
Height = 285
Left = 120
TabIndex = 5
Top = 360
Width = 2295
End
Begin VB.CommandButton cmdDirChoose
Caption = "..."
Height = 285
Left = 2520
Style = 1 'Graphical
TabIndex = 4
Top = 360
Width = 495
End
End
Begin VB.CommandButton Command2
BackColor = &H00C0C0C0&
Caption = "Stop"
Height = 375
Left = 2280
Style = 1 'Graphical
TabIndex = 17
Top = 2640
Visible = 0 'False
Width = 1215
End
Begin VB.Label Server
AutoSize = -1 'True
BackColor = &H8000000A&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -