Herhangi Bir Sitede Arama Yapmak Örnek Google / Resimli

tayfun92
Cool Çırak
eline saglık ama benim bir sorum olacaktı , bu şeye standart dümeler eklebilirmiyiz .eklersek süper bir şey olacak .şimdiden tşekkürler.!!
 
hackmy
Daimi Üye
Merhabalar ,

Önce Google.com'a Rastgele Bir Yazı Arıyalım..

Örnek : Ben Wardom' Olarak Aradım ,

İşte URL'Deki Kodumuz :

http://www.google.com.tr/search?hl=tr&q=Wardom&meta=

Bu Kodu Nasıl Kulanarak Google'de Arama Yapılır Size Gösteriyim !..

Program'a Tabi Önceden Bir Browser, Bir Textbox , Birde Button' Koyduğunuzu Farz Ediyorum..




Şimdi Bir Button Birde Textbox Vede Birtane'de WebBrowser'ımız Var , Normalde Button'umuzun Koduna ( Code ) Bölümüne / WebBrowser1.Navigate Text1.Text / Yazarsak Direk WebBrowser'da Textbox'a Yazılan Adrese Gider..

Şimdi Biz Bu Kodu Şöyle Yaparsak ,

WebBrowser1.Navigate ("http://www.google.com.tr/search?hl=tr&q=") + Text1.Text + ("&meta=")

Text1.Text'e Ne Yazılırsa Google.Com'da Arar Bu iki Kodun Farkına Bakalım Lütfen..



1: http://www.google.com.tr/search?hl=tr&q=Wardom&meta=

2: WebBrowser1.Navigate ("http://www.google.com.tr/search?hl=tr&q=") + Text1.Text + ("&meta=")

Umarım Yardımcı Olmuşumdur Teşekürler..

Örnek Projeyi Download Etmek için Tıklayın..


Adamım mükemmelsin helal olsun nediyeyim :D ellerin dert görmesin
 
Emrem60
Çırak
Sayın Suk1y3n Sizden Bişey istiyeceyim Herşeyi harika anlatmıssınız Ama Bİrşeyi unuttunuz :)

Bu aramaların hepsinde var Geri Ve İLeri tusları ve Bide Ekranı Büyütunca o wepbrowser Kücük Kalıyor onun kodu Ve Mesela Text box a yazı yazıyoruz Entere basınca Gitmesi Kodu Nuda Yazarsanız Cok Makbule gecicek Şimdiden Teşekkürler
 
mbk.
Forum Kalfası
alternatif

bu projeye alternatif olarak kullanılabilecek diğer yöntem.

google,yahoo ve bing için yazdım
proje için 3 buton ve 1 textbox eklemeniz gerekiyor.


Kod:
'*Author*************************************************
'*Author:MBK                                            *
'*Date:20/04/2010                                       *
'*Contact:mbk_kbm@hotmail.com                           *
'********************************************************

Private Sub Command1_Click() 'google
Dim oIE
Set oIE = CreateObject("InternetExplorer.Application")
oIE.navigate "http://www.google.com"
oIE.Visible = True
Do While oIE.Busy And Not oIE.ReadyState = 4
DoEvents
Loop
oIE.Document.Forms(0).q.Value = Text1.Text
oIE.Document.Forms(0).submit
End Sub

Private Sub Command2_Click() 'yahoo
Dim oIE
Set oIE = CreateObject("InternetExplorer.Application")
oIE.navigate "http://www.yahoo.com"
oIE.Visible = True
Do While oIE.Busy And Not oIE.ReadyState = 4
DoEvents
Loop
oIE.Document.Forms(0).p.Value = Text1.Text
oIE.Document.Forms(0).submit
End Sub

Private Sub Command3_Click() 'bing
Dim oIE
Set oIE = CreateObject("InternetExplorer.Application")
oIE.navigate "http://www.bing.com"
oIE.Visible = True
Do While oIE.Busy And Not oIE.ReadyState = 4
DoEvents
Loop
oIE.Document.Forms(0).q.Value = Text1.Text
oIE.Document.Forms(0).submit
End Sub
önemli olan arama yapılan formdaki textbox name değerini alıp
oIE.Document.Forms(0).q.Value = Text1.Text şeklinde
doldurmak ve göndermek.
google ve bing için "q" olarak isimlendirilmiş
yahoo ise "p" olarak isimlendirmiş
 
moustafahelmy
Çırak
السلام عليكم ورحمة اللة وبركاتة
اشكركم جدا علي ما تقدمة

Barış ve Allah'ın rahmet ve bereket üzerine olması
Ben Arapça konuşuyoruz çünkü YUKARIDAKİ anlamıyor olabilir ama ben bilgi bu forumda teklif için teşekkür etmek istiyorum

Mostafa
Ülke / Türkiye

Üzgünüm CC yanlış bir çeviri olabilir: Google, Türk dilini bilmiyorum çünkü
 
DikGen
Cool Üye
Oldu fakat Enter e basınca otomatik arasın, yani illaki butona tıklamayım.
Nasıl yapabilirim ?
 
serseri
Daimi Üye
bununla browser yapmıyorsunuz browser yapmak bu kadar kolay mı :) sadece microsoftun internet explorer browserini kendi formunuza gömüyorsunuz ve ondan faydalanıyorsunuz
 
Üst