Imports System.IO
Public Class Form1

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Try
            pb.Visible = True
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbara.Click
        Try
            pblisteson.Items.Clear()
            pbdur.ForeColor = Color.Black
            pbdur.Text = "..."
            If pbadres.Text = "http://" Or pbadres.Text = "" Then
                MsgBox("Site İsmini Girmediniz ! ", MsgBoxStyle.Exclamation)
            Else
                pbpb.Value = 0
                pbpb.Maximum = pbliste.Items.Count - 1
                If Microsoft.VisualBasic.Left(pbadres.Text, Len(pbadres.Text)) = "/" Then
                Else
                    pbadres.Text = pbadres.Text & "/"
                End If
                pbliste.SelectedIndex = 0
                pbwt.Navigate(pbadres.Text & pbliste.SelectedItem)
            End If
        Catch ex As Exception

        End Try
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim pboku As New StreamReader(Application.StartupPath & "\panel_listesi.txt")
            pbliste.Items.AddRange(pboku.ReadToEnd.Split(vbNewLine))
            pboku.Close()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub pbadres_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbadres.TextChanged
        Try
            If pbadres.Text = "http://" Or pbadres.Text = "" Then
                pbara.Enabled = False
            Else
                pbara.Enabled = True
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub pblisteson_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles pblisteson.DoubleClick
        Try
            Process.Start(pblisteson.SelectedItem)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub pbwt_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles pbwt.Navigated
        pbdur.Text = "Taranıyor : " & pbwt.Url.AbsoluteUri
        Try
            If pbwt.DocumentText.Contains("input") Then
                pbdur.ForeColor = Color.DarkGreen
                pbdur.Text = "Admin Panel Bulundu !"
                pblisteson.Items.Add(pbadres.Text & pbliste.SelectedItem)
            Else
            End If
            pbliste.SelectedIndex = pbliste.SelectedIndex + 1
            pbwt.Navigate(pbadres.Text & pbliste.SelectedItem)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            pbwt.Stop()
            pbpb.Value = 0
            pbliste.SelectedIndex = 0
        Catch ex As Exception

        End Try
    End Sub

    Private Sub pbliste_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbliste.SelectedIndexChanged
        Try
            pbpb.Value = pbliste.SelectedIndex

        Catch ex As Exception

        End Try
    End Sub

End Class