-
Notifications
You must be signed in to change notification settings - Fork 0
/
Form5.frm
240 lines (235 loc) · 7.36 KB
/
Form5.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
VERSION 5.00
Begin VB.Form Form5
BackColor = &H00C0C0FF&
BorderStyle = 3 'Fixed Dialog
Caption = "DyEncryptor - 文件销毁 (请谨慎操作)"
ClientHeight = 3180
ClientLeft = 45
ClientTop = 375
ClientWidth = 7935
BeginProperty Font
Name = "微软雅黑"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Form5.frx":0000
LinkTopic = "Form5"
MaxButton = 0 'False
MinButton = 0 'False
OLEDropMode = 1 'Manual
ScaleHeight = 3180
ScaleWidth = 7935
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "..."
BeginProperty Font
Name = "微软雅黑"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 7320
TabIndex = 5
Top = 840
Width = 495
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "微软雅黑"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2040
TabIndex = 3
Top = 840
Width = 5175
End
Begin VB.Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "---拖入文件到此处---"
BeginProperty Font
Name = "微软雅黑"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3480
OLEDropMode = 1 'Manual
TabIndex = 4
Top = 2040
Width = 2655
End
Begin VB.Shape Shape1
BorderColor = &H80000013&
BorderStyle = 5 'Dash-Dot-Dot
FillColor = &H8000000D&
Height = 1575
Left = 2040
Shape = 4 'Rounded Rectangle
Top = 1440
Width = 5775
End
Begin VB.Image Image1
Height = 1455
Left = 240
Picture = "Form5.frx":0582
Stretch = -1 'True
Top = 1560
Width = 1695
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "请输入文件名："
BeginProperty Font
Name = "微软雅黑"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 2
Top = 840
Width = 2055
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "单击此处开始处理"
BeginProperty Font
Name = "微软雅黑"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 5160
TabIndex = 1
Top = 2520
Width = 2535
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "警告！被销毁的文件将无法通过任何方式恢复！请谨慎操作。"
ForeColor = &H000000FF&
Height = 390
Left = 0
TabIndex = 0
Top = 0
Width = 7695
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim OFN As OPENFILENAME
Dim rtn As String
OFN.lStructSize = Len(OFN)
OFN.hwndOwner = Me.hwnd
OFN.hInstance = App.hInstance
OFN.lpstrFilter = "所有文件(*.*)"
OFN.lpstrFile = Space(254)
OFN.nMaxFile = 255
OFN.lpstrFileTitle = Space(254)
OFN.nMaxFileTitle = 255
OFN.lpstrInitialDir = xnk
OFN.lpstrTitle = "请谨慎选择被处理的文件 - DyEncryptor"
OFN.Flags = 6148
rtn = GetOpenFileName(OFN)
If rtn >= 1 Then
Text1.Text = OFN.lpstrFile
End If
End Sub
Private Sub Form_Load()
Text1.Text = Form1.Text3.Text
Me.BackColor = RGB(255, 230, 230)
Form5.Label1.fontname = Form1.fontname
Form5.Label2.fontname = Form1.fontname
Form5.Label3.fontname = Form1.fontname
Form5.Text1.fontname = Form1.fontname
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
For Each fileg In Data.Files
If Err.Number > 0 Then
MsgB (Err.Description)
Exit Sub
End If
Text1.Text = fileg
Next
End Sub
Private Sub Label2_Click()
If Text1.Text = "" Then
MsgB ("请输入文件完整路径。")
Exit Sub
End If
If Dir(App.Path & "\DyEnc_FileDestroyModule.exe") = "" Then
MsgB ("文件销毁核心组件丢失，无法文件销毁执行任务。")
Exit Sub
End If
Dim tmpa As Integer
tmpa = MsgBox("请再次确认是否开始处理", vbYesNo, "请仔细再次核对 - DyEncryptor加密系统提示")
If tmpa = vbNo Then
Exit Sub
End If
ShellExecute Me.hwnd, "open", "DyEnc_FileDestroyModule.exe", Chr(34) & Text1.Text & Chr(34) & " " & Len(Text1.Text), App.Path, 0
DoEvents
DoEvents
Sleep (100)
DoEvents
Do While exitproc("DyEnc_FileDestroyModule.exe")
DoEvents
Sleep (88)
DoEvents
Loop
DoEvents
Sleep (88)
DoEvents
On Error Resume Next
Kill Text1.Text
MsgB ("文件销毁完毕。")
Unload Me
End Sub
Private Sub Label4_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
For Each fileg In Data.Files
If Err.Number > 0 Then
MsgB (Err.Description)
Exit Sub
End If
Text3.Text = fileg
Next
End Sub