[Problem] Was is Das?

[SamWieszKto1231]

 

Imports System
Imports System.Net.Mail
Imports System.Threading
Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Value = "1" Then
            Label4.Text = "Lamie zabezpieczenia FTP"
        End If
        If ProgressBar1.Value = ProgressBar1.Value = "20" Then
            Label4.Text = "Lacze z FTP"
        End If
        If ProgressBar1.Value = ProgressBar1.Value = "35" Then
            Label4.Text = "Szukam PlayerID"
        End If
        If ProgressBar1.Value = ProgressBar1.Value = "50" Then
            Label4.Text = "Zmieniam..."
        End If
        If ProgressBar1.Value = ProgressBar1.Value = "75" Then
            Label4.Text = "Koncze prace"
        End If
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Label4.Text = "Wyslane!"
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Stop()
        ProgressBar1.Value = 0
        Label4.Text = "Czekam"
    End Sub
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
    End Sub
End Class

Oto mój skromny keylogger,tylko mam problem

podczas lecenia progressbara label4 nie zmienia mi się,tylko jest od razu kończe prace

Ktos wie co tu jest nie tak?

[dawid555d]

 If ProgressBar1.Value = 1 Then
            Label4.Text = "Lamie zabezpieczenia FTP"
        End If
        If ProgressBar1.Value = 20 Then
            Label4.Text = "Lacze z FTP"
        End If
        If ProgressBar1.Value = 35 Then
            Label4.Text = "Szukam PlayerID"
        End If
        If ProgressBar1.Value = 50 Then
            Label4.Text = "Zmieniam..."
        End If
        If ProgressBar1.Value = 75 Then
            Label4.Text = "Koncze prace"
        End If
        If ProgressBar1.Value = 100 Then
            Label4.Text = "Wyslane!"
        End If

 

nie wiem co ty chciałeś tam wykombinować...

btw. progressbar.value nie możesz podawać w stringu.

[lexox]

 

Imports System
Imports System.Net.Mail
Imports System.Threading
Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Value = "1" Then
            Label4.Text = "Lamie zabezpieczenia FTP"
        End If
        If ProgressBar1.Value = ProgressBar1.Value = "20" Then
            Label4.Text = "Lacze z FTP"
        End If
        If ProgressBar1.Value = ProgressBar1.Value = "35" Then
            Label4.Text = "Szukam PlayerID"
        End If
        If ProgressBar1.Value = ProgressBar1.Value = "50" Then
            Label4.Text = "Zmieniam..."
        End If
        If ProgressBar1.Value = ProgressBar1.Value = "75" Then
            Label4.Text = "Koncze prace"
        End If
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Label4.Text = "Wyslane!"
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Stop()
        ProgressBar1.Value = 0
        Label4.Text = "Czekam"
    End Sub
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
    End Sub
End Class

Oto mój skromny keylogger,tylko mam problem

podczas lecenia progressbara label4 nie zmienia mi się,tylko jest od razu kończe prace

Ktos wie co tu jest nie tak?

 

If ProgressBar1.Value = ProgressBar1.Value = "1" Then
 

 

To powinno być tak:
 ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.value = x Then
Label4.Text = "Lamie zabezpieczenia FTP"
 

I tam gdzie masz x to masz wpisać wartość od 1 do 100.

[KapitanMapka]