📄 form1.frm
字号:
Left = 48
TabIndex = 16
Top = 6144
Width = 1500
End
Begin VB.CommandButton Command1
Caption = "Search Now"
Default = -1 'True
Height = 348
Left = 1584
TabIndex = 4
Top = 624
Width = 1308
End
Begin VB.OptionButton SearchCurrent
Caption = "Search Current User"
Height = 204
Left = 144
TabIndex = 7
Top = 1920
Width = 2700
End
Begin VB.OptionButton SearchAll
Caption = "Search All Users"
Height = 204
Left = 144
TabIndex = 6
Top = 1008
Value = -1 'True
Width = 2748
End
Begin VB.TextBox Text1
Height = 288
Left = 480
TabIndex = 3
Top = 288
Width = 2412
End
Begin VB.Frame Frame3
BorderStyle = 0 'None
Height = 780
Left = 96
TabIndex = 8
Top = 2160
Visible = 0 'False
Width = 2844
Begin VB.OptionButton Option8
Caption = "Search Everything"
Height = 204
Left = 480
TabIndex = 11
Top = 0
Value = -1 'True
Width = 2268
End
Begin VB.OptionButton Option7
Caption = "Search File Size"
Height = 192
Left = 480
TabIndex = 10
Top = 240
Width = 2268
End
Begin VB.OptionButton Option6
Caption = "Search File Name"
Height = 204
Left = 480
TabIndex = 9
Top = 480
Width = 2268
End
End
Begin VB.Frame Frame8
Caption = "Options"
Height = 3660
Left = 48
TabIndex = 43
Top = 2832
Width = 2892
Begin VB.CommandButton Command9
Caption = "Open Downloaded Files"
Height = 348
Left = 912
TabIndex = 54
Top = 1728
Width = 1932
End
Begin VB.CheckBox Check3
Caption = "Ask to update cache file in Single User mode"
Height = 492
Left = 432
TabIndex = 53
Top = 720
Value = 1 'Checked
Width = 2364
End
Begin RichTextLib.RichTextBox Loader
Height = 1020
Left = -5000
TabIndex = 52
Top = 1824
Width = 972
_ExtentX = 1715
_ExtentY = 1799
_Version = 393217
Enabled = -1 'True
TextRTF = $"Form1.frx":0648
End
Begin RichTextLib.RichTextBox SaveBuffer
Height = 1980
Left = -5000
TabIndex = 51
Top = 1104
Width = 2604
_ExtentX = 4593
_ExtentY = 3493
_Version = 393217
Enabled = -1 'True
TextRTF = $"Form1.frx":0702
End
Begin VB.CommandButton Command8
Caption = "Clear Cache"
Height = 348
Left = 1632
TabIndex = 49
Top = 1344
Width = 1212
End
Begin VB.CheckBox Check2
Caption = "Enable Single-User Cache"
Height = 192
Left = 96
TabIndex = 45
Top = 480
Value = 1 'Checked
Width = 2172
End
Begin VB.CheckBox Check1
Caption = "Enable Search Cache"
Height = 204
Left = 96
TabIndex = 44
Top = 240
Value = 1 'Checked
Width = 2076
End
Begin VB.FileListBox File1
Height = 264
Left = -5000
TabIndex = 50
Top = 1344
Visible = 0 'False
Width = 1116
End
End
Begin VB.Image Image1
Height = 444
Left = 48
Picture = "Form1.frx":07BC
Stretch = -1 'True
Top = 288
Width = 396
End
End
Begin VB.Menu mnuFile
Caption = "File"
Begin VB.Menu mnuClear
Caption = "Clear All"
End
Begin VB.Menu Sep
Caption = "-"
End
Begin VB.Menu mnuOpen
Caption = "Open User List"
Enabled = 0 'False
Shortcut = ^O
End
Begin VB.Menu mnuSave
Caption = "Save User List"
Enabled = 0 'False
Shortcut = ^S
End
Begin VB.Menu mnuSaveAs
Caption = "Save User List As..."
Enabled = 0 'False
End
Begin VB.Menu mnuSep
Caption = "-"
End
Begin VB.Menu mnuOpenDownloaded
Caption = "Open Downloaded Files"
End
Begin VB.Menu Sep1
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "Exit"
Shortcut = ^Q
End
End
Begin VB.Menu mnuSearch
Caption = "Search"
Begin VB.Menu mnuCurrent
Caption = "Current User"
Begin VB.Menu mnuCurFile
Caption = "For Filename Containing..."
End
Begin VB.Menu mnuCurSize
Caption = "For Filesize Containing..."
End
Begin VB.Menu Sep2
Caption = "-"
End
Begin VB.Menu mnuCurAll
Caption = "All Fields"
End
End
Begin VB.Menu mnuSearchAll
Caption = "All Users"
Begin VB.Menu mnuAllFiles
Caption = "For Filename Containing..."
End
Begin VB.Menu mnuAllSizes
Caption = "For Filesize Containing..."
End
Begin VB.Menu Sep3
Caption = "-"
End
Begin VB.Menu mnuAllAll
Caption = "All Fields"
End
End
Begin VB.Menu Sep4
Caption = "-"
End
Begin VB.Menu mnuUserSearch
Caption = "Search For A User"
End
End
Begin VB.Menu mnuMisc
Caption = "Misc"
Begin VB.Menu mnuClearKazaa
Caption = "Clear KaZaA Users"
End
Begin VB.Menu mnuClearMorpheus
Caption = "Clear Morpheus Users"
End
Begin VB.Menu Sep5
Caption = "-"
End
Begin VB.Menu mnuScanSpeed
Caption = "Scan Speed"
Begin VB.Menu mnuSlower
Caption = "Slower"
End
Begin VB.Menu mnuFaster
Caption = "Faster"
End
Begin VB.Menu Sep6
Caption = "-"
End
Begin VB.Menu mnuScanDefault
Caption = "Default"
End
End
Begin VB.Menu Sep10
Caption = "-"
End
Begin VB.Menu mnuClearCache
Caption = "Clear Cache"
End
End
Begin VB.Menu mnuHelp
Caption = "Help"
Begin VB.Menu mnuHelpTopics
Caption = "Help Topics"
End
Begin VB.Menu mnuCredits
Caption = "Credits"
End
Begin VB.Menu mnuSep10
Caption = "-"
End
Begin VB.Menu mnuAbout
Caption = "About"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''
''' Author: James Gourley '''
''' Description: Download From Kazaa/Morpheus '''
''' Users without connecting to the service '''
''' '''
''' This is a followup to my old Kazaa program '''
''' Please report any bugs or suggestions to '''
''' James_Gourley_@hotmail.com '''
''' '''
''' Don't Forget to vote '''
''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Public ChangeTime, Temp
Public Changed As Boolean
Public J, i, N, T
Private Sub Command1_Click()
On Error Resume Next
If SearchCurrent.Value = True Then
If Option8.Value = True Then
With MSFlexGrid2
ProgressBar1.Max = .Cols * .Rows
For J = 0 To .Cols - 1
.Col = J
For i = 1 To .Rows - 1
ProgressBar1.Value = i + (.Rows * J)
.Row = i
If InStr(1, LCase(.Text), LCase(Text1), vbTextCompare) Or InStr(1, LCase(.Text), LCase(Replace(Text1, " ", "_", 1, Len(Text1), vbTextCompare)), vbTextCompare) Or InStr(1, LCase(.Text), LCase(Replace(Text1, " ", ".", 1, Len(Text1), vbTextCompare)), vbTextCompare) Then
.CellFontBold = True
Else
.CellFontBold = False
End If
Next i
Next J
For i = 1 To .Rows - 1
.Row = i
RestartRow2:
For N = 0 To .Cols - 1
.Col = N
If .CellFontBold = False And N = .Cols - 1 Then
If .Rows = 2 And i = 1 Then .Rows = 1 Else .RemoveItem i
GoTo RestartRow2
ElseIf .CellFontBold = True Then
Exit For
End If
Next N
Next i
End With
End If
If Option6.Value = True Then
With MSFlexGrid2
ProgressBar1.Max = .Rows
.Col = 0
RestartRows:
For i = 1 To .Rows - 1
ProgressBar1.Value = i
.Row = i
If InStr(1, LCase(.Text), LCase(Text1), vbTextCompare) Or InStr(1, LCase(.Text), LCase(Replace(Text1, " ", "_", 1, Len(Text1), vbTextCompare)), vbTextCompare) Or InStr(1, LCase(.Text), LCase(Replace(Text1, " ", ".", 1, Len(Text1), vbTextCompare)), vbTextCompare) Then
.CellFontBold = True
Else
If .Rows = 2 And i = 1 Then .Rows = 1 Else .RemoveItem (i)
GoTo RestartRows
End If
Next i
End With
End If
If Option7.Value = True Then
With MSFlexGrid2
ProgressBar1.Max = .Rows
.Col = 1
RestartRows3:
For i = 1 To .Rows - 1
ProgressBar1.Value = i
.Row = i
If InStr(1, LCase(.Text), LCase(Text1), vbTextCompare) Or InStr(1, LCase(.Text), LCase(Replace(Text1, " ", "_", 1, Len(Text1), vbTextCompare)), vbTextCompare) Or InStr(1, LCase(.Text), LCase(Replace(Text1, " ", ".", 1, Len(Text1), vbTextCompare)), vbTextCompare) Then
.CellFontBold = True
Else
If .Rows = 2 And i = 1 Then .Rows = 1 Else .RemoveItem (i)
GoTo RestartRows3
End If
Next i
End With
End If
ElseIf SearchAll.Value = True Then
With MSFlexGrid1
If Option3.Value = True Then Form3.SearchForWhat = "All"
If Option2.Value = True Then Form3.SearchForWhat = "Size"
If Option1.Value = True Then Form3.SearchForWhat = "Name"
If Changed = True Then
Form3.MSFlexGrid1.Rows = 1
Form3.MSFlexGrid2.Rows = 1
Form3.MSFlexGrid1.AddItem ""
For J = 0 To 1
.Col = J
For i = 1 To .Rows - 1
.Row = i
If .Text = "" Then GoTo X
Form3.MSFlexGrid1.Rows = Form3.MSFlexGrid1.Rows + 1
Form3.MSFlexGrid1.Row = Form3.MSFlexGrid1.Rows - 1
Form3.MSFlexGrid1.Col = 0
Form3.MSFlexGrid1.Text = .Text
.Col = .Col + 2
Form3.MSFlexGrid1.Col = 1
Form3.MSFlexGrid1.Text = .Text
Form3.MSFlexGrid1.CellAlignment = 0
.Col = J
X:
Next i
Next J
Form3.MSFlexGrid1.AddItem ""
Form3.MSFlexGrid1.Row = 1
Form3.Timer1.Enabled = True
MSFlexGrid2.Rows = 1
Form3.Show 1
Changed = False
MSFlexGrid2.ColAlignment(0) = 0
Else
Form3.MSFlexGrid1.Row = Form3.MSFlexGrid1.Rows - 2
Form3.Timer1.Enabled = True
MSFlexGrid2.Rows = 1
Form3.Show 1
Changed = False
MSFlexGrid2.ColAlignment(0) = 0
End If
End With
End If
End Sub
Private Sub Command2_Click()
MSFlexGrid2.Col = 0
MSFlexGrid2.Sort = 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -