Herhangi Bir Sitede Arama Yapmak Örnek Google / Resimli

CoDeR_EmRaH
Daimi Üye
yawf bi kaç kodda ben eklemessem olmaz :D:D

alexa.com da arama yapmak için --> WebBrowser1.Navigate "http://www.alexa.com/search?q=" & Text1.Text

hotbot.com --> WebBrowser1.Navigate "http://www.hotbot.com/?nil_suggest=btn&ps=&loc=searchbox&tab=web&mode=search&currProv=msn&query=" & Text1.Text

netscape.com --> WebBrowser1.Navigate "http://www.netscape.com/search/?s=" & Text1.Text

ask.com --> WebBrowser1.Navigate "http://www.ask.com/web?q=" & Text1.Text

alltheweb.com --> WebBrowser1.Navigate "http://www.alltheweb.com/search?cat=web&cs=utf8&q=" & Text1.Text

aol.com --> WebBrowser1.Navigate "http://search.aol.com/aolcom/search?invocationType=topsearchbox.search&query=" & Text1.Text

live.com --> WebBrowser1.Navigate "http://search.live.com/results.aspx?q=" & Text1.Text

bu kodları kullanabilirsiniz. :D sadece google ve yahoo yetmez demi :D:D
 
Suk1y3n
Forum Ustası
Beyler , kahvede değilsiniz mesajlarınızı yazarken [edit] özelliğini kullanalım , konuyu saptırmıyalım.
 
fikretba
Cool Üye
Google'da ie'de aratın.Ama burda dikkat etmemiz gereken türkçe karakterlerde var
Kod:
Private Sub Command1_Click()

Dim ara, deger, deger1, deger2, parcala, topla

Set oWShellExt = CreateObject("Shell.Application")

ara = Text1.Text

If ara <> "" Then

    For k = 1 To Len(ara)
        parcala = Mid(ara, k, 1)
            If parcala = Chr(34) Then parcala = "%22"
            If parcala = Chr(32) Then parcala = "+"
            If parcala = "ö" Then parcala = "%C3%B6"
            If parcala = "ç" Then parcala = "%C3%A7"
            If parcala = "ı" Then parcala = "%C4%B1"
            If parcala = "ş" Then parcala = "%C5%9F"
            If parcala = "ğ" Then parcala = "%C4%9F"
            If parcala = "ü" Then parcala = "%C3%BC"
            If parcala = "Ö" Then parcala = "%C3%96"
            If parcala = "Ç" Then parcala = "%C3%87"
            If parcala = "Ş" Then parcala = "%C5%9E"
            If parcala = "İ" Then parcala = "%C4%B0"
            If parcala = "Ğ" Then parcala = "%C4%9E"
            If parcala = "Ü" Then parcala = "%C3%9C"
        topla = topla + parcala
    Next

    deger1 = "http://www.google.com.tr/search?hl=tr&q="
    deger2 = "&meta="
    deger = deger1 & topla & deger2

    oWShellExt.shellexecute deger

End If
End Sub

Private Sub Command2_Click()
End
End Sub
Buradan Deneyin
 
- Yönetici düzenlemesi: :
dragon111
Hızlı Çırak
Arkadaslar sizdekiler vb 6.0 sanırım..Vb 2005 te bu kodlar calısmıyor..
Yada ben yapamadım..
Ancak parantezler içinde olursa...
WebBrowser1.Navigate("http://www.google.com.tr/search?hl=tr&q=" + TextBox1.Text + ("&meta="))
 
alooo
Daimi Üye
tamam peki herşey güzel :) arama.php?ara=aranacakstring olduğu tamam kolay :)
peki sıkıysa şunu yapın
http://www.milw0rm.com/cracker/info.php ==> arama kısmı
http://www.milw0rm.com/cracker/search.php ===> cevabın geldiği kısım :)
xmlHTTPReguest denedim INET internet controls denedim yemedi varmı yapacak babayiğit Çıksın
POST edecek sonra search.php gelecek onun kaynak kodlarından cracked bulunan kısmı kırpıp ekrana basacak haaaa bide browser gibi olmuycak :D
 
- Yönetici düzenlemesi: :
FiesTa
Cool Üye
tamam peki herşey güzel :) arama.php?ara=aranacakstring olduğu tamam kolay :)
peki sıkıysa şunu yapın
http://www.milw0rm.com/cracker/info.php ==> arama kısmı
http://www.milw0rm.com/cracker/search.php ===> cevabın geldiği kısım :)
xmlHTTPReguest denedim INET internet controls denedim yemedi varmı yapacak babayiğit Çıksın
POST edecek sonra search.php gelecek onun kaynak kodlarından cracked bulunan kısmı kırpıp ekrana basacak haaaa bide browser gibi olmuycak :D
eauhaeuh :D cok komksin :) sen milw0rm'a bağlanabiliyo musun? oncelikle proxy ile kullanılabilen bi web browser olacak sonra girip yapablrsin :D
 
Blackcaptain
Cool Üye
tamam peki herşey güzel :) arama.php?ara=aranacakstring olduğu tamam kolay :)
peki sıkıysa şunu yapın
http://www.milw0rm.com/cracker/info.php ==> arama kısmı
http://www.milw0rm.com/cracker/search.php ===> cevabın geldiği kısım :)
xmlHTTPReguest denedim INET internet controls denedim yemedi varmı yapacak babayiğit Çıksın
POST edecek sonra search.php gelecek onun kaynak kodlarından cracked bulunan kısmı kırpıp ekrana basacak haaaa bide browser gibi olmuycak :D

Web Browser kullan. visual basic ile web browser içindeki textbox ları kullanabiliyorsun sonrada formu submit edersin. Azıcık bi HTML bilgin varsa bile yeterli...
 
- Yönetici düzenlemesi: :
Blot
Forum Kalfası
arkadaşlar bunları visual 2005 te denedim tanımadı hangisinde yazıyorsunuz acaba???
 
Üst