📄 form1.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form frmFxComm
BorderStyle = 0 'None
Caption = " FX通讯解密程序. --- 雅猫搜腥工作室出品.!"
ClientHeight = 8415
ClientLeft = 0
ClientTop = 0
ClientWidth = 8145
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8415
ScaleWidth = 8145
StartUpPosition = 2 '屏幕中心
WhatsThisHelp = -1 'True
Begin FxComm.QQForm QQForm1
Height = 8415
Left = 0
TabIndex = 0
Top = 0
Width = 8145
_ExtentX = 14367
_ExtentY = 14843
Begin MSCommLib.MSComm FxCom
Left = 7680
Top = 360
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.TextBox Pws
Alignment = 2 'Center
BorderStyle = 0 'None
Height = 260
Left = 6500
MaxLength = 8
TabIndex = 34
ToolTipText = "如果显示全为0.则密码为空.!"
Top = 7420
Width = 1245
End
Begin VB.Timer TimRw
Enabled = 0 'False
Interval = 1
Left = 6780
Tag = "0"
Top = 420
End
Begin VB.Timer TmrCom
Enabled = 0 'False
Left = 7200
Top = 420
End
Begin VB.TextBox Timer
Alignment = 2 'Center
BorderStyle = 0 'None
Enabled = 0 'False
Height = 260
Left = 5940
TabIndex = 31
Top = 6525
Width = 1785
End
Begin VB.TextBox Address_2
BorderStyle = 0 'None
Height = 260
Left = 2040
MaxLength = 5
TabIndex = 20
ToolTipText = "数值请勿超出地址范围.!"
Top = 5625
Width = 945
End
Begin FxComm.XPButton Read
Height = 360
Left = 420
TabIndex = 15
ToolTipText = "读取字元件值.请区分好32位和16位.!"
Top = 4500
Width = 1215
_ExtentX = 2143
_ExtentY = 635
Caption = " 读原件值"
Icon = "Form1.frx":06EA
IconMask = "Form1.frx":0A84
End
Begin VB.TextBox WRData
BorderStyle = 0 'None
Height = 260
Left = 6540
TabIndex = 14
ToolTipText = "数据为0则空.!"
Top = 4060
Width = 1125
End
Begin VB.TextBox Address_1
BorderStyle = 0 'None
Height = 260
Left = 5040
MaxLength = 5
TabIndex = 12
ToolTipText = "请输入字元件.如:D.C.T.!"
Top = 4065
Width = 945
End
Begin FxComm.XPCombo Hexad
Height = 315
Left = 420
TabIndex = 5
Top = 4020
Width = 1095
_ExtentX = 1931
_ExtentY = 556
Text = "十进制"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Locked = -1 'True
End
Begin FxComm.XPCombo COMM
Height = 315
Left = 1740
TabIndex = 1
ToolTipText = "设置通讯口.如果出错.请换一个通讯口.!"
Top = 540
Width = 855
_ExtentX = 1508
_ExtentY = 556
Text = "COM1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Locked = -1 'True
End
Begin FxComm.XPCombo Dbits
Height = 315
Left = 1920
TabIndex = 7
Top = 4020
Width = 915
_ExtentX = 1614
_ExtentY = 556
Text = "16"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Locked = -1 'True
End
Begin FxComm.XPCombo Comp_1
Height = 315
Left = 3420
TabIndex = 9
Top = 4020
Width = 1155
_ExtentX = 2037
_ExtentY = 556
Text = "D(寄存器)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Locked = -1 'True
End
Begin FxComm.XPButton WriteD
Height = 360
Left = 2280
TabIndex = 16
ToolTipText = "写字元件值.请区分好32位和16位.!"
Top = 4500
Width = 1335
_ExtentX = 2355
_ExtentY = 635
Caption = " 写元件值"
Icon = "Form1.frx":0E1E
IconMask = "Form1.frx":11B8
End
Begin FxComm.XPButton ClsD
Height = 360
Left = 4200
TabIndex = 17
ToolTipText = "直接清除位元件值.!"
Top = 4500
Width = 1335
_ExtentX = 2355
_ExtentY = 635
Caption = " 清元件值"
Icon = "Form1.frx":1552
IconMask = "Form1.frx":18EC
End
Begin FxComm.XPCombo Comp_2
Height = 315
Left = 420
TabIndex = 18
Top = 5580
Width = 795
_ExtentX = 1402
_ExtentY = 556
Text = "Y"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Locked = -1 'True
End
Begin FxComm.XPButton Set
Height = 360
Left = 3360
TabIndex = 22
ToolTipText = "需要根据程序结合才能有效.!置位时只是一个PLC扫描周期.需要自保电路.!"
Top = 5550
Width = 975
_ExtentX = 1720
_ExtentY = 635
Caption = " 置位"
Icon = "Form1.frx":1C86
IconMask = "Form1.frx":2020
End
Begin FxComm.XPButton RST
Height = 360
Left = 4800
TabIndex = 23
ToolTipText = "需要与PLC程序结合才有效.!"
Top = 5550
Width = 1035
_ExtentX = 1826
_ExtentY = 635
Caption = " 复位"
Icon = "Form1.frx":23BA
IconMask = "Form1.frx":2754
End
Begin FxComm.XPButton XPButton5
Height = 360
Left = 6240
TabIndex = 24
ToolTipText = "能够查询内部元件地址状态.!"
Top = 5520
Width = 975
_ExtentX = 1720
_ExtentY = 635
Caption = " 查询"
Icon = "Form1.frx":2AEE
IconMask = "Form1.frx":3088
End
Begin FxComm.XPButton XPButton6
Height = 360
Left = 2280
TabIndex = 25
ToolTipText = "远程遥控PLC停止运行.!"
Top = 6480
Width = 1335
_ExtentX = 2355
_ExtentY = 635
Caption = " 停止PLC"
Icon = "Form1.frx":3622
IconMask = "Form1.frx":39BC
End
Begin FxComm.XPButton XPButton7
Height = 360
Left = 420
TabIndex = 26
ToolTipText = "远程遥控PLC停止运行.!"
Top = 6480
Width = 1335
_ExtentX = 2355
_ExtentY = 635
Caption = " 运行PLC"
Icon = "Form1.frx":3D56
IconMask = "Form1.frx":42F0
End
Begin FxComm.XPButton XPButton8
Height = 360
Left = 4200
TabIndex = 27
ToolTipText = "读取PLC时钟.时间可能不准.请以实际为准.!"
Top = 6480
Width = 1335
_ExtentX = 2355
_ExtentY = 635
Caption = " 读取时间"
Icon = "Form1.frx":488A
IconMask = "Form1.frx":4C24
End
Begin FxComm.XPButton XPButton10
Height = 360
Left = 2280
TabIndex = 28
ToolTipText = "如果你忘记密码.可以重设PLC密码.!"
Top = 7380
Width = 1335
_ExtentX = 2355
_ExtentY = 635
Caption = " 设置密码"
Icon = "Form1.frx":4FBE
IconMask = "Form1.frx":5358
End
Begin FxComm.XPButton XPButton11
Height = 360
Left = 420
TabIndex = 29
ToolTipText = "读取密码保证100%正确.!如果读出无显示则无密码.!"
Top = 7380
Width = 1335
_ExtentX = 2355
_ExtentY = 635
Caption = " 读取密码"
Icon = "Form1.frx":56F2
IconMask = "Form1.frx":5A8C
End
Begin FxComm.XPButton XPButton12
Height = 360
Left = 4200
TabIndex = 30
ToolTipText = "破解他人PLC密码.直接清除.不损程序.!"
Top = 7380
Width = 1335
_ExtentX = 2355
_ExtentY = 635
Caption = " 清除密码"
Icon = "Form1.frx":5E26
IconMask = "Form1.frx":61C0
End
Begin FxComm.XPCombo OutTim
Height = 315
Left = 3780
TabIndex = 100
Top = 540
Width = 675
_ExtentX = 1191
_ExtentY = 556
Text = "1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Locked = -1 'True
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "秒"
ForeColor = &H00FF0000&
Height = 315
Left = 4560
TabIndex = 102
Top = 600
Width = 255
End
Begin VB.Label Label2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -