-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathForm6.frm
237 lines (233 loc) · 7.19 KB
/
Form6.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
VERSION 5.00
Begin VB.Form Form6
BackColor = &H00FFFFFF&
Caption = "收集错误"
ClientHeight = 6765
ClientLeft = 2280
ClientTop = 2955
ClientWidth = 8760
LinkTopic = "Form6"
MaxButton = 0 'False
ScaleHeight = 6765
ScaleWidth = 8760
Begin VB.TextBox Text6
Height = 975
Left = 9120
TabIndex = 7
Top = 4440
Width = 2535
End
Begin VB.TextBox Text5
Height = 975
Left = 9120
TabIndex = 6
Top = 3360
Width = 2535
End
Begin VB.TextBox Text4
Height = 975
Left = 9120
TabIndex = 5
Top = 2280
Width = 2535
End
Begin VB.TextBox Text3
Height = 735
Left = 9120
TabIndex = 4
Top = 1440
Width = 2535
End
Begin VB.TextBox Text2
Height = 975
Left = 9120
TabIndex = 3
Top = 240
Width = 2535
End
Begin VB.CommandButton Command2
Caption = "打开“收集错误.txt”"
Enabled = 0 'False
Height = 495
Left = 6600
TabIndex = 2
Top = 6120
Width = 2055
End
Begin VB.CommandButton Command1
Appearance = 0 'Flat
BackColor = &H00C0C0FF&
Caption = "收集错误"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5160
Style = 1 'Graphical
TabIndex = 1
Top = 6120
Width = 1335
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BorderStyle = 0 'None
BeginProperty Font
Name = "微软雅黑"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 0
Text = "作者邮箱：1483544237@qq.com"
Top = 6120
Width = 3735
End
Begin VB.Label Label3
BackColor = &H00FFFFFF&
Caption = "查看详细教程"
BeginProperty Font
Name = "微软雅黑"
Size = 12
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 435
Left = 6485
TabIndex = 10
Top = 200
Width = 1560
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "微软雅黑"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 285
Left = 5280
TabIndex = 9
Top = 5520
Width = 60
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "哟！隐藏的界面被你发现了"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 9240
TabIndex = 8
Top = 5760
Width = 2655
End
Begin VB.Image Image1
Height = 5655
Left = 120
Picture = "Form6.frx":0000
Stretch = -1 'True
Top = 120
Width = 8460
End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Label2 = "正在收集信息，请稍后..."
Shell "cmd /c adb shell getprop ro.product.model" & ">" & "d:\型号.txt"
Shell "cmd /c adb shell getprop ro.build.version.release" & ">" & "d:\版本.txt"
Shell "cmd /c tasklist" & ">" & "d:\任务.txt"
Dim Savetime As Single
Savetime = Timer
While Timer < Savetime + 1
DoEvents
Wend
Dim strFile As String
Dim intFile As Integer
Dim strData As String
strFile = "d:\型号.txt"
intFile = FreeFile
Open strFile For Input As intFile
strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print strData
Close intFile
Text2.Text = strData
Dim sData As String
strFile = "d:\版本.txt"
intFile = FreeFile
Open strFile For Input As intFile
sData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print sData
Close intFile
Text2.Text = Text2.Text + vbCrLf + sData
Dim stData As String
strFile = "d:\任务.txt"
intFile = FreeFile
Open strFile For Input As intFile
stData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)
Debug.Print stData
Close intFile
Text2.Text = Text2.Text + vbCrLf + stData
Text3.Text = Date
Text4.Text = VBA.Environ("computername")
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem In colItems
DoEvents
strosversion = objItem.version
Next
strosversion = Left(strosversion, 3)
Text5.Text = strosversion
Text6.Text = App.Path
Text2.Text = Text2.Text + vbCrLf + Text3.Text + vbCrLf + Text4.Text + vbCrLf + Text5.Text + vbCrLf + Text6.Text + vbCrLf + Form1.Text1
Dim strs As String
If Dir("d:\收集错误.txt") <> "" Then Kill "d:\收集错误.txt"
Open "d:\收集错误.txt" For Append As #1
strs = Text2.Text
Write #1, strs
Close #1
Kill "d:\任务.txt"
Kill "d:\型号.txt"
Kill "d:\版本.txt"
MsgBox "收集完成！"
Command2.Enabled = True
Label2 = ""
End Sub
Private Sub Command2_Click()
Shell "explorer d:\收集错误.txt"
End Sub
Private Sub Label3_Click()
Shell "explorer https://v.xiumi.us/board/v5/3JD5p/203664485"
End Sub