Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Change Prperties Through Coding"
Me.BackColor = Color.Brown
Me.Size = New Size(350, 125)
Me.Location = New Point(300, 300)
Me.MaximizeBox = False
End Sub
End Class
Module VBModule
Sub Main()
dim aantal=50
dim x=0
dim y = 1
dim fib=0
while aantal >= x
fib=x+y
Console.WriteLine(fib)
x=y
y=fib
end while
End Sub
End Module
Public Class Form1
Dim lines() As String = IO.File.ReadAllLines("proxies.txt")
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ListBox1.Items.AddRange(lines)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim URL As String = Nothing
URL = InputBox("Enter YouTube URL", "URL Input", , ,)
If URL.StartsWith("https://www.youtube.com/") Then
TextBox1.Text = URL
Else MessageBox.Show("Invalid YouTube URL.", "Invalid URL")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If TextBox1.Text.Contains("https://www.youtube.com/") Then
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = lines.Length
Timer1.Interval = 1000
Timer1.Start()
Else
MessageBox.Show("Invalid URL.", "Error")
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim i As Integer
i = ListBox1.SelectedIndex
i = i + 1
If i >= (lines.Length() - 1) Then Timer1.Stop()
ListBox1.SelectedIndex = i
ProgressBar1.Increment(1)
Dim curProxy = ListBox1.SelectedItem
TextBox4.AppendText("Connected to " + TextBox1.Text + " on " + curProxy + " Total views: " + ((i + 1).ToString + vbCrLf))
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Timer1.Stop()
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
End Class
