[HELP] getting information for my downloader in vb2010

[hitmen69]

hello there,
im making downloader and i need help..
image:

how to get correct file information every time when i choose another link?

[[MPGH]master131]

How are you downloading the file? Using a WebClient?

[highlight=vb.net]Private WithEvents wc As New WebClient

Private Sub downloadFile()
wc.DownloadFileAsync(New Uri("https://www.somesite.com/file.rar"), "C:\SomeFolder\file.rar")
End Sub

Private Sub wc_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
MsgBox("Total Size - " & e.TotalBytesToReceive) 'This is going to keep popping up everytime it downloads a part of the file
MsgBox("Downloaded - " & e.BytesReceived & " bytes")
MsgBox("Percentage - " & e.ProgressPercentage & "%")
End Sub[/highlight]

[Nathan]

The name depends on the site you are downloading from I think

[hitmen69]

ok but how to get name of file and size ( that is writing on site from what i m downloading )
look picture :

[Jason]

ok but how to get name of file and size ( that is writing on site from what i m downloading )
look picture :

Are you always getting mFire links?

[hitmen69]

what?

[NOOB]

what?

The direct link for media fire uploads will change periodically so you will need to find another uploading service.

[Jason]

what?

I said, are the links your using ALWAYS from Media Fire?

EDIT: Here's a fit-all method to get the size of the file in question that I just wrote up.

[highlight=vb.net]
Private Function getFileSize(ByVal file As String) As Integer
Dim retVal As Integer = 0
Dim webReq As HttpWebRequest = CType(WebRequest.Create(file), HttpWebRequest)
Using webResp As HttpWebResponse = CType(webReq.GetResponse, HttpWebResponse)
Dim cLength As String() = webResp.Headers.GetValues("Content-Length")
If cLength.Length > 0 Then retVal = cLength.Single
End Using

Return retVal
End Function
[/highlight]

[highlight=vb.net]
MsgBox(getFileSize("https://flstudio.image-line.com/documents/DeadMau5Mini.png"))
[/highlight]

Let me know if that works.

[³²³]

Dim WC as New System.Net.WebClient

WC.DownloadFileAsync(New Uri("https://www.lol.com/dogs.dll"),"c:/dogs.dll")

Play around with that. I remember getting it to have progressbars a while back, and KBs / Total KBs.

[Jason]

Dim WC as New System.Net.WebClient

WC.DownloadFileAsync(New Uri("https://www.lol.com/dogs.dll"),"c:/dogs.dll")

Play around with that. I remember getting it to have progressbars a while back, and KBs / Total KBs.

Not really what he wanted. He wants the download info prior to downloading the file. Also, Master131 already illustrated that method, but actually in detail.

[Blubb1337]

Not really what he wanted. He wants the download info prior to downloading the file. Also, Master131 already illustrated that method, but actually in detail.

Not minding that the path is invalid :P.

[Jason]

Not minding that the desktoppath is invalid :P.

[Blubb1337]

c:/dogs.dll

I'm just saying that the path is invalid ^.-.

Nvm.

[Jason]

I'm just saying that the path is invalid ^.-.

Nvm.

Pseudocode is pseudocode + It's not a desktop path

[hitmen69]

I said, are the links your using ALWAYS from Media Fire?

EDIT: Here's a fit-all method to get the size of the file in question that I just wrote up.

[highlight=vb.net]
Private Function getFileSize(ByVal file As String) As Integer
Dim retVal As Integer = 0
Dim webReq As HttpWebRequest = CType(WebRequest.Create(file), HttpWebRequest)
Using webResp As HttpWebResponse = CType(webReq.GetResponse, HttpWebResponse)
Dim cLength As String() = webResp.Headers.GetValues("Content-Length")
If cLength.Length > 0 Then retVal = cLength.Single
End Using

Return retVal
End Function
[/highlight]

[highlight=vb.net]
MsgBox(getFileSize("https://flstudio.image-line.com/documents/DeadMau5Mini.png"))
[/highlight]

Let me know if that works.

i get 2 errors..
image: