📄 frmmain.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "mswinsck.ocx"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "WatchDog 断接15分钟关机"
ClientHeight = 6555
ClientLeft = 45
ClientTop = 525
ClientWidth = 10845
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6555
ScaleWidth = 10845
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdlog
Caption = "查看日志"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 600
Left = 5640
TabIndex = 69
Top = 120
Width = 1305
End
Begin VB.CommandButton Cmdtest
Caption = "一分钟后重启计算机"
Height = 615
Left = 7020
TabIndex = 68
Top = 120
Visible = 0 'False
Width = 2115
End
Begin VB.Frame FrameBreak
Caption = "有客户端断接(和硬件狗连接则按“自动重启/关机”配置)"
Height = 615
Left = 120
TabIndex = 65
Top = 1560
Width = 10575
Begin VB.OptionButton OptionBreak
Caption = "和硬件狗未连接则不做任何处理"
Height = 255
Index = 1
Left = 3480
TabIndex = 67
Top = 240
Width = 3375
End
Begin VB.OptionButton OptionBreak
Caption = "和硬件狗未连接则重启电脑"
Height = 255
Index = 0
Left = 120
TabIndex = 66
Top = 240
Width = 2775
End
End
Begin VB.CheckBox Checkdog
Caption = "记录硬件狗应答超时"
Height = 255
Left = 1080
TabIndex = 62
Top = 240
Width = 2055
End
Begin VB.Frame Frame7
Caption = "客户端数"
Height = 735
Left = 3360
TabIndex = 60
Top = 0
Width = 975
Begin VB.TextBox TextSum
BackColor = &H80000004&
Height = 285
Left = 120
Locked = -1 'True
TabIndex = 61
Top = 330
Width = 735
End
End
Begin VB.TextBox Text8
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 9960
TabIndex = 54
Text = "1111"
Top = 60
Visible = 0 'False
Width = 735
End
Begin VB.Frame Frame5
Caption = "串口号"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 50
Top = 0
Width = 855
Begin VB.TextBox txtComNo
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 120
MaxLength = 2
TabIndex = 52
Text = "1"
Top = 240
Width = 345
End
Begin MSComCtl2.UpDown updComNo
Height = 315
Left = 480
TabIndex = 51
Top = 240
Width = 240
_ExtentX = 423
_ExtentY = 556
_Version = 393216
Value = 2
BuddyControl = "txtComNo"
BuddyDispid = 196617
OrigLeft = 1620
OrigTop = 180
OrigRight = 1860
OrigBottom = 465
Max = 16
Min = 1
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.Label Label17
AutoSize = -1 'True
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 120
TabIndex = 53
Top = 300
Width = 90
End
End
Begin VB.ListBox lstMsg2
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1860
ItemData = "frmMain.frx":0E42
Left = 5280
List = "frmMain.frx":0E64
TabIndex = 47
Top = 4560
Width = 5415
End
Begin MSWinsockLib.Winsock wskChild
Left = 1080
Top = 2400
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin VB.ListBox lstMsg
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1860
ItemData = "frmMain.frx":0E86
Left = 120
List = "frmMain.frx":0EA8
TabIndex = 41
Top = 4560
Width = 5115
End
Begin VB.Frame Frame6
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 120
TabIndex = 40
Top = 720
Width = 10575
Begin VB.OptionButton OptionRst
Caption = "关机（适合有硬件狗的）"
Height = 255
Index = 0
Left = 3480
TabIndex = 64
Top = 360
Width = 2415
End
Begin VB.OptionButton OptionRst
Caption = "重启（适合无硬件狗的）"
Height = 255
Index = 1
Left = 6000
TabIndex = 63
Top = 360
Width = 2775
End
Begin MSComCtl2.UpDown UpDownStart
Height = 285
Left = 2775
TabIndex = 59
Top = 345
Width = 240
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 7
BuddyControl = "txtStart"
BuddyDispid = 196623
OrigLeft = 1620
OrigTop = 180
OrigRight = 1860
OrigBottom = 465
Max = 23
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox txtStart
Enabled = 0 'False
Height = 285
Left = 2400
MaxLength = 2
TabIndex = 58
Top = 345
Width = 375
End
Begin VB.TextBox txtRestartTime
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 480
MaxLength = 3
TabIndex = 45
Text = "1"
ToolTipText = "最大100天"
Top = 293
Width = 420
End
Begin VB.CheckBox chkRestart
Caption = "自动重启/关机"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 43
Top = 0
Width = 1650
End
Begin MSComCtl2.UpDown updRestart
Height = 315
Left = 960
TabIndex = 44
Top = 300
Width = 240
_ExtentX = 423
_ExtentY = 556
_Version = 393216
Value = 1
BuddyControl = "txtRestartTime"
BuddyDispid = 196624
OrigLeft = 1620
OrigTop = 180
OrigRight = 1860
OrigBottom = 465
Max = 100
Min = 1
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.Label Label19
Caption = " 时间 点"
Height = 255
Left = 1680
TabIndex = 57
Top = 360
Width = 1575
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "间隔 天"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -