YouTube View Increaser
Posted: Sun Nov 29, 2009 11:13 pm
create a youtube view increaser
whe need
1 webbrowser(you can add more)
1 timer
2 textboxes
2 buttons
first rename button 1 to start
and button 2 to stop
make textbox2 text http://www.google.com/
and make visible false
webbrowser(s) visble false
and know lets code
doubble click button1 and type in this code
this starts the increaser
this stops the view increaser
this refresh the webbrowser(s)
this is for increasing
whe need
1 webbrowser(you can add more)
1 timer
2 textboxes
2 buttons
first rename button 1 to start
and button 2 to stop
make textbox2 text http://www.google.com/
and make visible false
webbrowser(s) visble false
and know lets code
doubble click button1 and type in this code
this starts the increaser
Code: Select all
now double click button2 and type in this codeIf TextBox1.Text.Contains("http://www.youtube.com/watch?v=") Then
MsgBox("Link verified")
WebBrowser1.Navigate(TextBox1.Text)
Timer1.Start()
Button2.Enabled = True
Button1.Enabled = False
Else
MsgBox("Error. Check Your Internet Connection Or The LInk Isn't For A YouTube Video")
End If
this stops the view increaser
Code: Select all
double click timer1 and type in this codeWebBrowser1.Navigate(TextBox2.Text)
Timer1.Stop()
Button2.Enabled = False
Button1.Enabled = True
this refresh the webbrowser(s)
Code: Select all
and now double click the form and type in this codeWebBrowser1.Refresh()
this is for increasing
Code: Select all
now you are doneButton2.Enabled = False
Timer1.Interval = 1000