Module PublicSet

    '圖標位置。
    Public Const ICO_STOP As Int32 = 0
    Public Const ICO_RUN As Int32 = 1
    Public Const ICO_ERROR As Int32 = 2
    Public Const ICO_OK As Int32 = 3
    Public Const ICO_WAITRUN As Int32 = 4

    '下載任務設置。
    Public Const FileName As Int32 = 0
    Public Const RemoteFileSize As Int32 = 1
    Public Const FileSizeOk As Int32 = 2
    Public Const URL As Int32 = 3
    Public Const Cookie As Int32 = 4
    Public Const Login As Int32 = 5
    Public Const UserName As Int32 = 6
    Public Const PassWord As Int32 = 7
    Public Const FTP_mode As Int32 = 8
    Public Const RenameD As Int32 = 9
    Public Const Domain As Int32 = 10
    Public Const State As Int32 = 11
    Public Const logs As Int32 = 12          '不保存
    Public Const ERR_times As Int32 = 13     '不保存
    Public Const CheckPage As Int32 = 14     '不保存
    ''''''''''''''''''''''''''''
    Public Const JOBS_C As Int32 = 14

    '狀態。
    'Public Const ST_unknow = 0
    Public Const ST_ERROR As Int32 = 1
    Public Const ST_OK_END As Int32 = 2
    Public Const ST_STOP As Int32 = 3
    Public Const ST_RUNNING As Int32 = 4
    Public Const ST_WAITRUN As Int32 = 5

    '默認參數設置。
    Public SaveDir As String = "\temp"
    Public Rollback As Int32 = 100
    Public AutoStartOnRun As Int32 = 1
    Public Runs As Int32 = 1            '同時運行任務個數。
    Public AutoSave As Int32 = 600       '自動保存下載列表。
    Public TIME_OUT As Int32 = 10000     'http請求超時時間，(ms)。
    Public AutoRestart As Int32 = 1              '下載沒有完成，自動重新開始
    'PUBLIC ERR_times as Int32 =20
    '[file1] 的數據項目個數，0開始。
    Public JOBS(,) As String    'jobs（[fileX]的個數，任務個數）。
    Public DISP(,) As String    '當前顯示的任務。（2維，顯示的索引，JOBS的索引）
    Public Rs() As Down       '每個任務一個類  Rs(Runs) 
    Public fls As String = "down.ini"
    Public Form1active As Boolean = True
    Public Const WM_COPY As Integer = &H301
    Public Const WM_CUT As Integer = &H300
    Public Const WM_PASTE As Integer = &H302
    Public Const WM_UNDO As Integer = &H304

    Public Const ERR_OK As String = ""
    Public Const ERR_ERR As String = "Error"
    Public Const ERR_OHTER As String = "Unknow"

    Public Declare Function GetCapture Lib "coredll" () As IntPtr
    Public Declare Function SendMessage Lib "coredll" (ByVal hwnd As System.IntPtr, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32

    Const shi As String = ";"         '文件注釋符號

    Public Function GetIniValue(ByVal FileName As String, ByVal AppName As String, ByRef KeyS(,) As String) As Long
        'Dim nn As Long
        Dim xx As String
        Dim y As Long
        Dim AP As String
        Dim i As Long
        Const lens As Int32 = 10
        AP = "[" & AppName.ToUpper & "]"
        Dim sr As IO.StreamReader
        Try
            sr = New IO.StreamReader(fls, System.Text.Encoding.Default)
        Catch ex As Exception
            MessageBox.Show("無法讀取配置文件！", "MobileAnt Demo")
            Return -1
            Exit Function
        End Try

        ReDim KeyS(1, lens)
        Do Until sr.Peek = -1
            xx = READLINE(sr)
            If xx.ToUpper = AP Then
                i = 0
                Do Until sr.Peek = -1
                    xx = READLINE(sr)
                    If xx = "" And sr.Peek = -1 Then Exit Do
                    If Left(xx, 1) = "[" Then      '進入了下一個“[]”
                        If i = 0 Then              '只有標題，沒有數據
                            Erase KeyS
                            GetIniValue = i
                        Else
                            ReDim Preserve KeyS(1, i - 1)
                            GetIniValue = i
                        End If
                        sr.Close()
                        Exit Function
                    End If
                    y = xx.IndexOf("=")
                    If y <= 0 Then
                        MessageBox.Show("配置文件錯誤,請檢查如下行：" & vbCrLf & xx, "MobileAnt Demo")
                        GetIniValue = -1
                        Exit Function
                    End If
                    Try
                        KeyS(0, i) = Trim(xx.Substring(0, y))
                        KeyS(1, i) = Trim(xx.Substring(y + 1))
                    Catch ex As Exception
                        ReDim Preserve KeyS(1, UBound(KeyS, 2) + lens)
                        KeyS(0, i) = Trim(xx.Substring(0, y))
                        KeyS(1, i) = Trim(xx.Substring(y + 1))
                    End Try
                    i = i + 1
                Loop
            End If
        Loop
        sr.Close()
        If KeyS(0, 0) = "" Then
            Erase KeyS
            GetIniValue = 0
        Else
            ReDim Preserve KeyS(1, i - 1)
            GetIniValue = UBound(KeyS, 2) + 1
        End If
    End Function

    Function READLINE(ByRef SS As IO.StreamReader) As String
        Dim XX As String
        Dim Y As Int32
        Do
            Do
                XX = SS.ReadLine
            Loop Until XX <> "" Or SS.Peek = -1
            If XX = "" Then
                Return ""
                Exit Function
            End If
            XX = XX.Replace(Chr(9), "")
            Y = XX.IndexOf(shi)
            If Y >= 0 Then XX = XX.Substring(0, Y)
            XX = XX.Trim
        Loop Until XX <> ""
        Return XX
    End Function

    Public Function Sizes(ByVal dw As Long) As String
        Dim x As Int32
        x = 0
        Sizes = ""
        While dw > 10000
            dw = dw / 1024
            If dw > 500 Then dw = Math.Round(dw, 0)
            dw = Math.Round(dw, 1)
            x = x + 1
        End While
        Select Case x
            Case 0
                Sizes = CStr(dw)
            Case 1
                Sizes = CStr(dw) & "KB"
            Case 2
                Sizes = CStr(dw) & "MB"
            Case 3
                Sizes = CStr(dw) & "GB"
            Case 4
                Sizes = CStr(dw) & "TB"
            Case Else
        End Select
    End Function

    Public Function GetName(ByVal Sstr As String) As String
        Dim url As String = Sstr
        Dim p2 As Int32
        If url.ToUpper.Substring(url.Length - 1, 1) = "/" Then
            url = url.Substring(0, url.Length - 1)
        End If
        p2 = url.LastIndexOf("/")
        url = url.Substring(p2 + 1)
        p2 = url.IndexOf("?")
        If p2 = -1 Then p2 = url.IndexOf("#")
        If p2 >= 0 Then
            Return url.Substring(0, p2)
        Else
            Return url
        End If
    End Function
End Module