Coderlere soru - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

meftun1 · 20 Kasım 2007, 20:53

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

BaRoN · 20 Kasım 2007, 20:59

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

meftun1 · 20 Kasım 2007, 21:01

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 ..

meftun1 · 20 Kasım 2007, 21:03

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~
# DizginShell.Com IRC Guard Eggdrop
# Codded by Teqnic March 2004 ©
# Email:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

# 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 -
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
- [Ü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!"

CanCeL · 20 Kasım 2007, 21:11

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

BaRoN · 20 Kasım 2007, 21:11

meftun Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~
# DizginShell.Com IRC Guard Eggdrop
# Codded by Teqnic March 2004 ©
# Email:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

# 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 -
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
- [Ü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.
color="black">"
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.
size="2">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!"

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

Korkut · 20 Kasım 2007, 21:18

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

meftun1 · 20 Kasım 2007, 21:23

[Ü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

BaRoN · 20 Kasım 2007, 21:31

Ö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 ..

meftun1 · 20 Kasım 2007, 21:34

site benim degil
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
uyeligi iptal etmekte mümkün degil.. bosa urastıkmı oldu simdi 3 saattir link deniyorum :S
ilgilendiginiz icin tesekkurler..

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
iktisada giris dev soru bankası (106 soru)	yoSun	AÖF Sorulari & Daha Önce Çıkmis Sorular	0	26 Nisan 2011 13:47
Oyun botu soru dosyasindaki soru\|cevap duzenini tersine çevirme (Çözüm)	Weise	Eggdrop, NeoStats, BNC	0	24 Ocak 2011 14:04
Değerli coderlere bir soru	sohbetsevgi	Unreal IRCd	3	15 Nisan 2009 02:58

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.