WebbSoft 2 ile gelen ozellikler
Sık kullanılanlar ekleyebilme
Gecmiş Goruntuleyebilme
Arama cubuğu
ProgressBar
Değişen arayuz
Webbrowser boyutunu otomatik kucultme buyutme (pencereyi kucultunce Facebooktaki sohbet gorunmuyordu cok altta kalıyordu şimdi duzeltildi.)
İkonlar
WebbSoft v2.0 indirme linki.
http://hotfile.com/dl/132052062/49d7...bSoft.exe.html
--------------------------------------------------------------------
-----------------------------------------------------------------------
WebbSoft v1.0
-----------------------------------------------------------------------
Kendi yapmış olduğum webbrowseri sizlere sunuyorum goruşlerinizi bildirirseniz sevinirim
http://hotfile.com/dl/131695340/443c...bSoft.exe.html
-----------------------------------------------------------------------
Kod:
Public
Kod:
Class Form1 PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.GoBack() KeyPreview = True EndSub PrivateSub Button1_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown If e.KeyCode = Keys.Alt + Keys.Left Then EndIf EndSub PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click WebBrowser1.GoForward() KeyPreview = True EndSub PrivateSub Button2_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button2.KeyDown If e.KeyCode = Keys.Alt + Keys.Right Then EndIf EndSub PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click WebBrowser1.Navigate(ComboBox1.Text) EndSub PrivateSub ComboBox1_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown If e.KeyCode = Keys.Enter Then WebBrowser1.Navigate(ComboBox1.Text) EndIf EndSub PrivateSub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged EndSub PrivateSub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick label1.Text = TimeOfDay Label2.Text = Date.Today EndSub PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click WebBrowser1.Stop() EndSub PrivateSub Button4_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button4.KeyDown If e.KeyCode = Keys.Escape Then EndIf EndSub PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click WebBrowser1.Refresh() EndSub PrivateSub Button5_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button5.KeyDown If e.KeyCode = Keys.F5 Then EndIf EndSub PrivateSub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click WebBrowser1.GoHome() EndSub PrivateSub Button6_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button6.KeyDown If e.KeyCode = Keys.Home Then WebBrowser1.GoHome() EndIf EndSub PrivateSub FacebookToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FacebookToolStripMenuItem.Click WebBrowser1.Navigate("www.facebook.com") EndSub PrivateSub FormspringToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormspringToolStripMenuItem.Click WebBrowser1.Navigate("www.formspring.me") EndSub PrivateSub TwitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TwitterToolStripMenuItem.Click WebBrowser1.Navigate("www.twitter.com") EndSub PrivateSub HotmailToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HotmailToolStripMenuItem.Click WebBrowser1.Navigate("www.hotmail.com") EndSub PrivateSub MynetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MynetToolStripMenuItem.Click WebBrowser1.Navigate("www.mynet.com") EndSub PrivateSub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click EndSub PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load EndSub EndClass
-----------------------------------------------------------------------
__________________