form1.frm

P2P文件共享系统,新手入门建议下载阅读.

Private Sub Command3_Click()
Text1.SetFocus
With MSFlexGrid1
RestartRow:
    For i = 1 To .Rows - 1
        .Col = 1
        .Row = i
        If .Text = "" Then
            If .Rows = 2 And i = 1 Then .Rows = 1 Else .RemoveItem i
            GoTo RestartRow
        Else
            .Row = i
            .Col = 0
            .Text = ""
            .Col = 2
            .Text = ""
        End If
    Next i
End With
Changed = True
End Sub

Private Sub Command4_Click()
Text1.SetFocus
With MSFlexGrid1
RestartRow:
    For i = 1 To .Rows - 1
        .Col = 0
        .Row = i
        If .Text = "" Then
            If .Rows = 2 And i = 1 Then .Rows = 1 Else .RemoveItem i
            GoTo RestartRow
        Else
            .Row = i
            .Col = 1
            .Text = ""
            .Col = 3
            .Text = ""
        End If
    Next i
End With
Changed = True
End Sub

Private Sub Command5_Click()
Timer2.Interval = -Slider1.Value
Command5.Enabled = False
Command6.Enabled = True
Timer2_Timer
End Sub

Private Sub Command6_Click()
Command5.Enabled = True
Command6.Enabled = False
End Sub

Private Sub Command7_Click()
MSFlexGrid2.Col = 1
MSFlexGrid2.Sort = 1
End Sub

Private Sub Command8_Click()
File1.Path = App.Path & "\Cache"
File1.Refresh
If File1.ListCount = 0 Then
    MsgBox "Your cache is already empty.", vbOKOnly + vbInformation
Else
    Select Case MsgBox("Are you sure you want to remove all " & File1.ListCount & " file(s) from your cache?" & vbCrLf & vbCrLf & "Note: Caching significantly speeds up searches and single user browsing." & vbCrLf & "Removing your cached files will result in slower searches and browsing" & vbCrLf & "Are you sure you want to continue?", vbYesNo + vbQuestion, "Confirm")
        Case vbYes
            For i = 0 To File1.ListCount - 1
                File1.ListIndex = i
                Kill File1.Path & "\" & File1.FileName
            Next i
    End Select
End If
End Sub

Private Sub Command9_Click()
Shell "start " & Chr(34) & App.Path & "\My Downloaded Files" & Chr(34), vbHide
End Sub

Private Sub Form_Load()
With MSFlexGrid1
    .ColWidth(0) = .Width / 2
    .ColWidth(1) = .Width / 2
    .Row = 0
    .Col = 0
    .Text = "Kazaa Users"
    .CellFontBold = True
    .Col = 1
    .Text = "Morpheus Users"
    .CellFontBold = True
    .Col = 3
End With
With MSFlexGrid2
    .Row = 0
    .Col = 0
    .Sort = .Col
    .ColWidth(5) = .Width * 1000
    .Row = 0
    .Col = 0
    .Text = "Filename"
    .CellFontBold = True
    .Col = 1
    .Text = "Size"
    .CellFontBold = True
    .Col = 2
    .Text = "Download Time"
    .CellFontBold = True
    .Col = 3
    .Text = "Username"
    .CellFontBold = True
    .Col = 4
    .Text = "URL"
    .CellFontBold = True
    .ColWidth(0) = .Width
End With
End Sub

Private Sub mnuAbout_Click()
frmAbout.Show 1
End Sub

Private Sub mnuAllAll_Click()
SearchAll.Value = True
Option3.Value = True
SearchCurrent_Click
Text1 = InputBox("Search for:")
Command1_Click
End Sub

Private Sub mnuAllFiles_Click()
SearchAll.Value = True
Option1.Value = True
SearchCurrent_Click
Text1 = InputBox("Search for: (Filename)")
Command1_Click
End Sub

Private Sub mnuAllSizes_Click()
SearchAll.Value = True
Option2.Value = True
SearchCurrent_Click
Text1 = InputBox("Search for: (File Size)")
Command1_Click
End Sub

Private Sub mnuClearCache_Click()
Command8_Click
End Sub

Private Sub mnuClearKazaa_Click()
Command3_Click
End Sub

Private Sub mnuClearMorpheus_Click()
Command4_Click
End Sub

Private Sub mnuCredits_Click()
Form6.Show 1
End Sub

Private Sub mnuCurAll_Click()
SearchCurrent.Value = True
Option4.Value = True
SearchCurrent_Click
Text1 = InputBox("Search for:")
Command1_Click
End Sub

Private Sub mnuCurFile_Click()
SearchCurrent.Value = True
Option6.Value = True
SearchCurrent_Click
Text1 = InputBox("Search for: (Filename)")
Command1_Click
End Sub

Private Sub mnuCurSize_Click()
SearchCurrent.Value = True
Option5.Value = True
SearchCurrent_Click
Text1 = InputBox("Search for: (File Size)")
Command1_Click
End Sub

Private Sub mnuFaster_Click()
If Slider1.Value + 25 > Slider1.Max Then
    Slider1.Value = Slider1.Max
Else
    Slider1.Value = Slider1.Value + 25
End If
End Sub

Private Sub mnuHelpTopics_Click()
Form5.Show 1
End Sub

Private Sub mnuOpen_Click()
Dim strtextline
    CommonDialog1.CancelError = True
    CommonDialog1.DialogTitle = "Open"
    CommonDialog1.Filter = "KaZaA/Morpheus Lists | *.kml; | All Files (*.*) | *.*;"
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> "" Then
        Open CommonDialog1.FileName For Input As #1
            i = 0
            Do While Not EOF(1)
                Line Input #1, strtextline
                If i = 0 Then GoTo NextLine
                If i = 1 And strtextline <> Chr(34) And strtextline <> "" And strtextline <> vbCrLf And strtextline <> Chr(10) And strtextline <> Chr(13) Then
                    If Left(strtextline, 6) = "ipstr1" Then strtIpGroup(0) = Right(strtextline, Len(strtextline) - 6)
                    If Left(strtextline, 6) = "ipstr2" Then strtIpGroup(1) = Right(strtextline, Len(strtextline) - 6)
                    If Left(strtextline, 6) = "ipstr3" Then strtIpGroup(2) = Right(strtextline, Len(strtextline) - 6)
                    If Left(strtextline, 6) = "ipstr4" Then strtIpGroup(3) = Right(strtextline, Len(strtextline) - 6)
                    If Left(strtextline, 6) = "ipend1" Then endIPGroup(0) = Right(strtextline, Len(strtextline) - 6)
                    If Left(strtextline, 6) = "ipend2" Then endIPGroup(1) = Right(strtextline, Len(strtextline) - 6)
                    If Left(strtextline, 6) = "ipend3" Then endIPGroup(2) = Right(strtextline, Len(strtextline) - 6)
                    If Left(strtextline, 6) = "ipend4" Then endIPGroup(3) = Right(strtextline, Len(strtextline) - 6)
                    If Left(strtextline, 6) = "search" Then Text1 = Right(strtextline, Len(strtextline) - 6)
                    If Left(strtextline, 6) = "kazaaU" Then
                        For i = 1 To MSFlexGrid1.Rows - 1
                            MSFlexGrid1.Row = i
                            MSFlexGrid1.Col = 0
                            If MSFlexGrid1.Text = "" Then
                                MSFlexGrid1.Text = Right(strtextline, Len(strtextline) - 6)
                                Exit For
                            End If
                            If MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 Then
                                MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
                                MSFlexGrid1.Row = MSFlexGrid1.Row + 1
                                MSFlexGrid1.Text = Right(strtextline, Len(strtextline) - 6)
                                Exit For
                            End If
                        Next i
                    End If
                    If Left(strtextline, 6) = "morphU" Then
                        For i = 1 To MSFlexGrid1.Rows - 1
                            MSFlexGrid1.Row = i
                            MSFlexGrid1.Col = 1
                            If MSFlexGrid1.Text = "" Then
                                MSFlexGrid1.Text = Right(strtextline, Len(strtextline) - 6)
                                Exit For
                            End If
                            If MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 Then
                                MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
                                MSFlexGrid1.Row = MSFlexGrid1.Row + 1
                                MSFlexGrid1.Text = Right(strtextline, Len(strtextline) - 6)
                                Exit For
                            End If
                        Next i
                    End If
                    If Left(strtextline, 6) = "kazaip" Then
                        For i = 1 To MSFlexGrid1.Rows - 1
                            MSFlexGrid1.Row = i
                            MSFlexGrid1.Col = 2
                            If MSFlexGrid1.Text = "" Then
                                MSFlexGrid1.Text = Right(strtextline, Len(strtextline) - 6)
                                Exit For
                            End If
                        Next i
                    End If
                    If Left(strtextline, 6) = "morpip" Then
                        For i = 1 To MSFlexGrid1.Rows - 1
                            MSFlexGrid1.Row = i
                            MSFlexGrid1.Col = 3
                            If MSFlexGrid1.Text = "" Then
                                MSFlexGrid1.Text = Right(strtextline, Len(strtextline) - 6)
                                Exit For
                            End If
                        Next i
                    End If
NextLine:
                    i = 1
                End If
            Loop
        Close #1
    End If
End Sub

Private Sub mnuOpenDownloaded_Click()
Command9_Click
End Sub

Private Sub mnuSaveAs_Click()
Dim Temp, strtextline
        SaveBuffer.Text = ""
        SaveBuffer.Text = SaveBuffer.Text & "ipstr1" & strtIpGroup(0) & vbCrLf
        SaveBuffer.Text = SaveBuffer.Text & "ipstr2" & strtIpGroup(1) & vbCrLf
        SaveBuffer.Text = SaveBuffer.Text & "ipstr3" & strtIpGroup(2) & vbCrLf
        SaveBuffer.Text = SaveBuffer.Text & "ipstr4" & strtIpGroup(3) & vbCrLf
        SaveBuffer.Text = SaveBuffer.Text & "ipend1" & endIPGroup(0) & vbCrLf
        SaveBuffer.Text = SaveBuffer.Text & "ipend2" & endIPGroup(1) & vbCrLf
        SaveBuffer.Text = SaveBuffer.Text & "ipend3" & endIPGroup(2) & vbCrLf
        SaveBuffer.Text = SaveBuffer.Text & "ipend4" & endIPGroup(3) & vbCrLf
        
        SaveBuffer.Text = SaveBuffer.Text & "search" & Text1 & vbCrLf
        MSFlexGrid1.Col = 0
        For i = 1 To MSFlexGrid1.Rows - 1
            MSFlexGrid1.Row = i
            SaveBuffer.Text = SaveBuffer.Text & "kazaaU" & MSFlexGrid1.Text & vbCrLf
        Next i
        MSFlexGrid1.Col = 1
        For i = 1 To MSFlexGrid1.Rows - 1
            MSFlexGrid1.Row = i
            SaveBuffer.Text = SaveBuffer.Text & "morphU" & MSFlexGrid1.Text & vbCrLf
        Next i
        MSFlexGrid1.Col = 2
        For i = 1 To MSFlexGrid1.Rows - 1
            MSFlexGrid1.Row = i
            SaveBuffer.Text = SaveBuffer.Text & "kazaip" & MSFlexGrid1.Text & vbCrLf
        Next i
        MSFlexGrid1.Col = 3
        For i = 1 To MSFlexGrid1.Rows - 1
            MSFlexGrid1.Row = i
            SaveBuffer.Text = SaveBuffer.Text & "morpip" & MSFlexGrid1.Text & vbCrLf
        Next i
        CommonDialog1.CancelError = True
        CommonDialog1.DialogTitle = "Save As..."
        CommonDialog1.Filter = "KaZaA/Morpheus List | *.kml; | All Files (*.*) | *.*;"
        CommonDialog1.ShowSave
        If CommonDialog1.FileName <> "" Then
            Open CommonDialog1.FileName For Output As #1
                Write #1, vbCrLf & SaveBuffer.Text
            Close #1
        End If
End Sub

Private Sub mnuScanDefault_Click()
Slider1.Value = Slider1.Max
End Sub

Private Sub mnuSlower_Click()
If Slider1.Value - 25 < Slider1.Min Then
    Slider1.Value = Slider1.Min
Else
    Slider1.Value = Slider1.Value - 25
End If
End Sub

Private Sub mnuSpecifyIP_Click()

End Sub

Private Sub mnuUserSearch_Click()
Dim Temp
Temp = LCase(InputBox("Search For: (Username)"))
For J = 0 To 1
    MSFlexGrid1.Col = J
    For i = 1 To MSFlexGrid1.Rows - 1
        MSFlexGrid1.Row = i
        If LCase(MSFlexGrid1.Text) = Temp Then
            msflexgrid1_DblClick
            Exit Sub
        End If
    Next i
Next J
End Sub

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim Temp, Temp1, Temp2
If KeyCode = 46 Then
    MSFlexGrid1.Text = ""
    MSFlexGrid1.Col = MSFlexGrid1.Col + 2
    MSFlexGrid1.Text = ""
    MSFlexGrid1.Col = MSFlexGrid1.Col - 2
    Temp = MSFlexGrid1.Row
    For i = MSFlexGrid1.Row To MSFlexGrid1.Rows - 2
        MSFlexGrid1.Row = i + 1
        Temp1 = MSFlexGrid1.Text
        MSFlexGrid1.Col = MSFlexGrid1.Col + 2
        Temp2 = MSFlexGrid1.Text
        MSFlexGrid1.Col = MSFlexGrid1.Col - 2
        MSFlexGrid1.Row = MSFlexGrid1.Row - 1
        MSFlexGrid1.Text = Temp1
        MSFlexGrid1.Col = MSFlexGrid1.Col + 2
        MSFlexGrid1.Text = Temp2
        MSFlexGrid1.Col = MSFlexGrid1.Col - 2
    Next i
    MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
    MSFlexGrid1.Text = ""
    MSFlexGrid1.Col = MSFlexGrid1.Col + 2
    MSFlexGrid1.Text = ""
    MSFlexGrid1.Col = MSFlexGrid1.Col - 2
    MSFlexGrid1.Row = Temp
RestartCheck:
    For i = 1 To MSFlexGrid1.Rows - 1
        MSFlexGrid1.Row = i
        MSFlexGrid1.Col = 0
        If MSFlexGrid1.Text = "" Then
            MSFlexGrid1.Col = 1
            If MSFlexGrid1.Text = "" Then
                If MSFlexGrid1.Rows = 2 And i = 1 Then
                    MSFlexGrid1.Rows = 1
                    MSFlexGrid1.Col = 3
                Else
                    MSFlexGrid1.RemoveItem i
                End If
            GoTo RestartCheck
            End If
        End If
    Next i
ElseIf KeyCode = 13 Then
    msflexgrid1_DblClick
End If
End Sub

Private Sub Option4_Click()
MSFlexGrid1.Visible = True
Frame8.Visible = False
MSFlexGrid1.ZOrder
Text1.SetFocus
End Sub

Private Sub Form_Resize()
On Error Resume Next
Frame1.Height = Me.Height - 700
Frame2.Height = Me.Height - Frame2.Top - 700
MSFlexGrid2.Height = Frame2.Height - MSFlexGrid2.Top - 50
MSFlexGrid1.Height = Frame1.Height - MSFlexGrid1.Top - 50 - Command3.Height
Command3.Top = MSFlexGrid1.Height + MSFlexGrid1.Top
Command4.Top = MSFlexGrid1.Height + MSFlexGrid1.Top
Frame2.Width = Me.Width - Frame2.Left - 120
Frame5.Width = Frame2.Width
MSFlexGrid2.Width = Frame2.Width - (MSFlexGrid2.Left * 2) - 20
Frame6.Width = Frame2.Width - Frame6.Left