İlk Örneğimiz Website Kontrolü:
Şimdi bu örneğimde size wmaracinda bir site sorgulamayı göstermek istiyorum ve google'dan programımız aracalığı ile arama yapmayı göstereceğim.
İlk Adımlar:
- Form'umuzu oluşturalım
- 1 Adet Textbox
- 1 Adet Command
- 1 Adet webbrowser
Form'umuza uygun bir şekilde webbrowser'ımızı ekliyelim. Üst kısmına text ve command'ı ekledik den sonra form load'a bir kod ekliyoruz.
(Form_Load kısmını açmak için form'un boş bir kısmına çift tıklamanız yeterli)
WebBrowser1.Navigate "http://wmaraci.com/"Evet form'umuza wmaraci'ni tanıttık şimdi ise asıl yere yani site sorgulatma alanına geçelim. Textbox'ımıza websitemiz girilecektir. Command'a (butona) çift tıklayarak şu kodu ekliyelim:WebBrowser1.Navigate2 "http://wmaraci.com/?url=" + Text1.TextŞimdi arkadaşlar burada ki mantık şudur, biliyorsunuz ki "http://wmaraci.com/?url=www.privateserverim.com" bu şekilde sitemizi sorgulayabiliyoruz. Burda ise url kısmından sonra ki yere kendi sitemizin adı girilecek yani "+" işareti ile kendi domainimiz birleştiriliyor. [COLOR=Red]Örnek[/COLOR]:
text1 içine yazılan site: www.privateserverim.com
visual basic de eklenen kod: WebBrowser1.Navigate2 "http://wmaraci.com/?url=" + Text1.Text
Adres çubuğuna girilen url: http://wmaraci.com/?url=www.privateserverim.com
----------------------------------------------------------------------------------
Şimdi Google'dan bir arama yaptırmak istiyorum mantık hemen hemen aynı oda şu şekilde:
Aynı şekilde Form_load kısmına şu kodumuzu ekliyoruz:
WebBrowser1.Navigate "http://google.com.tr/"Ve Tekrar Command'a geliyoruz:WebBrowser1.Navigate2 "http://www.google.com.tr/#sclient=psy-ab&hl=tr&site=&source=hp&q=" + Text1.TextText1.text aramanın yapılacağı kelime yada cümledir.
Explorer yapımını 2. derse bırakıyorum çok uzun olacak yoksa :)
Yazar: Atakan ATEŞ
Kategori: VB6
Web Adresim: www.kodlabs.org