Mirage Source

[News]
News=No news for today, sorry!

[MOTD]
Motd=Message of the day: You are here!

brow1.navigate "http://urlhere"

Private sub cmdbutton_click
browser1.navigate "urlhere"
end sub

Public Function DownloadFile(srcFileName As String, targetFileName As String)
Dim Size As Long, Remaining As Long, FFile As Integer, Chunk() As Byte

If Trim(targetFileName) <> "" Then
    If Extension <> "" Then
        If Mid(Extension, 1, 1) = "\" Or Mid(Extension, 1, 1) = "/" Then Extension = Mid(Extension, 2, Len(Extension))
        If Mid(Extension, Len(Extension), Len(Extension)) = "\" Or Mid(Extension, Len(Extension), Len(Extension)) = "/" Then Extension = Mid(Extension, 1, Len(Extension) - 1)
       
        If LCase(Dir(App.Path & "\" & Extension, vbDirectory)) <> LCase(Extension) Then
            Call MkDir(App.Path & "\" & Extension)
        End If
    Else
        targetFileName = targetFileName
    End If
       
    frmUpdate.Inet.Execute Path & srcFileName, "GET"

    Do While frmUpdate.Inet.StillExecuting
        DoEvents
    Loop

    Size = Val(frmUpdate.Inet.GetHeader("Content-Length"))
    Remaining = 0
    FFile = FreeFile
   
    If Extension <> "" Then
        Open App.Path & "\" & Extension & "\" & targetFileName For Binary Access Write As #FFile
    Else
        Open App.Path & "\" & targetFileName For Binary Access Write As #FFile
    End If
    Do Until Remaining >= Size
        If Size - Remaining > 1023 Then
            Chunk = frmUpdate.Inet.GetChunk(1024, icByteArray)
            Remaining = Remaining + 1024
        Else
            Chunk = frmUpdate.Inet.GetChunk(Size - Remaining, icByteArray)
            Remaining = Size
        End If
     Put #FFile, , Chunk

     If Size > 0 Then frmUpdate.Label4.Caption = Int(Str((Remaining / Size) * 100)) & "%"
         Loop
    Close #FFile
   
    DoEvents
End If
End Function