birtane index vardi ne yaptıysam alamamıstım ctrl+u ve kaynak kodu goster calısmıyrdu tabı o zamanlar mozıllada ki eklentilerden haberim yoktu bende bunu yapmıstım 
araclar&kodlar
[hide]
araclar&kodlar
[hide]
Kod:
araclar
1TextBox
1buton
4label
1timer
1ProgressBar
1WebBrowser
1RichTextBox
Kod:
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RichTextBox1.Text = WebBrowser1.DocumentText
Timer1.Start()
ProgressBar1.Visible = True
Label4.Visible = True
MsgBox("Kodlar Cekildi")
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(5)
End Sub
End Class