Herhangi Bir Sitede Arama Yapmak Örnek ( Google ) / Resimli

kırk4forze · 21-09-2009, 21:34

bende yeni başladım ama sanki biraz zor gibi daha açıklayıcı olursanız sewinirim...

hackmy · 02-11-2009, 21:56

Alıntı:

Orjinal Mesaj Sahibi Suk1y3n

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

ellerin dert görmesin

s7levinn · 03-11-2009, 22:08

Thanks

ThEmDx · 27-12-2009, 16:52

Ellerine sağlık teşekkürler..

dildem · 28-12-2009, 22:52

paylaşım için tşkler

SonBalina · 29-01-2010, 12:21

yahoo aramayı bulamadım ben?

Emrem60 · 16-04-2010, 19:14

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_kbm · 20-04-2010, 21:35

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
Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=103154
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ş

Emrem60 · 24-04-2010, 20:03

Teşekkürler

Eline Koluna Saglık...

H[a]CkeR · 13-09-2010, 15:25

Kardeş Upload Ettiğin Sitede Sorun Var Bir Baksan İyi Olur

designer2007 · 15-09-2010, 12:31

dostum eline sağlık. gerçekten kaliteli paylaşım

H[a]CkeR · 16-09-2010, 17:46

@kırk4forze Pain Terk

İmzanda Reklam Yapma + Kaç Yaşındasın Sen

moustafahelmy · 30-09-2010, 16:08

السلام عليكم ورحمة اللة وبركاتة
اشكركم جدا علي ما تقدمة

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 · 08-05-2011, 20:45

Oldu fakat Enter e basınca otomatik arasın, yani illaki butona tıklamayım.
Nasıl yapabilirim ?

serseri · 30-05-2011, 19:22

bununla browser yapmıyorsunuz browser yapmak bu kadar kolay mı

sadece microsoftun internet explorer browserini kendi formunuza gömüyorsunuz ve ondan faydalanıyorsunuz

03-11-2009, 22:08	#48
s7levinn Cool Çırak Kayıt Tarihi: Oct 2009 Üye numarası: #382667 Mesaj sayısı: 52 Karma etkisi: 21 Karma: 1893	Thanks Thanks

Konu Araçları	Bu Konuda Ara
Printer Çıktısını Göster Sayfayı Emaille Yolla	Bu Konuda Ara: Gelişmiş Arama

21-09-2009, 21:34	#46
kırk4forze Çırak Kayıt Tarihi: Sep 2009 Üye numarası: #369270 Mesaj sayısı: 3 Karma etkisi: 0 Karma: 10	bende yeni başladım ama sanki biraz zor gibi daha açıklayıcı olursanız sewinirim...

27-12-2009, 16:52	#49
ThEmDx Forum Kalfası Kayıt Tarihi: Jul 2007 Üye numarası: #132920 Yer: im seni :) Mesaj sayısı: 791 Karma etkisi: 3274 Karma: 326925	Ellerine sağlık teşekkürler..

28-12-2009, 22:52	#50
dildem Forum Kalfası Kayıt Tarihi: Oct 2009 Üye numarası: #374394 Yer: Aydın Mesaj sayısı: 1,074 Karma etkisi: 16446 Karma: 1644268	paylaşım için tşkler

29-01-2010, 12:21	#51
SonBalina Forum Ustası Kayıt Tarihi: Nov 2008 Üye numarası: #288849 Mesaj sayısı: 3,129 Karma etkisi: 16930 Karma: 1692337	yahoo aramayı bulamadım ben?

16-04-2010, 19:14	#52
Emrem60 Çırak Kayıt Tarihi: Apr 2010 Üye numarası: #442386 Mesaj sayısı: 5 Karma etkisi: 0 Karma: 10	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

24-04-2010, 20:03	#54
Emrem60 Çırak Kayıt Tarihi: Apr 2010 Üye numarası: #442386 Mesaj sayısı: 5 Karma etkisi: 0 Karma: 10	Teşekkürler Eline Koluna Saglık...

13-09-2010, 15:25	#55
H[a]CkeR Cool Üye Kayıt Tarihi: Sep 2010 Üye numarası: #480737 Yer: Wardom Hostu Mesaj sayısı: 237 Karma etkisi: 689 Karma: 68732	Kardeş Upload Ettiğin Sitede Sorun Var Bir Baksan İyi Olur

15-09-2010, 12:31	#56
designer2007 Cool Çırak Kayıt Tarihi: Mar 2010 Üye numarası: #438255 Mesaj sayısı: 48 Karma etkisi: 0 Karma: 3080	dostum eline sağlık. gerçekten kaliteli paylaşım

16-09-2010, 17:46	#57
H[a]CkeR Cool Üye Kayıt Tarihi: Sep 2010 Üye numarası: #480737 Yer: Wardom Hostu Mesaj sayısı: 237 Karma etkisi: 689 Karma: 68732	@kırk4forze Pain Terk İmzanda Reklam Yapma + Kaç Yaşındasın Sen

30-09-2010, 16:08	#58
moustafahelmy Çırak Kayıt Tarihi: Aug 2010 Üye numarası: #470638 Mesaj sayısı: 1 Karma etkisi: 0 Karma: 10	السلام عليكم ورحمة اللة وبركاتة اشكركم جدا علي ما تقدمة 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ü

08-05-2011, 20:45	#59
DikGen Cool Üye Kayıt Tarihi: Nov 2010 Üye numarası: #499090 Yer: Aydın/Söke Mesaj sayısı: 164 Karma etkisi: 2 Karma: 10	Oldu fakat Enter e basınca otomatik arasın, yani illaki butona tıklamayım. Nasıl yapabilirim ?

30-05-2011, 19:22	#60
serseri Daimi Üye Kayıt Tarihi: Mar 2005 Üye numarası: #4286 Yer: senin olmadığın bir yerde... Mesaj sayısı: 253 Karma etkisi: 8 Karma: 23	bununla browser yapmıyorsunuz browser yapmak bu kadar kolay mı sadece microsoftun internet explorer browserini kendi formunuza gömüyorsunuz ve ondan faydalanıyorsunuz