📄 main.frm
字号:
VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Main
BackColor = &H00FFFFFF&
Caption = "剑走偏锋专版自动注入软件 编写 剑走偏锋 QQ：277424542"
ClientHeight = 7110
ClientLeft = 60
ClientTop = 345
ClientWidth = 10260
DrawMode = 14 'Copy Pen
Icon = "Main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7110
ScaleMode = 0 'User
ScaleWidth = 10255.3
StartUpPosition = 2 '屏幕中心
Begin VB.ListBox InjectList
Appearance = 0 'Flat
Height = 390
Left = 960
TabIndex = 2
Top = 1320
Visible = 0 'False
Width = 8055
End
Begin VB.Frame Frame1
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 615
Left = 8400
TabIndex = 50
Top = 1440
Width = 1575
Begin VB.OptionButton MethodPost
BackColor = &H00FFFFFF&
Caption = "Post"
Height = 255
Left = 900
TabIndex = 52
Top = 360
Width = 735
End
Begin VB.OptionButton MethodGet
BackColor = &H00FFFFFF&
Caption = "Get"
Height = 255
Left = 900
TabIndex = 51
Top = 40
Value = -1 'True
Width = 615
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "提交方法:"
Height = 255
Left = 45
TabIndex = 53
Top = 200
Width = 855
End
End
Begin VB.TextBox TmpURL
Appearance = 0 'Flat
Height = 270
Left = 960
TabIndex = 49
Top = 1080
Visible = 0 'False
Width = 180
End
Begin VB.CommandButton btnHelp
Caption = "帮助"
Enabled = 0 'False
Height = 255
Left = 120
TabIndex = 48
Top = 1680
Width = 615
End
Begin VB.CommandButton btnGetField
Caption = "猜解列名"
Enabled = 0 'False
Height = 280
Left = 4320
TabIndex = 20
Top = 3570
Width = 975
End
Begin VB.TextBox TxtSiteAddress
Appearance = 0 'Flat
Height = 270
Left = 120
TabIndex = 47
Top = 8400
Visible = 0 'False
Width = 1695
End
Begin VB.TextBox TxtRecordTable
Appearance = 0 'Flat
Height = 270
Left = 1800
TabIndex = 46
Top = 8400
Visible = 0 'False
Width = 2055
End
Begin VB.TextBox TxtRecordField
Appearance = 0 'Flat
Height = 270
Left = 3840
TabIndex = 45
Top = 8400
Visible = 0 'False
Width = 2295
End
Begin VB.TextBox TxtSelectedValue
Appearance = 0 'Flat
Enabled = 0 'False
Height = 270
Left = 5400
TabIndex = 44
Text = "当前记录提示区"
Top = 6480
Width = 3975
End
Begin VB.CommandButton btnExport
Caption = "导出"
Enabled = 0 'False
Height = 300
Left = 9360
TabIndex = 43
Top = 6465
Width = 615
End
Begin VB.CommandButton btnDelField
Caption = "移除"
Enabled = 0 'False
Height = 300
Left = 4680
TabIndex = 25
Top = 6465
Width = 615
End
Begin VB.TextBox txtFieldName
Appearance = 0 'Flat
Enabled = 0 'False
Height = 270
Left = 2760
TabIndex = 23
Text = "手工输入列名"
Top = 6480
Width = 1215
End
Begin VB.CommandButton btnAddField
Caption = "添加"
Enabled = 0 'False
Height = 300
Left = 4080
TabIndex = 24
Top = 6465
Width = 615
End
Begin VB.TextBox TxtSQL
Appearance = 0 'Flat
Height = 270
Left = 120
TabIndex = 21
Top = 8040
Visible = 0 'False
Width = 10815
End
Begin VB.TextBox txtCondition
Appearance = 0 'Flat
Enabled = 0 'False
Height = 270
Left = 5880
TabIndex = 26
Text = "1=1"
Top = 3580
Width = 2055
End
Begin VB.ListBox RecordList
Appearance = 0 'Flat
Enabled = 0 'False
Height = 2550
ItemData = "Main.frx":2CFA
Left = 5400
List = "Main.frx":2CFC
TabIndex = 28
Top = 3840
Width = 4575
End
Begin VB.ListBox FieldList
Appearance = 0 'Flat
Enabled = 0 'False
Height = 2550
Left = 2760
Style = 1 'Checkbox
TabIndex = 22
Top = 3840
Width = 2535
End
Begin VB.CommandButton btnDelTable
Caption = "移除"
Enabled = 0 'False
Height = 300
Left = 2040
TabIndex = 19
Top = 6465
Width = 615
End
Begin InetCtlsObjects.Inet iNet2
Left = 720
Top = 6720
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin VB.ListBox TableList
Appearance = 0 'Flat
Enabled = 0 'False
Height = 2550
ItemData = "Main.frx":2CFE
Left = 120
List = "Main.frx":2D00
TabIndex = 16
Top = 3840
Width = 2535
End
Begin VB.CommandButton btnAddTable
Caption = "添加"
Enabled = 0 'False
Height = 300
Left = 1440
TabIndex = 18
Top = 6465
Width = 615
End
Begin VB.TextBox txtTableName
Appearance = 0 'Flat
Enabled = 0 'False
Height = 285
Left = 120
TabIndex = 17
Text = "手工输入表名"
Top = 6480
Width = 1215
End
Begin VB.TextBox Help
Appearance = 0 'Flat
BackColor = &H00EBF0F0&
ForeColor = &H00404040&
Height = 615
Left = 4320
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 33
Top = 260
Width = 5655
End
Begin InetCtlsObjects.Inet iNet
Left = 1200
Top = 6720
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin VB.CommandButton btnAnalyse
Caption = "分析"
Enabled = 0 'False
Height = 300
Left = 0
TabIndex = 5
Top = 6720
Visible = 0 'False
Width = 735
End
Begin VB.TextBox TxtKeyword
Appearance = 0 'Flat
Enabled = 0 'False
Height = 615
Left = 1080
TabIndex = 4
Top = 1440
Width = 7215
End
Begin VB.Frame FrameProgress
BackColor = &H00FEF7ED&
Caption = "检测进度:"
Height = 1815
Left = 120
TabIndex = 29
Top = 7200
Width = 11175
Begin VB.Frame Frame2
Height = 615
Left = 0
TabIndex = 59
Top = 120
Width = 9975
Begin ComctlLib.ProgressBar ProgressBar1
Height = 225
Left = 1680
TabIndex = 60
Top = 240
Width = 5745
_ExtentX = 10134
_ExtentY = 397
_Version = 327682
Appearance = 0
End
Begin VB.Label Label12
Caption = "QQ:277424542"
Height = 255
Left = 7680
TabIndex = 62
Top = 240
Width = 1335
End
Begin VB.Label Label11
Caption = "剑走偏锋制作"
Height = 255
Left = 240
TabIndex = 61
Top = 240
Width = 1575
End
End
Begin VB.TextBox Progress
Appearance = 0 'Flat
BackColor = &H00FEF7ED&
BorderStyle = 0 'None
ForeColor = &H0062493C&
Height = 1380
Left = 120
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 30
Top = 360
Width = 10935
End
End
Begin VB.CommandButton btnCheck
Caption = "检测"
Height = 300
Left = 9240
TabIndex = 3
Top = 1080
Width = 735
End
Begin VB.TextBox URL
Appearance = 0 'Flat
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -