Version: V.1.0.2
Ozellikler...
1-) Gecmiş Goruntuleme-Silme
2-) Sık Kullanılanlar Ekleme - Goruntuleme- Silme
3-) Sekme Ekleme - Silme -
4-) Gorunum Ayarlama(Tam Ekran-Normal Ekran -Simge Durumunda Kucultme)
5-) Durum Cubuğu(StatusStrip)
6-) Menu Cubuğu(MenuStrip)
7-) AnaSayfa Ayarlama...
Ve Daha Fazla Ozellik ProV'da
Programdan Bir Goruntu :
Buyrun Size Prov'un Kodları :
PHP Code:
Imports System.IO
Imports Microsoft.Win32
Public Class Form1
Dim a As Integer = 1
Dim anasayfa As String
Private Sub yuklemetamamlandi()
ToolStripProgressBar1.Visible = False
ToolStripStatusLabel1.Visible = False
ToolStripStatusLabel1.Text = " "
ToolStripProgressBar1.Value = 0
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
Gecmis.ListBox1.Items.Add((CType(TabControl1.Selec tedTab.Controls.Item(0), WebBrowser).Url.ToString) & " " & Now)
My.Settings.Save()
Refresh()
TextBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
Try
Dim file As String
file = "C:WindowsProVGecmis.txt"
Dim fs As FileStream = New FileStream(file, FileMode.Append)
Dim w As StreamWriter = New StreamWriter(fs)
w.WriteLine(CType(TabControl1.SelectedTab.Controls .Item(0), WebBrowser).Url.ToString & " " & Now)
w.Close()
fs.Close()
Catch ex As Exception
Dim fs As FileStream = New FileStream("C:WindowsProVGecmis.txt", FileMode.CreateNew)
fs.Close()
End Try
End Sub
Private Sub gecmisyenile()
GecmişSayfalarToolStripMenuItem.DropDownItems.Clea r()
For Each item As String In My.Settings.Gecmisliste
Dim item1 As New ToolStripMenuItem
item1.Text = item.ToString
GecmişSayfalarToolStripMenuItem.DropDownItems.Add( item1)
Next
For Each C As ToolStripMenuItem In GecmişSayfalarToolStripMenuItem.DropDownItems
AddHandler C.Click, AddressOf GecmişSayfalarToolStripMenuItem_Click
Next
End Sub
Private Sub gecmisclick(ByVal sender As Object, ByVal e As System.EventArgs)
Try
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(sender.ToString)
Catch ex As Exception
End Try
End Sub
Private Sub menuyenile()
ToolstripMenuItem1.DropDownItems.Clear()
For Each item As String In My.Settings.Sikkullanilanlarliste
Dim item1 As New ToolStripMenuItem
item1.Text = item.ToString
ToolstripMenuItem1.DropDownItems.Add(item1)
Next
For Each C As ToolStripMenuItem In ToolstripMenuItem1.DropDownItems
AddHandler C.Click, AddressOf SıkKullanılanlaraEkleToolStripMenuItem_Click
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("Eğer İşletim Sisteminiz Windows7 Veya Vista İse Sağ Tıklayıp Yonetici Olarak Calıştırınız", MsgBoxStyle.Information, "ProV")
GecmişSayfalarToolStripMenuItem.DropDownItems.Clea r()
ToolstripMenuItem1.DropDownItems.Clear()
For Each item As String In My.Settings.Sikkullanilanlarliste
Dim item1 As New ToolStripMenuItem
item1.Text = item.ToString
ToolstripMenuItem1.DropDownItems.Add(item1)
Next
For Each C As ToolStripMenuItem In ToolstripMenuItem1.DropDownItems
AddHandler C.Click, AddressOf SıkKullanılanlaraEkleToolStripMenuItem_Click
Next
For Each item As String In My.Settings.Gecmisliste
Dim item1 As New ToolStripMenuItem
item1.Text = item.ToString
GecmişSayfalarToolStripMenuItem.DropDownItems.Add( item1)
Next
For Each C As ToolStripMenuItem In GecmişSayfalarToolStripMenuItem.DropDownItems
AddHandler C.Click, AddressOf GecmişSayfalarToolStripMenuItem_Click
Next
Dim browse As New WebBrowser
TabControl1.TabPages.Add(1, "Sayfa" & a)
TabControl1.SelectTab(a - 1)
browse.Name = "WbBrowser"
browse.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(browse)
AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
AddHandler browse.ProgressChanged, AddressOf yukleniyor
a = a + 1
Try
Dim a As String
a = Registry.CurrentUser.OpenSubKey("ProV").OpenSubKey ("Anasayfa").GetValue("Anasayfa", anasayfa)
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(a)
Catch ex As Exception
Registry.CurrentUser.CreateSubKey("ProV").CreateSu bKey("Anasayfa").SetValue("Anasayfa", "www.google.com.tr")
End Try
End Sub
Private Sub favoriclick(ByVal sender As Object, ByVal e As System.EventArgs)
Try
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(sender.ToString)
Catch ex As Exception
End Try
End Sub
Private Sub yukleniyor(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
ToolStripProgressBar1.Visible = True
ToolStripStatusLabel1.Visible = True
ToolStripStatusLabel1.Text = TextBox1.Text
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim browse As New WebBrowser
TabControl1.TabPages.Add(1, "Sekme" & a)
TabControl1.SelectTab(a - 1)
browse.Name = "WbBrowser"
browse.Dock = DockStyle.Fill
TabControl1.SelectedTab.Controls.Add(browse)
AddHandler browse.DocumentCompleted, AddressOf yuklemetamamlandi
AddHandler browse.ProgressChanged, AddressOf yukleniyor
a = a + 1
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TabControl1.TabPages.RemoveAt(TabControl1.Selected Index)
TabControl1.SelectTab(TabControl1.TabPages.Count - 1)
a = a - 1
End Sub
Private Sub SıkKullanılanlaraEkleToolStripMenuItem_Click(By Val sender As System.Object, ByVal e As System.EventArgs) Handles SıkKullanılanlaraEkleToolStripMenuItem.Click
Dim file As String
file = "C:WindowsProVSikkullanilanlar.txt"
Dim fs As FileStream = New FileStream(file, FileMode.Append)
Dim w As StreamWriter = New StreamWriter(fs)
w.WriteLine(CType(TabControl1.SelectedTab.Controls .Item(0), WebBrowser).Url.ToString())
w.Close()
fs.Close()
End Sub
Private Sub SıkKullanılanlarıTemizleToolStripMenuItem_Click(By Val sender As System.Object, ByVal e As System.EventArgs) Handles SıkKullanılanlarıTemizleToolStripMenuItem.Click
Try
My.Computer.FileSystem.DeleteFile("C:WindowsProVSi kkullanilanlar.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)
Catch ex As Exception
My.Computer.FileSystem.WriteAllText("C:WindowsProV Sikkullanilanlar.txt", String.Empty, False)
End Try
End Sub
Private Sub GecmişSayfalarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GecmişSayfalarToolStripMenuItem.Click
Gecmis.Show()
End Sub
Private Sub ToolstripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolstripMenuItem1.Click
Sikkullanilanlar.Show()
End Sub
Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If e.KeyCode = Keys.Enter Then
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)
End If
End Sub
Private Sub TamEkranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TamEkranToolStripMenuItem.Click
Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub NormalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NormalToolStripMenuItem.Click
Me.WindowState = FormWindowState.Normal
End Sub
Private Sub SimgeDurumundaKucultToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimgeDurumundaKucultToolStripMenuItem.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub CıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CıkışToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub GecmişiTemizleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GecmişiTemizleToolStripMenuItem.Click
Try
My.Computer.FileSystem.DeleteFile("C:WindowsProVGe cmis.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)
Catch ex As Exception
My.Computer.FileSystem.WriteAllText("C:WindowsProV Gecmis.txt", String.Empty, False)
End Try
End Sub
Private Sub AnasayfaDeğiştirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnasayfaDeğiştirToolStripMenuItem.Click
Try
Dim a As String
a = InputBox("Anasayfa Olmasını İstediğiniz Adresi Giriniz", "ProV")
Registry.CurrentUser.OpenSubKey("ProV").OpenSubKey ("Anasayfa").SetValue("Anasayfa", a)
Catch ex As Exception
Registry.CurrentUser.CreateSubKey("ProV").CreateSu bKey("Anasayfa").SetValue("Anasayfa", "www.google.com.tr")
End Try
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
anasayfa = Registry.CurrentUser.OpenSubKey("ProV").OpenSubKey ("Anasayfa").GetValue("Anasayfa")
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(anasayfa)
End Sub
End Class
Setup Olarak İndirmek İcin Linkler Aşağıda :
http://www.upload.gen.tr/d.php/www/g...1.0.2.exe.html
http://www.2shared.com/file/vr1jFUSN...wser_V102.html
Kodlar Tamamiyle Bana Ait Değildir .Ama Coğunluğu Bana Ait.Bana Ailt Olmayan Kodlarıda Tabiki Kopyala Yapıştır Yapmadım . Kendi Projeme Uygulayacak Şekilde Kendim Değiştirdim.
Hakettiysem Replerini Bekliyorum
__________________