📄 foxtools.frm
字号:
TabIndex = 12
Top = 1440
Width = 540
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "主文件名"
Height = 180
Left = 225
TabIndex = 11
Top = 1080
Width = 720
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "文件数"
Height = 180
Left = 405
TabIndex = 10
Top = 720
Width = 540
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "版本"
Height = 180
Left = 585
TabIndex = 9
Top = 360
Width = 360
End
End
Begin VB.Frame Frame2
BorderStyle = 0 'None
Height = 90
Left = 9660
TabIndex = 5
Top = 60
Visible = 0 'False
Width = 75
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 3630
Left = 1440
TabIndex = 3
Top = 510
Visible = 0 'False
Width = 2370
Begin VB.Frame Frame10
Caption = "如何处理目录中的文件:"
Height = 1335
Left = 45
TabIndex = 38
Top = 1200
Width = 2175
Begin VB.TextBox Text4
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 270
Left = 1920
TabIndex = 57
Top = 960
Visible = 0 'False
Width = 180
End
Begin VB.CheckBox Check4
Caption = "反编译"
CausesValidation= 0 'False
Enabled = 0 'False
Height = 375
Left = 255
TabIndex = 41
Top = 225
Width = 1695
End
Begin VB.CheckBox Check2
Caption = "修复"
CausesValidation= 0 'False
Enabled = 0 'False
Height = 320
Left = 255
TabIndex = 40
Top = 600
Width = 1695
End
Begin VB.CheckBox Check3
Caption = "既修复又反编译"
CausesValidation= 0 'False
Enabled = 0 'False
Height = 255
Left = 255
TabIndex = 39
Top = 960
Width = 1695
End
End
Begin VB.CommandButton Command2
Caption = "修复和反编译"
Enabled = 0 'False
Height = 360
Left = 30
TabIndex = 37
ToolTipText = "修正选项定表单/类库"
Top = 2655
Width = 2175
End
Begin VB.CommandButton Command13
Caption = "打开一个目录"
Height = 375
Left = 30
TabIndex = 36
ToolTipText = "选择一个目录,以便批处理此目录中的文件"
Top = 645
Visible = 0 'False
Width = 2175
End
Begin VB.CommandButton Command1
Caption = "打开单个文件"
Height = 375
Left = 30
TabIndex = 4
ToolTipText = "选择一个表单或类库以便修正/反编译表单/类库中的代码"
Top = 135
Width = 2175
End
Begin VB.Label Label18
Caption = "此功能适合于vfp5/6/7/8/9"
Height = 210
Left = 75
TabIndex = 56
Top = 3195
Width = 2220
End
End
Begin VB.CommandButton Decomp
Caption = "反编译"
Enabled = 0 'False
Height = 375
Left = 8295
TabIndex = 2
ToolTipText = "反编译一个 VFP .EXE 或 .APP 或 .Fxp 或 .Fox 文件"
Top = 480
Width = 1335
End
Begin VB.CommandButton cmdOpen
Height = 375
Left = 7320
MaskColor = &H00FF0000&
Picture = "foxtools.frx":066E
Style = 1 'Graphical
TabIndex = 7
ToolTipText = "打开一个要反编译的文件"
Top = 465
UseMaskColor = -1 'True
Width = 390
End
Begin VB.ListBox List1
BackColor = &H80000014&
Height = 2985
Left = 225
TabIndex = 6
Top = 945
Visible = 0 'False
Width = 6975
End
Begin MSComctlLib.ListView lstDetails
Height = 3070
Left = 195
TabIndex = 1
ToolTipText = "双击文件名查看文件内容"
Top = 920
Width = 7020
_ExtentX = 12383
_ExtentY = 5424
View = 3
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
Checkboxes = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = 16777215
BorderStyle = 1
Appearance = 1
NumItems = 5
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = " 文件名"
Object.Width = 4058
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = " 文件大小"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "开始偏移"
Object.Width = 2294
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 3
Text = "结束偏移"
Object.Width = 2293
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 4
Text = "类型"
Object.Width = 1235
EndProperty
End
Begin VB.TextBox Text2
BackColor = &H80000014&
Enabled = 0 'False
Height = 340
Left = 240
Locked = -1 'True
TabIndex = 13
Top = 480
Width = 6975
End
Begin MSComctlLib.TabStrip TabStrip1
Height = 4335
Left = 240
TabIndex = 0
TabStop = 0 'False
Top = 60
Width = 9555
_ExtentX = 16854
_ExtentY = 7646
TabWidthStyle = 1
MultiRow = -1 'True
Style = 2
HotTracking = -1 'True
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 5
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "反编译(&U)"
ImageVarType = 2
EndProperty
BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "表单/类库修复(&R)"
ImageVarType = 2
EndProperty
BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "系统设置(&E)"
ImageVarType = 2
EndProperty
BeginProperty Tab4 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "快速查看(&C)"
ImageVarType = 2
EndProperty
BeginProperty Tab5 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "解密与脱壳(&D)"
ImageVarType = 2
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 8880
Top = -720
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 14805982
_Version = 393216
End
Begin VB.Label Label4
Caption = "Label4"
Height = 615
Left = 8640
TabIndex = 31
Top = 960
Width = 1815
End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private ItemClicked As ListItem
Const LVS_EX_FULLROWSELECT = &H20
Const LVM_FIRST = &H1000
Const LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + &H37
Const LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + &H36
Public CurrentFile As String
Public pathth As String
Private Declare Function GetSerialNumber Lib "star.DLL" (ByVal nDrive As Integer, ByVal lpBuffer As String) As Long
Private Sub cmdend_click()
Reset
End
End Sub
Private Sub Check2_Click()
Check3.Value = 0
End Sub
Private Sub Check3_Click()
Check4.Value = 0
Check2.Value = 0
End Sub
Private Sub Check4_Click()
Check3.Value = 0
End Sub
Private Sub Check5_Click()
Dim I As Integer
If Check5.Value = 0 Then
For I = 1 To 255
CMD(I) = I
Next
End If
If Check5.Value = 1 Then
For I = 1 To 255
CMD(I) = I
Next
On Error GoTo Iglore
Dim str1 As String, str2 As String, ftt As String
Dim num1 As Integer, num2 As Integer
ftt = App.path + "\code.txt"
If dir(ftt) <> "" Then
Open App.path + "\code.txt" For Input As #9
Do While Not EOF(9)
Input #9, str1, str2
If Left(Trim(str1), 1) <> ";" And Trim(str1) <> "" And Trim(str2) <> "" Then
num1 = Val(str1)
num2 = Val(str2)
CMD(num1) = num2
CMD(num2) = num1
End If
Loop
Close #9
End If
End If
Iglore:
End Sub
Private Sub cmdopen_click()
Reset
If apppath <> "" Then
Dim DelFileOp As SHFILEOPSTRUCT
Dim result As Long
With DelFileOp
.wFunc = fo_delete
.pFrom = apppath + "~ft_tmp.*"
.fFlags = fof_noconfirmation
End With
result = SHFileOperation(DelFileOp)
apppath = ""
End If
'selfile = OpenFile(Me.hWnd, "要反编译的文件:", "exe;app;dll;fox;fxp;spx;mpx;qpx;prx" & chr(0) & "*.exe;*.dll;*.app;*.fox;*.fxp;*.mpx;*.spx;*.qpx;*.prx" & chr(0), "")
selfile = GetFileOutName("要反编译的文件:", "exe;app;dll;fox;fxp;spx;mpx;qpx;prx" & chr(0) & "*.exe;*.dll;*.app;*.fox;*.fxp;*.mpx;*.spx;*.qpx;*.prx" & chr(0))
Prepaired = False
Me.Refresh
DeCompFilePath = ""
If selfile = "" Then
Exit Sub
Else
CurrentFile = selfile
Dim filelen1 As Integer
filelen1 = Len(selfile)
Dim I As Integer
For I = filelen1 To 0 Step -1
If Mid(selfile, I, 1) = "\" Then
filepath1 = Left(selfile, I)
Exit For
End If
Next
SetCurrentDirectory (filepath1)
Me.MousePointer = 11
Me.StatusBar1.Panels(1).Text = "正在分析文件:" + inpfile
Me.Refresh
lstDetails.ListItems.Clear
If LCase(Right(selfile, 4)) = ".exe" Or LCase(Right(selfile, 4)) = ".app" Or LCase(Right(selfile, 4)) = ".dll" Then
Dim ret As Boolean
isapp = True
ret = getfoxfilea(selfile)
If ret <> True Then
Decomp.Enabled = False
Text2.Text = ""
Prepaired = False
ChkAddDebug.Enabled = False
ChkBuild.Enabled = False
Else
Prepaired = True
Decomp.Enabled = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -