Coderlere soru
 

google.tcl deki gibi herhangi bi sitenin arama butonuna baglı bi bot yapabiliyormuyuz? mümkün ise calısmaya devam edicem :S bi türlü yapamadım coderlerden yardım bekliyorum

Cevap: Coderlere soru
 

Tcl'ni PHP kodu ile post atarmısın şuan bende yokda o tcl bi bakayım yardımcı olacağımı düşünüyorum ..

Cevap: Coderlere soru
 

bu php kodu dedigin olayı tam bilmiyorum BaRoN arama butonunu kullanacagım site [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] eger bi bakıp yardım edersen cok mutlu olurum ..

Cevap: Coderlere soru
 

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~
# DizginShell.Com IRC Guard Eggdrop
# Codded by Teqnic March 2004 ©
# Email: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# Web: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~
# google.tcl v0.2.1
#
# !Bul keywords - displays the first related website found from google in the channel
# !Resim keywords - displays the first related image found on google in the channel
# !Dosya keywords - displays the first mirror download link found on filemirrors in the channel
#
# by aNa|0Gue - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
#
# 04/17/2002 v0.2.1 useragent fix by FAN
package require http
bind pub - !Bul pub:google
bind pub - !Resim pub:image
bind pub - !Dosya pub:file
set agent "arama"
proc pub:google { nick uhost handle channel arg } {
global agent
if {[llength $arg]==0} {
putserv "PRIVMSG $channel :hey ! tappes des mots boulet !"
} else {
set query "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
for { set index 0 } { $index<[llength $arg] } { incr index } {
set query "$query[lindex $arg $index]"
if {$index<[llength $arg]-1} then {
set query "$query+"
}
}
#putserv "PRIVMSG $channel :$query"
set token [http::config -useragent $agent]
set token [http::geturl $query]
puts stderr ""
upvar #0 $token state
set max 0
foreach {name value} $state(meta) {
if {[regexp -nocase ^location$ $name]} {
set newurl [string trim $value]
putserv "PRIVMSG $channel :$newurl"
}
}
}
}
proc pub:image { nick uhost handle channel arg } {
global agent
if {[llength $arg]==0} {
putserv "PRIVMSG $channel :hey ! tappes des mots boulet !"
} else {
set query "http://images.google.de/images?btnI=&q="
for { set index 0 } { $index<[llength $arg] } { incr index } {
set query "$query[lindex $arg $index]"
if {$index<[llength $arg]-1} then {
set query "$query+"
}
}
append query &imgsafe=off
# putserv "PRIVMSG $channel :$query"
set token [http::config -useragent $agent]
set token [http::geturl $query]
puts stderr ""
upvar #0 $token state
set max 0
foreach {name value} $state(meta) {
if {[regexp -nocase ^location$ $name]} {
set starturl "http://"
set newurl [string trim $value]
set newurl [string range $newurl [expr [string first = $newurl]+1] [expr [string first & $newurl]-1]]
append starturl $newurl
putserv "PRIVMSG $channel :$starturl"
}
}
}
}
proc pub:file { nick uhost handle channel arg } {
global agent
if {[llength $arg]==0} {
putserv "PRIVMSG $channel :hey ! tappes un nom de fichier boulet !"
} else {
set query "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set query "$query[lindex $arg 0]"
# putserv "PRIVMSG $channel :$query"
set token [http::config -useragent $agent]
set token [http::geturl $query]
set html [http::data $token]
puts stderr ""
upvar #0 $token state
set max 0
# foreach {name value} $state(meta) {
# putserv "PRIVMSG $channel :$value"
# }
# putserv "PRIVMSG $channel :$html"
set result "[lindex $html 1]"
set result [string range $result [expr [string first = $result]+2] [expr [string first > $result]-2]]
putserv "PRIVMSG $channel :$result"
}
}
putlog "Google v0.2.1 - LOADED!"

Cevap: Coderlere soru
 

meftun arkadaşımızın verdiği kodu editlersen kendi arama motoruna göre işlemi yaptırırsın...

Cevap: Coderlere soru
 

Kırmızıyla Belirttiğim yerleri değiştirirsen olcağını düşünüyorum

Örnek :

google yerine arabul


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="black">yerine [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]=

ile değiştir dene Kolay gelsin

Cevap: Coderlere soru
 

Selam. Sanırım İşine Yarar.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Coderlere soru
 

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]= linkini yazmıs mesela. bu googlede arama yapabilmemizi saglıyor.
Peki baska "herhangi" bir sitede arama butonu ile ilgili linki nasıl edinebiliriz?
örnegin yapmaya calıstıgım site [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu sitede arama yapılabiliyor. Yazdıgım sitede arama yapabilecek bi botun linki ne olmalı? yardım ederseniz sevinirim

Cevap: Coderlere soru
 

Örnek :

google yerine ilahiciyiz


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="black">yerine [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

yalnız sitende bir sorun var üye olmadan arama yapmıyor sitende o özelliği deaktif edersen bu dediğin olay olacak diye düşünüyorum aksi takdirde yine olmaz ..

Kolay gelsin .. Bu arada site girişin süper çok beğendim ..

Cevap: Coderlere soru
 

site benim degil :) uyeligi iptal etmekte mümkün degil.. bosa urastıkmı oldu simdi 3 saattir link deniyorum :S
ilgilendiginiz icin tesekkurler..

Yanıt: Coderlere soru
 

ho$ döküman

Cevap: Coderlere soru
 

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="black">yerine [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

yazarsan google i kullanarak mevcut board ta arama yapmış olursun bu cok saglıklı olmasada yapabılecegın bu var

google ile sitede arama