Hallo ElitePvPers
Ich weiß nich wo ich es sonst posten soll aber vielleicht können die moderatoren den thread verschieben.
Also ich bin noch relativ am anfang von Visual Basic und ich wollte heute ein programm coden. aber wenn ich das dann debugge und ne website eingeb und auf start drück öffnet sich die website unendlich mal was soll ich ändern ?
Hier der Code
Ich weiß nich wo ich es sonst posten soll aber vielleicht können die moderatoren den thread verschieben.
Also ich bin noch relativ am anfang von Visual Basic und ich wollte heute ein programm coden. aber wenn ich das dann debugge und ne website eingeb und auf start drück öffnet sich die website unendlich mal was soll ich ändern ?
Hier der Code
PHP Code:
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(2)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Process.Start(TextBox1.Text)
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 Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ProgressBar2.Increment(2)
If ProgressBar2.Value = ProgressBar2.Maximum Then
Process.Start("http://www.youtube.com/?gl=DE&hl=de")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If CheckBox1.Checked = True Then
Timer2.Start()
If CheckBox2.Checked = True Then
Timer3.Start()
If CheckBox3.Checked = True Then
Timer4.Start()
End If
End If
End If
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
ProgressBar2.Increment(2)
If ProgressBar2.Value = ProgressBar2.Maximum Then
Process.Start("http://www.elitepvpers.com/forum/s4-league/")
End If
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
ProgressBar2.Increment(2)
If ProgressBar2.Value = ProgressBar2.Maximum Then
Process.Start("http://www.facebook.com/")
End If
End Sub
End Class