LoadFirstPic/Frm_Download.frm

VERSION 5.00
Begin VB.Form Frm_Download 
   Caption         =   "<22><>ͼ<EFBFBD><CDBC><EFBFBD><EFBFBD>"
   ClientHeight    =   4800
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11565
   LinkTopic       =   "Form1"
   ScaleHeight     =   4800
   ScaleWidth      =   11565
   StartUpPosition =   2  '<27><>Ļ<EFBFBD><C4BB><EFBFBD><EFBFBD>
   Begin VB.CommandButton fl 
      Caption         =   "<22>ļ<EFBFBD><C4BC><EFBFBD>"
      Height          =   270
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   1020
   End
   Begin VB.TextBox folder 
      Height          =   285
      Left            =   1065
      TabIndex        =   3
      Top             =   0
      Width           =   10455
   End
   Begin VB.CommandButton clear 
      Caption         =   "<22><><EFBFBD><EFBFBD>"
      Height          =   300
      Left            =   0
      TabIndex        =   2
      Top             =   540
      Width           =   1020
   End
   Begin <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ͼ.TzProgressBar pb 
      Height          =   255
      Left            =   1080
      Top             =   570
      Width           =   10440
      _ExtentX        =   18415
      _ExtentY        =   450
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "<22><><EFBFBD><EFBFBD>"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "<22>ܽ<EFBFBD><DCBD><EFBFBD>"
      BackColor       =   8438015
      StartColor      =   8438015
   End
   Begin <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ͼ.TzDownload dl 
      Height          =   255
      Left            =   1065
      Top             =   300
      Width           =   10440
      _ExtentX        =   18415
      _ExtentY        =   450
      ForeColor       =   16777088
   End
   Begin VB.CommandButton dlc 
      Caption         =   "<22><><EFBFBD><EFBFBD>"
      Height          =   300
      Left            =   0
      TabIndex        =   1
      Top             =   255
      Width           =   1020
   End
   Begin <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ͼ.TzListBox SName 
      Height          =   1335
      Left            =   -15
      TabIndex        =   0
      Top             =   840
      Width           =   3810
      _ExtentX        =   6720
      _ExtentY        =   2355
   End
   Begin <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ͼ.TzListBox UName 
      Height          =   1170
      Left            =   0
      TabIndex        =   4
      Top             =   2175
      Width           =   3795
      _ExtentX        =   6694
      _ExtentY        =   2064
   End
End
Attribute VB_Name = "Frm_Download"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private sd As Boolean
Private Savetime As Double

Private Sub clear_Click()
    SName.clear
    UName.clear
End Sub

Private Sub dl_OnFinished(ByVal Result As Boolean)
    sd = Result
End Sub

Private Sub dlc_Click()
    On Error Resume Next
    If UName.ListCount = 0 Then MsgBox ("<22><><EFBFBD>ȼ<EFBFBD><C8BC><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>!"): Exit Sub
    Dim I
    Dim UseTime As Double
    If folder = "" Then folder = InputBox("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>-<2D><>ͼ-<2D><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>-<2D>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!", , Format(Now, "m.d") & "-<2D><>ͼ-<2D><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>-<2D>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
    If folder = Format(Now, "m.d") & "-<2D><>ͼ-<2D><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>-<2D>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>" Then Exit Sub: MsgBox "δ<>޸<EFBFBD><DEB8>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!"
    UseTime = timeGetTime
    For I = 0 To UName.ListCount - 1
red:
        pb.Change I, "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>:  " & I & "/" & pb.BarMax
        UName.ListIndex = I
        SName.ListIndex = I
        dl.FileDownload UName.List(I), App.Path & "\" & folder & "\" & Trim(SName.List(I))    ' & ".jpg"
        Do
            Sleep 50
        Loop Until dl.IsFree
        If Not sd Then GoTo red
        'Debug.Print Replace(Trim(SName.List(i)), " ", "")
    Next
    UseTime = Format((timeGetTime - UseTime) / 1000, "0.00")
    pb.Change pb.BarMax, "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>" & pb.BarMax & "<22><><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ͼ <20><>ʱ" & UseTime & "<22><>!", &H80FF80
    Shell "explorer.exe /n,/select," & App.Path & "\" & folder & "\", vbNormalFocus
End Sub

Private Sub fl_Click()
    Shell "explorer.exe /n,/select," & App.Path & "\" & folder & "\", vbNormalFocus
End Sub

Private Sub Form_Load()
    If folder = "" Then folder = Format(Now, "m.d") & "-<2D><>ͼ-<2D><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD>˺<EFBFBD>-<2D>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Me.Hide
    Cancel = True
End Sub

'itempicurl (ix), App.Path & "\" & folder.Text & "\" & itemname(ix).Text & ".jpg"
Private Sub Form_Resize()
    On Error Resume Next
    folder.Left = dlc.Left + dlc.Width + 10
    folder.Width = Me.Width - dl.Left - 20
    folder.Top = 0
    
    dl.Left = dlc.Left + dlc.Width + 10
    dl.Width = Me.Width - dl.Left - 20
    dl.Top = 300

    pb.Left = dlc.Left + dlc.Width + 10
    pb.Width = Me.Width - dl.Left - 20
    pb.Top = dl.Top + dl.Height + 50
    
    SName.Left = 5
    SName.Top = pb.Top + pb.Height + 50
    SName.Height = Me.Height - 600
    SName.Width = Me.Width / 2 - 10

    UName.Left = Me.Width / 2 + 10
    UName.Top = pb.Top + pb.Height + 50
    UName.Height = Me.Height - 600
    UName.Width = Me.Width / 2 - 10

    dlc.Top = dl.Top
    clear.Top = pb.Top
End Sub

Private Sub SName_dblClick()
    InputBox "<22><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD>IJ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:", , SName.List(SName.ListIndex)
End Sub

Private Sub UName_AddItem()
    pb.BarMax = UName.ListCount
    pb.Change pb.BarMax, "<22><>ɨ<EFBFBD>赽<EFBFBD><E8B5BD>Ʒ<EFBFBD><C6B7>Ϣ" & UName.ListCount & "<22><>"
End Sub

Private Sub UName_dblClick()
    InputBox "<22><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD>IJ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:", , UName.List(UName.ListIndex)
End Sub