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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Socket sonuçlari özele yansimiyor (https://www.ircforumlari.net/mirc-scripting-sorunlari/507360-socket-sonuclari-ozele-yansimiyor.html)

Blank 14 Ekim 2012 20:45
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??

Med Cezir 15 Ekim 2012 16:43
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:
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.

Blank 15 Ekim 2012 18:32
Cevap: Socket sonuçlari özele yansimiyor
 
Alıntı:
Med Cezir Nickli Üyeden Alıntı (Mesaj 1041227450)
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:
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 :) teşşekkür ederim ama yazi karakter sorunu verdi onu nasil çözerim yardim edermisin ?

Med Cezir 16 Ekim 2012 01:31
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.

Blank 16 Ekim 2012 23:06
Cevap: Socket sonuçlari özele yansimiyor
 
Alıntı:
Med Cezir Nickli Üyeden Alıntı (Mesaj 1041227777)
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?

Med Cezir 17 Ekim 2012 01:14
Cevap: Socket sonuçlari özele yansimiyor
 
Ben onu örnek olarak vermiştim :) bozuk çıkan kelimeleri ve nasıl göründüklerini tespit edip bana özelden mesaj atarsan yardımcı olmaya çalışayım.

Toprak 17 Ekim 2012 01:22
Cevap: Socket sonuçlari özele yansimiyor
 
gelen mesaj'ları burada bizimle paylasırsan ona göre bi kod veririz(ler).

Med Cezir 17 Ekim 2012 18:03
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:
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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:52.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net