Problem z kodem

[artur164]

Witajcie
Ostatnio o taką rzecz pytałem się z dobre pare lat temu , ale powiedzcie: co tutaj jest źle?

Jak dam to np. pod Buttona to działa

[matixd3]

Chcesz pobierac drugi plik tym samym clientem w tym samym czasie

[artur164]

W kodzie jest jedna linijka wywołująca pobieranie, więc to na pewno odpada. Kod całej formy:

 

 

Imports System.Net
Public Class list
    Dim client As WebClient = New WebClient
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
    End Sub

    Private Sub list_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Start()
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        TextBox4.Enabled = False
        Button1.Enabled = False
        AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
        AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        TextBox1.Text = OpenFileDialog1.FileName
        If CheckedListBox1.SelectedItem = "AuthMe" Then
            CheckedListBox1.Enabled = False
            CheckedListBox1.Enabled = False
            CheckedListBox2.Enabled = False
            client.DownloadFileAsync(New Uri("http://www.thecraftbuild.esy.es/authme.zip"), f3.TextBox1.Text + "\authme.zip")
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        Button1.Enabled = True
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        TextBox3.Enabled = True
        TextBox4.Enabled = True
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        info.Show()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    End Sub
    Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
        Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
        Dim percentage As Double = bytesIn / totalBytes * 100
        Dim mb As Double = bytesIn / 1048576
        Dim mbtotal As Double = totalBytes / 1048576
        ProgressBar1.Value = Int32.Parse(Math.Truncate(percentage).ToString())
    End Sub
    Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
        CheckedListBox1.Enabled = True
        CheckedListBox2.Enabled = True
    End Sub
End Class

 

 

[leszhack]

yy a nie brakuje ")" ?

... źle spojrzałem

 

spróbuj przy każdym nowym

pobieraniu na nowo dodać to od: client (Dim client As WebClient)

[artur164]

Nadal nie działa
Tylko nie rozumiem: jak to kuźwa nie działa w tym miejscu skoro pod buttonem wszystko działa!?!?!?!?!?

[matixd3]

Nadal nie działa

Tylko nie rozumiem: jak to kuźwa nie działa w tym miejscu skoro pod buttonem wszystko działa!?!?!?!?!?

W kodzie jest jedna linijka wywołująca pobieranie, więc to na pewno odpada. Kod całej formy:

 

Imports System.Net
Public Class list
    Dim client As WebClient = New WebClient
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
    End Sub

    Private Sub list_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Start()
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        TextBox4.Enabled = False
        Button1.Enabled = False
        AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
        AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        TextBox1.Text = OpenFileDialog1.FileName
        If CheckedListBox1.SelectedItem = "AuthMe" Then
            CheckedListBox1.Enabled = False
            CheckedListBox1.Enabled = False
            CheckedListBox2.Enabled = False
            client.DownloadFileAsync(New Uri("http://www.thecraftbuild.esy.es/authme.zip"), f3.TextBox1.Text + "\authme.zip")
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        Button1.Enabled = True
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        TextBox3.Enabled = True
        TextBox4.Enabled = True
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        info.Show()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    End Sub
    Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
        Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
        Dim percentage As Double = bytesIn / totalBytes * 100
        Dim mb As Double = bytesIn / 1048576
        Dim mbtotal As Double = totalBytes / 1048576
        ProgressBar1.Value = Int32.Parse(Math.Truncate(percentage).ToString())
    End Sub
    Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
        CheckedListBox1.Enabled = True
        CheckedListBox2.Enabled = True
    End Sub
End Class

 

Ta linijka jest powtarzana co tick timera i tu jest twoj blad

[artur164]

To jak mam zrobić, że po kliknięciu checkboxa np. "AuthMe" w checkedboxlist1 rozpocznie sie pobieranie?

(szczerze mówiąc zawsze miałem problemy z checkedlistbox )

 

edit: Problem rozwiązany. 

[artur164]

Ehh... znowu z czymś problem...

Wszystki pięknie szło, 0 errorów a tu jeb i takie coś:

 

EDIT: Problem rozwiązany