|
Registrieren
Login  |
|
|||||||||||||||||||||||||||||||||||||||||||||||||||
 |
|||||||||||||||||||||||||||||||||||||||||||||||||||
| Marduk Überflieger  Anmeldedatum: 16.04.2008 Beiträge: 374 |
Aha, und wieso hast du das nicht "verwendet"? Der Gedankengang ist der gleiche, nur die Syntax ist ein anders. Wolltest wohl ein Komplettpakte in VB6 haben:mad: |
||||||||||||||||||||||||||||||||||||||||||||||||||
Überflieger
Anmeldedatum: 01.05.2008
Beiträge: 476
Wohnort: Haan
Verfasst am: 14.06.2008, 22:30 |
|
(Marduk;3820) Soweit ich weiss braucht man doch nur sein U  vor den Link zu hängen und schon kann man das doch direkt runterladen.http://pass:user@rapidshare.com/files/12345/hallo.txt Auf jeden Fall ist es so nur ein Dateidownload, sollte also nur in VB.NET ...äh...auch in VB6 machbar sein  | |
Habs gerade nach dem Schema ausprobiert... klappt nicht
Keine Ahnung wie das jetzt genau bei VB6 abläuft, bei .NET klappts aufjedenfall so
Visual Basic: [code]Function GetLink(ByVal url As String) As String
Dim Link As Array
Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
Dim cc As New CookieContainer
Dim PremiumCookie As New Cookie("user", "454803-xxxxxxxxxxxxx", "/", ".rapidshare.com")
cc.Add(PremiumCookie)
req.CookieContainer = cc
Dim res As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
Dim str As New StreamReader(res.GetResponseStream)
Link = Split(str.ReadToEnd(), " Link = Split(Link(1), """ method=""post"">")
Return Link(0)
End Function[/code]
Und den Link kannst du dann Downloaden und dabei muss man den Premium Cookie wieder mitsenden.
Visual Basic: [code]Private Sub DownloadItem(ByVal sURL As String, ByVal strFile As String, ByVal strFolder As String)
Dim webreq As HttpWebRequest
Dim webresp As HttpWebResponse
Dim bReader As BinaryReader
Dim bWriter As BinaryWriter
Dim stream As FileStream
Dim buffer() As Byte = New Byte(1024) {}
Dim bytesRead As Integer
Dim cc As New CookieContainer
Dim PremiumCookie As New Cookie("user", "454803-xxxxxxxxxx", "/", ".rapidshare.com")
cc.Add(PremiumCookie)
' Fortschritt zunächst auf 0% setzen
Me.ProgressBar1.Value = 0
Try
' Datei-Download via HTTP "anfordern"
webreq = HttpWebRequest.Create(sURL)
webreq.CookieContainer = cc
webresp = webreq.GetResponse
' Download-Größe
Me.ProgressBar1.Maximum = webresp.ContentLength
' lokale Datei öffnen
stream = New FileStream(strFolder & "" & strFile, FileMode.Create)
bReader = New BinaryReader(webresp.GetResponseStream)
bWriter = New BinaryWriter(stream)
' Datei blockweise downloaden und lokal speichern
Do
bytesRead = bReader.Read(buffer, 0, 1024)
bWriter.Write(buffer, 0, bytesRead)
ProgressBar1.Value += bytesRead
ProgressBar1.Update()
Loop Until bytesRead = 0
' alle Dateien schließen
bWriter.Close()
bReader.Close()
stream.Close()
Catch ex As Exception
' Bei Fehler...
MessageBox.Show("Fehler: " & vbCrLf & ex.Message, _
"Fehler", MessageBoxButtons.OK, _
MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
End Try
End Sub[/code]
