Register for your free account! | Forgot your password?

Go Back   elitepvpers > MMORPGs > Flyff > Flyff Private Server
You last visited: Today at 12:34

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[Frage] Downloader

Discussion on [Frage] Downloader within the Flyff Private Server forum part of the Flyff category.

Reply
 
Old   #1
 
-Venom''s Avatar
 
elite*gold: 10
Join Date: Jan 2015
Posts: 937
Received Thanks: 449
[Frage] Downloader

Hallo Elitepvpers,

ich schreibe derzeit ein Client Downloader mit Register für ein Flyff Privat Server.

Meine Frage:

Wenn der Speicherort den man auswählen muss, leer ist soll eine fehler meldung kommen.
Da ich mich mit Try nicht so gut auskenne frage ich euch wie ich das am besten machen kann.

Hier ist der Code für den Download Button

Code:
'Download Button'
    Private Sub DownloadButton_Click(sender As System.Object, e As System.EventArgs) Handles DownloadButton.Click
        downloader = New WebClient
        downloader.DownloadFileAsync(New Uri("http://LINK ZUR EXE"), Label4.Text)
        Me.DownloadButton.Enabled = False
    End Sub
Hier der Code für den Browse Button

Code:
'Browse Button'
    Private Sub PictureBox3_Click_1(sender As System.Object, e As System.EventArgs) Handles PictureBox3.Click
        Dim Speichern = New FolderBrowserDialog
        Speichern.ShowDialog()
        Me.Label4.Text = Speichern.SelectedPath
        Me.Label4.Text = Speichern.SelectedPath & "\NAME DER EXE"
    End Sub
Ich habe es jetzt mal so Probiert.

Code:
    'Download Button'
    Private Sub DownloadButton_Click(sender As System.Object, e As System.EventArgs) Handles DownloadButton.Click
        Try
            If Label4.Text = Nothing Then
                MsgBox("Bitte wähle einen Speicherort aus!", MsgBoxStyle.Critical, "Error")
            End If
        Catch 'ex As Exception'
            downloader = New WebClient
            downloader.DownloadFileAsync(New Uri("LINK ZUM DOWNLOAD"), Label4.Text)
            Me.DownloadButton.Enabled = False
        End Try
    End Sub
Er gibt eine Fehler meldung aus aber danach kann man selbst mit Ausgewählen Speicher Path nicht Downloaden
-Venom' is offline  
Old 01/27/2015, 14:15   #2

 
/Aiden\'s Avatar
 
elite*gold: 1825
Join Date: Apr 2014
Posts: 1,073
Received Thanks: 1,358
"Wenn der Speicherort den man auswählen muss, leer ist soll eine fehler meldung kommen."

Müsstes du mal etwas genauer erklären, in der Formulierung hört sich das so an als ob der Ordner in dem du speichern möchtest nicht leer sein darf?

Edit:

Ich glaube ich weiß was du meinst, den FolderBrowserDialog oder? Dann sollte es so klappen:

Code:
 

   Dim Speichern = New FolderBrowserDialog
        Dim path As String
        Try

            If Speichern.ShowDialog() = Windows.Forms.DialogResult.OK Then
                path = Speichern.SelectedPath
                Me.Label4.Text = path & "\NAME DER EXE"
            Else
                MsgBox("Es wurd kein Pfad angegeben! Es wird nun automatisch der Desktop gewählt.")
                path = My.Computer.FileSystem.SpecialDirectories.Desktop
                Me.Label4.Text = path & "\NAME DER EXE"
            End If

        Catch ex As Exception
            MsgBox("Es lief etwas beim Auswählen des Speicherortes falsch. Bitte geben Sie diese Fehlermeldung an 'Titanos™' weiter:" & vbNewLine & ex.ToString())
        End Try

Ich würde dir noch empfehlen den Proxy auf Nothing zu setzen:
downloader.Proxy = Nothing
/Aiden\ is offline  
Old 01/27/2015, 14:40   #3
 
-Venom''s Avatar
 
elite*gold: 10
Join Date: Jan 2015
Posts: 937
Received Thanks: 449
Quote:
Originally Posted by /Aiden\ View Post
"Wenn der Speicherort den man auswählen muss, leer ist soll eine fehler meldung kommen."

Müsstes du mal etwas genauer erklären, in der Formulierung hört sich das so an als ob der Ordner in dem du speichern möchtest nicht leer sein darf?

Edit:

Ich glaube ich weiß was du meinst, den FolderBrowserDialog oder? Dann sollte es so klappen:

Code:
 

   Dim Speichern = New FolderBrowserDialog
        Dim path As String
        Try

            If Speichern.ShowDialog() = Windows.Forms.DialogResult.OK Then
                path = Speichern.SelectedPath
                Me.Label4.Text = path & "\NAME DER EXE"
            Else
                MsgBox("Es wurd kein Pfad angegeben! Es wird nun automatisch der Desktop gewählt.")
                path = My.Computer.FileSystem.SpecialDirectories.Desktop
                Me.Label4.Text = path & "\NAME DER EXE"
            End If

        Catch ex As Exception
            MsgBox("Es lief etwas beim Auswählen des Speicherortes falsch. Bitte geben Sie diese Fehlermeldung an 'Titanos™' weiter:" & vbNewLine & ex.ToString())
        End Try

Ich würde dir noch empfehlen den Proxy auf Nothing zu setzen:
downloader.Proxy = Nothing
Danke genau so meinte ich das.
Hast mir sehr geholfen

Funktioniert zwar immer noch nicht aber ich werde weiter probieren.
-Venom' is offline  
Old 01/27/2015, 16:21   #4
 
elite*gold: 0
Join Date: Jun 2013
Posts: 166
Received Thanks: 259
Warum überhaupt speicherort auswählen lassen? Inataller in nen temporären ordner speichern und ausführen tut's doch auch^^
WurstbrotQT is offline  
Reply


Similar Threads Similar Threads
[Selling] ╟►►Star Downloader | Downloader für über 10 One-Click-Hoster ◄◄╢
01/15/2015 - elite*gold Trading - 13 Replies
Vorerst closed. Freundliche Grüsse
MR - YT Downloader (Youtube Video Downloader)
08/10/2012 - Coding Releases - 4 Replies
Anleitung: Youtube URL eingeben, Dateityp auswählen und entsprechend beim Zielort der Datei, den Dateityp dran setzen. Beispiel ihr wählt eine MP4 Datei aus und beim abspeichern der Datei müsst ihr MP4 dahinter setzen (namederdatei.mp4) http://img6.imagebanana.com/img/o72zlbei/pic.PNG Download: MR - YT Downloader v1.0.exe Virustotal: Protokoll
Frage zum Patch-Downloader
09/13/2011 - World of Warcraft - 5 Replies
Joa, ich wollte nach langer Zeit wieder anfangen, muss patchen und lade mit (0.1 Kb/s) und auch garnicht. Firewall ist aus, WoW als Admin gestartet. Was kann ich machen?



All times are GMT +1. The time now is 12:35.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.