Baypars MP3 Oynatıcı
Kod:
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
e]