Onceki Actığım Konu Mesaj Olarak Gittiği İcin Konuyu Tekrar Acıyorum .

ProV WebBrowser 1.0.4 :


[IMG]http://img714.**************/img714/2315/adszilh.jpg[/IMG]


OZELLİKLER :



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

8-) Bilgisayarınızın Ozelliklerini En Ufak Detayına Kadar Oğrenme

9-)Gereksiz Dosyaları Silme (.tmp,temp)

10-) Combobox'dan Favori Site Secimi

11-) Programa Kac Kez Giriş Yaptığınızı Gorme

12-) Ve Eski Versiyon'a Gore Daha Şık Bir Gorunum Sizlerle...

Yeni Ozellikler :


1-) Eski Karmaşık Goruntusunden Eser Kalmadı Daha Sade Ve Şık Bir Goruntu

2-)Sistem Algılanması Otomatik Yapıldı Ve Direk Administrator Girişi Sağlandı.

3-)Programı Kalabalık Gosteren Butonlar Menuye Taşındı

4-)Form Şeffaflık Eklendi.

5-)Her Zaman Ustte Checkbox'ı Menuye Taşındı.

.
.
.


Buyrun Kod :

Kod:
Imports System.IO Imports Microsoft.Win32 Imports System.Management Public Class AnaForm Dim disk As New ManagementClass("Win32_PhysicalMedia") Private zaman As Long Private tarih As Date Dim a As Integer = 1 Dim anasayfa As String Dim sayac As String Dim check As Integer Dim objWMI Dim colcc Dim objcc Dim strComputer 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:\Windows\ProV\Gecmis.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:\Windows\ProV\Gecmis.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 AnaForm_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick If Me.WindowState = FormWindowState.Maximized Then Me.WindowState = FormWindowState.Normal Else Me.WindowState = FormWindowState.Maximized End If End Sub Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed SaveSetting("CounterApp", "Counts", "NumTimes", zaman) SaveSetting("CounterApp", "Counts", "LastTime", Now) End Sub Private Sub AnaForm_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.Control = True Then If (e.KeyCode = Keys.T) Then 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 Button4.Enabled = True End If End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button9.Visible = False Label1.Visible = False HScrollBar1.Visible = False HScrollBar1.Minimum = 26 HScrollBar1.Maximum = 108 Button4.Enabled = False Me.AutoScroll = True Me.MinimizeBox = False Me.WindowState = FormWindowState.Maximized 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 Me.Text = ">" + Space(139) Timer1.Enabled = True zaman = GetSetting("CounterApp", "Counts", "NumTimes", 0) + 1 tarih = GetSetting("CounterApp", "Counts", "LastTime", Now) If zaman > 1 Then ToolStripStatusLabel2.Text = " Bu programa " & _ Format$(zaman) & ". Girişiniz." Else ToolStripStatusLabel2.Text = "Bu program ilk defa calıştırılıyor." End If 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 Button4.Enabled = True 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 If TabControl1.TabPages.Count = 1 Then Button4.Enabled = False Dim a As Integer a = MsgBox("Acık Olan 1 Sekme Vardır Cıkmak İstiyorsanız Evet'e Tıklayın", MsgBoxStyle.Question + MsgBoxStyle.YesNo) If a = 6 Then Me.Close() Else End If Else TabControl1.TabPages.RemoveAt(TabControl1.Selected Index) TabControl1.SelectTab(TabControl1.TabPages.Count - 1) a = a - 1 End If 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:\Windows\ProV\Sikkullanilanlar.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:\Windows\ProV \Sikkullanilanlar.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin) Catch ex As Exception My.Computer.FileSystem.WriteAllText("C:\Windows\Pr oV\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.ShowDialog() End Sub Private Sub ToolstripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolstripMenuItem1.Click Sikkullanilanlar.ShowDialog() End Sub Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown If e.Control = True Then If (e.KeyCode = Keys.A) Then TextBox1.SelectAll() End If End If 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:\Windows\ProV \Gecmis.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin) Catch ex As Exception My.Computer.FileSystem.WriteAllText("C:\Windows\Pr oV\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.CreateSubKey("ProV").CreateSu bKey("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 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Static x Static oyna = -1 Static a = "Version 1.0.4 DaDaS" 'yazının sonuna veya başına gelince artımı ters cevir If x = Len(a) Then oyna = -oyna If x