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

2Beğeni(ler)
  • 1 Post By Med Cezir
  • 1 Post By Med Cezir

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Ekim 2012, 20:45   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Socket sonuçlari özele yansimiyor




on *:text:*:#webmaster: {
if $1 == !keywords {
if !$2 { msg $chan Yanlış kullanım. Kullanmanız gereken kod: !keywords domain.com , !keywords domain.net gibi. }
else {
if !$regex($2,.com|.net|.org|.biz|.info|.com.tr|.in|. tv|.cc|.xxx|.co|.gen.tr|.me|.bel.tr|.org.tr|.gov.t r|.edu.tr|.web.tr|.name.tr) {
msg $chan Sorgulama başarısız. Sorgulama yapabileceğiniz uzantılar: com, net, org, biz, com.tr, info, in, tv, cc, gen.tr, co, me, bel.tr, gov.tr, edu.tr, web.tr, name.tr
}
else {
sockclose keywords-incele
remove keywords.txt
set %keywords-domain $2
webmasters keywords-incele
set %keywords-nick $nick
msg $chan $2 domaini anahtar kelimeleri toplanıyor.
}
}
}
}
alias webmasters { sockopen $1 webmaster-toolkit.com 80 }
on *:sockopen:keywords-incele: {
set %swp sockwrite -n $sockname
%swp GET $+(/keyword-analysis-tool.shtml?url=http://,%keywords-domain) HTTP/1.1
%swp Host: webmaster-toolkit.com
%swp $crlf
}
on *:sockread:keywords-incele: {
var %keywords
sockread %keywords
write keywords.txt $temizle(%keywords)
if $regex(%keywords,</html>) {
keywords-gonder
}
}
alias keywords-gonder {
msg #webmaster Toplam $remove($read(keywords.txt,24),Found,unique,words. ) anahtar kelime bulundu. 10 tanesi özelinize gönderiliyor.
msg %keywords-nick 1. Kelime: $+($chr(3),4,$read(keywords.txt,28),$chr(3)) – Frekans: $read(keywords.txt,29) – Pay: $+(%,$read(keywords.txt,30))
msg %keywords-nick 2. Kelime: $+($chr(3),4,$read(keywords.txt,31),$chr(3)) – Frekans: $read(keywords.txt,32) – Pay: $+(%,$read(keywords.txt,33))
msg %keywords-nick 3. Kelime: $+($chr(3),4,$read(keywords.txt,34),$chr(3)) – Frekans: $read(keywords.txt,35) – Pay: $+(%,$read(keywords.txt,36))
msg %keywords-nick 4. Kelime: $+($chr(3),4,$read(keywords.txt,37),$chr(3)) – Frekans: $read(keywords.txt,38) – Pay: $+(%,$read(keywords.txt,39))
msg %keywords-nick 5. Kelime: $+($chr(3),4,$read(keywords.txt,40),$chr(3)) – Frekans: $read(keywords.txt,41) – Pay: $+(%,$read(keywords.txt,42))
msg %keywords-nick 6. Kelime: $+($chr(3),4,$read(keywords.txt,43),$chr(3)) – Frekans: $read(keywords.txt,44) – Pay: $+(%,$read(keywords.txt,45))
msg %keywords-nick 7. Kelime: $+($chr(3),4,$read(keywords.txt,46),$chr(3)) – Frekans: $read(keywords.txt,47) – Pay: $+(%,$read(keywords.txt,48))
msg %keywords-nick 8. Kelime: $+($chr(3),4,$read(keywords.txt,49),$chr(3)) – Frekans: $read(keywords.txt,50) – Pay: $+(%,$read(keywords.txt,51))
msg %keywords-nick 9. Kelime: $+($chr(3),4,$read(keywords.txt,52),$chr(3)) – Frekans: $read(keywords.txt,53) – Pay: $+(%,$read(keywords.txt,54))
msg %keywords-nick 10. Kelime: $+($chr(3),4,$read(keywords.txt,55),$chr(3)) – Frekans: $read(keywords.txt,56) – Pay: $+(%,$read(keywords.txt,57))
}


Arkadaşlar kod çalişiyor ama sonuçlar görünmüyor özelede gitmior.Bu kodun sonuclarini özele değilde kanala nasil çikartabiLiriz??

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 15 Ekim 2012, 16:43   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket sonuçlari özele yansimiyor




1- write keywords.txt $temizle(%keywords) kodun bu satırında gördüğün gibi temizle aliası gerekiyor fakat senin kodlarında göremedim daha önceden istediğin kodda verdiğim htmlfree aliası ile aynı işlevi görüyor buradaki temizle alias ıda.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias temizle { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) return %x }

ister bunu ekle, yada daha önceden ekledigin kodu kullanıyorsan şu satırı değiştir write keywords.txt $htmlfree(%keywords) olarak.

2- Özelde değilde kanalda çıkması içinde set %keywords-nick $nick yazan yeri set %keywords-nick $chan olarak değiştir.

<TestR> !keywords ircforumlari.net
<uMuT> ircforumlari.net domaini anahtar kelimeleri toplanıyor.
<uMuT> 1. Kelime: 4son – Frekans: 190 – Pay: %3.36
<uMuT> 2. Kelime: 4öster – Frekans: 172 – Pay: %3.1
<uMuT> 3. Kelime: 4yazılan – Frekans: 170 – Pay: %3.07
<uMuT> 4. Kelime: 4mesajı – Frekans: 169 – Pay: %3.05
<uMuT> 5. Kelime: 4yazan – Frekans: 169 – Pay: %3.05
<uMuT> 6. Kelime: 412 – Frekans: 127 – Pay: %2.43
<uMuT> 7. Kelime: 4ve – Frekans: 110 – Pay: %2.18
<uMuT> 8. Kelime: 4kiş – Frekans: 108 – Pay: %2.15
<uMuT> 9. Kelime: 4İçerde – Frekans: 107 – Pay: %2.13
<uMuT> 10. Kelime: 4ü – Frekans: 104 – Pay: %2.09

Kodda bir problem yok gördüğün gibi sadece eksik almışsın aldığın yerden.

 
Alıntı ile Cevapla

Alt 15 Ekim 2012, 18:32   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket sonuçlari özele yansimiyor




Med Cezir Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
1- write keywords.txt $temizle(%keywords) kodun bu satırında gördüğün gibi temizle aliası gerekiyor fakat senin kodlarında göremedim daha önceden istediğin kodda verdiğim htmlfree aliası ile aynı işlevi görüyor buradaki temizle alias ıda.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias temizle { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) return %x }

ister bunu ekle, yada daha önceden ekledigin kodu kullanıyorsan şu satırı değiştir write keywords.txt $htmlfree(%keywords) olarak.

2- Özelde değilde kanalda çıkması içinde set %keywords-nick $nick yazan yeri set %keywords-nick $chan olarak değiştir.

<TestR> !keywords ircforumlari.net
<uMuT> ircforumlari.net domaini anahtar kelimeleri toplanıyor.
<uMuT> 1. Kelime: 4son – Frekans: 190 – Pay: %3.36
<uMuT> 2. Kelime: 4öster – Frekans: 172 – Pay: %3.1
<uMuT> 3. Kelime: 4yazılan – Frekans: 170 – Pay: %3.07
<uMuT> 4. Kelime: 4mesajı – Frekans: 169 – Pay: %3.05
<uMuT> 5. Kelime: 4yazan – Frekans: 169 – Pay: %3.05
<uMuT> 6. Kelime: 412 – Frekans: 127 – Pay: %2.43
<uMuT> 7. Kelime: 4ve – Frekans: 110 – Pay: %2.18
<uMuT> 8. Kelime: 4kiş – Frekans: 108 – Pay: %2.15
<uMuT> 9. Kelime: 4İçerde – Frekans: 107 – Pay: %2.13
<uMuT> 10. Kelime: 4ü – Frekans: 104 – Pay: %2.09

Kodda bir problem yok gördüğün gibi sadece eksik almışsın aldığın yerden.

saol hocam çalişti
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
teşşekkür ederim ama yazi karakter sorunu verdi onu nasil çözerim yardim edermisin ?

 
Alıntı ile Cevapla

Alt 16 Ekim 2012, 01:31   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket sonuçlari özele yansimiyor




Karakter sorunu dediğin türkçe karakterlerden kaynaklanan bir sorunmudur. Eğer öyle ise $replace kullanarak bir alias oluşturup düzeltebilirsin.

$replace(Text,değiştirilecek veri,dönüşeceği veri,...)
kullanımı için örnek:
//echo -a $replace(bu bır denemedır,ı,i) => bu bir denemedir (Şeklinde çıkacaktır ı harflerini i ile değiştirdi)


Bunun gibi bir mantık üzerinden türkçe karakter sorunu varsa çözümleyebilirsin.

 
Alıntı ile Cevapla

Alt 16 Ekim 2012, 23:06   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket sonuçlari özele yansimiyor




Med Cezir Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Karakter sorunu dediğin türkçe karakterlerden kaynaklanan bir sorunmudur. Eğer öyle ise $replace kullanarak bir alias oluşturup düzeltebilirsin.

$replace(Text,değiştirilecek veri,dönüşeceği veri,...)
kullanımı için örnek:
//echo -a $replace(bu bır denemedır,ı,i) => bu bir denemedir (Şeklinde çıkacaktır ı harflerini i ile değiştirdi)


Bunun gibi bir mantık üzerinden türkçe karakter sorunu varsa çözümleyebilirsin.

Evet hocam türkçe karakter hatasi veriyor //echo -a $replace(bu bır denemedır,ı,i)

bunu kodda herhangi bi yere koysam düzelirmi tümden sorun?

 
Alıntı ile Cevapla

Alt 17 Ekim 2012, 01:14   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket sonuçlari özele yansimiyor




Ben onu örnek olarak vermiştim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bozuk çıkan kelimeleri ve nasıl göründüklerini tespit edip bana özelden mesaj atarsan yardımcı olmaya çalışayım.

 
Alıntı ile Cevapla

Alt 17 Ekim 2012, 01:22   #7
Toprak
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Socket sonuçlari özele yansimiyor




gelen mesaj'ları burada bizimle paylasırsan ona göre bi kod veririz(ler).

 
Alıntı ile Cevapla

Alt 17 Ekim 2012, 18:03   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket sonuçlari özele yansimiyor




Türkçe karakterlerin dönüştürmesini yaptım, onun dışında ascii karakterler vs varsa onlar bozuk çıkabilir yine.

Düzeltme yaptığım yerleri kalın şekilde belirttim farkı görebilesin diye.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#webmaster: { if $1 == !keywords { if !$2 { msg $chan Yanlış kullanım. Kullanmanız gereken kod: !keywords domain.com , !keywords domain.net gibi. } else { if !$regex($2,.com|.net|.org|.biz|.info|.com.tr|.in|. tv|.cc|.xxx|.co|.gen.tr|.me|.bel.tr|.org.tr|.gov.t r|.edu.tr|.web.tr|.name.tr) { msg $chan Sorgulama başarısız. Sorgulama yapabileceğiniz uzantılar: com, net, org, biz, com.tr, info, in, tv, cc, gen.tr, co, me, bel.tr, gov.tr, edu.tr, web.tr, name.tr } else { sockclose keywords-incele remove keywords.txt set %keywords-domain $2 webmasters keywords-incele set %keywords-nick $chan msg $chan $2 domaini anahtar kelimeleri toplanıyor. } } } } alias webmasters { sockopen $1 webmaster-toolkit.com 80 } on *:sockopen:keywords-incele: { set %swp sockwrite -n $sockname %swp GET $+(/keyword-analysis-tool.shtml?url=http://,%keywords-domain) HTTP/1.1 %swp Host: webmaster-toolkit.com %swp $crlf } on *:sockread:keywords-incele: { var %keywords sockread %keywords write keywords.txt $turkce($htmlfree(%keywords)) if $regex(%keywords,</html>) { keywords-gonder } } alias keywords-gonder { msg #webmaster Toplam $remove($read(keywords.txt,24),Found,unique,words. ) anahtar kelime bulundu. 10 tanesi kanala gönderiliyor. msg %keywords-nick 1. Kelime: $+($chr(3),4,$read(keywords.txt,28),$chr(3)) – Frekans: $read(keywords.txt,29) – Pay: $+(%,$read(keywords.txt,30)) msg %keywords-nick 2. Kelime: $+($chr(3),4,$read(keywords.txt,31),$chr(3)) – Frekans: $read(keywords.txt,32) – Pay: $+(%,$read(keywords.txt,33)) msg %keywords-nick 3. Kelime: $+($chr(3),4,$read(keywords.txt,34),$chr(3)) – Frekans: $read(keywords.txt,35) – Pay: $+(%,$read(keywords.txt,36)) msg %keywords-nick 4. Kelime: $+($chr(3),4,$read(keywords.txt,37),$chr(3)) – Frekans: $read(keywords.txt,38) – Pay: $+(%,$read(keywords.txt,39)) msg %keywords-nick 5. Kelime: $+($chr(3),4,$read(keywords.txt,40),$chr(3)) – Frekans: $read(keywords.txt,41) – Pay: $+(%,$read(keywords.txt,42)) msg %keywords-nick 6. Kelime: $+($chr(3),4,$read(keywords.txt,43),$chr(3)) – Frekans: $read(keywords.txt,44) – Pay: $+(%,$read(keywords.txt,45)) msg %keywords-nick 7. Kelime: $+($chr(3),4,$read(keywords.txt,46),$chr(3)) – Frekans: $read(keywords.txt,47) – Pay: $+(%,$read(keywords.txt,48)) msg %keywords-nick 8. Kelime: $+($chr(3),4,$read(keywords.txt,49),$chr(3)) – Frekans: $read(keywords.txt,50) – Pay: $+(%,$read(keywords.txt,51)) msg %keywords-nick 9. Kelime: $+($chr(3),4,$read(keywords.txt,52),$chr(3)) – Frekans: $read(keywords.txt,53) – Pay: $+(%,$read(keywords.txt,54)) msg %keywords-nick 10. Kelime: $+($chr(3),4,$read(keywords.txt,55),$chr(3)) – Frekans: $read(keywords.txt,56) – Pay: $+(%,$read(keywords.txt,57)) } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) return %x } alias turkce return $replace($1-,ç,ç,ÄŸ,ğ,ı,ı,ÅŸ,ş,ö,ö,ü,ü)

[17:28:06] <TestR> !keywords geveze.org
[17:28:06] <uMuT> geveze.org domaini anahtar kelimeleri toplanıyor.
[17:28:09] <uMuT> Toplam 241 anahtar kelime bulundu. 10 tanesi kanala gönderiliyor.
[17:28:09] <uMuT> 1. Kelime: geveze – Frekans: 24 – Pay: %10.5
[17:28:09] <uMuT> 2. Kelime: ı – Frekans: 13 – Pay: %5.94
[17:28:09] <uMuT> 3. Kelime: mirc – Frekans: 7 – Pay: %3.45
[17:28:09] <uMuT> 4. Kelime: kullanı – Frekans: 7 – Pay: %3.45
[17:28:09] <uMuT> 5. Kelime: sohbet – Frekans: 5 – Pay: %2.62
[17:28:09] <uMuT> 6. Kelime: ü – Frekans: 4 – Pay: %2.2
[17:28:09] <uMuT> 7. Kelime: odaları – Frekans: 4 – Pay: %2.2
[17:28:09] <uMuT> 8. Kelime: 2 – Frekans: 4 – Pay: %2.2
[17:28:09] <uMuT> 9. Kelime: org – Frekans: 3 – Pay: %1.79
[17:28:09] <uMuT> 10. Kelime: kalı – Frekans: 3 – Pay: %1.79

 
Alıntı ile Cevapla

Cevapla

Etiketler
sonuclari


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
KPSS Sonuclari Aciklandi Anatolia YGS ve LYS'ye Hazırlık 0 29 Aralık 2010 17:14
ÖSS yerleştirme SONUÇLARI AÇIKLANDI Collettivo YGS ve LYS'ye Hazırlık 4 20 Ağustos 2008 15:49
İşte OKS yerleştirme SONUÇLARI Crips Haber Arşivi 0 14 Ağustos 2008 22:41
ÖSS Sinav Sonuclari Bugün Aciklaniyor AnsweR Haber Arşivi 4 20 Temmuz 2005 16:50