Public Class Form1
Dim anasayfa = "http://www.vgaeml.k12.tr"
Dim girilenadres = (TextBox.Text)
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Dim y1, y2 As Integer
y1 = girilenadres.indexof("www.mynet.com", 0, girilenadres.length)
y2 = girilenadres.indexof("www.google.com", 0, girilenadres.lenght)
If (RadioButton2.Checked) Then
If y1 <> -1 Or y2 <> -1 Then
MsgBox("bu site açılamaz")
End If
End If
ToolStripProgressBar1.Value = 0
Timer1.Start()
WebBrowser1.Navigate(ToolStripTextBox1.Text)
TextBox.items.add(TextBox.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ToolStripStatusLabel1.Text = "Form Yüklendi"
Timer1.Stop()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ToolStripProgressBar1.Value = ToolStripProgressBar1.Value + 10
ToolStripStatusLabel1.Text = ToolStripTextBox1.Text + " Sayfa yükleniyor"
If ToolStripProgressBar1.Value = 100 Then
ToolStripProgressBar1.Value = 0
ToolStripProgressBar1.Visible = False
End If
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Timer1.Stop()
ToolStripStatusLabel1.Text = ToolStripTextBox1.Text + " Sayfa yüklendi"
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
WebBrowser1.GoHome()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.GoForward()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.GoBack()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Stop()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Refresh()
End Sub
Private Sub ToolStripProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripProgressBar1.Click
End Sub
End Class