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çları kanala yansımıyor (https://www.ircforumlari.net/mirc-scripting-sorunlari/506705-socket-sonuclari-kanala-yansimiyor.html)

Blank 08 Ekim 2012 15:22
Socket sonuçları kanala yansımıyor
 
on *:text:*:#:{
if $1 == !pr {
set %pr-chan $chan
msg $chan $2 sitesinin bilgileri toplanıyor. Lütfen bekleyin.
set %cumle $2
sockopen aLieN-PR prsorgulama.org 80
}
}
on *:sockopen:aLieN-PR: {
sockwrite -n $sockname GET $+(/,%cumle) HTTP/1.1
sockwrite -n $sockname Host: $+(prsorgulama.org,$crlf,$crlf)
}
on *:sockread:aLieN-PR: {
var %a
sockread %a
if *<span class="footer"><img src="img/pr/1* iswm %a {
write pr.txt %a
}
else {
write pr.txt $temizle(%a)
}
}
on *:sockclose:aLieN-PR: {
msg %pr-chan Site Adresi : $read(pr.txt,39)
msg %pr-chan PR Değeri : $right($left($gettok($read(pr.txt,44),4,34),-4),1)
msg %pr-chan Alexa Sıra : $read(pr.txt,51)
msg %pr-chan Yahoo Backlink : $read(pr.txt,59)
msg %pr-chan Google Backlick: $read(pr.txt,84)
msg %pr-chan Alexa Backlink : $read(pr.txt,91)
msg %pr-chan Yahoo Dizini : $read(pr.txt,97)
msg %pr-chan Google İndex S.: $read(pr.txt,104)
msg %pr-chan Bing İndex S. : $read(pr.txt,116)
msg %pr-chan Yahoo İndex S. : $read(pr.txt,110)
msg %pr-chan Digg Link : $read(pr.txt,123)
msg %pr-chan Delicious Link : $read(pr.txt,129)
msg %pr-chan Dmoz Kaydı : $replace($read(pr.txt,66),ı,ı)
msg %pr-chan Son İndex. Trh.: $read(pr.txt,170)
msg %pr-chan Site Değeri($) : $read(pr.txt,151)
remove pr.txt
}


Kod çalişiyor ama verileri vermiyor kanala yardimci olurmusunuz arkadaşlar..

Blank 13 Ekim 2012 20:52
Cevap: Socket sonuçları kanala yansımıyor
 
yardim edecek kimse yokmu ???

CoCoRiCo 14 Ekim 2012 02:06
Cevap: Socket sonuçları kanala yansımıyor
 
biraz sabırlı olmak lazım buradaki insanlar herzaman yardım edecek zaman bulamayabilir..


Kod:
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
on *:text:*:#:{
  if $1 == !pr {
    set %pr-chan $chan
    msg $chan $2 sitesinin bilgileri toplanıyor. Lütfen bekleyin.
    set %cumle $2
    sockopen aLieN-PR prsorgulama.org 80
  }
}
on *:sockopen:aLieN-PR: {
    var %s sockwrite -nt $sockname
  %s GET  $+(/,%cumle) HTTP/1.1
  %s Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:15.0) Gecko/20100101 Firefox/15.0.1
  %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %s Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
  ;%s Accept-Encoding: gzip, deflate
  %s Connection: keep-alive
  %s  $crlf $crlf
}
on *:sockread:aLieN-PR: {
 if ($sockerr > 0) return
  ::
  sockread %~
  if ($sockbr) {
    if  $regex(%~,/title="Google PageRank (\d)"/)  { write pr.txt $regml(1) }
    if $remove($htmlfree(%~),$chr(9))  { write pr.txt $ifmatch }
    goto :
  }
}

on *:sockclose:aLieN-PR: {
var %~msg msg %pr-chan
%~msg Site Adresi : $read(pr.txt,29)
%~msg PR Değeri : $read(pr.txt,31)
;%~msg Alexa Sıra : $read(pr.txt,33)
;%~msg Yahoo Backlink : $read(pr.txt,59)
%~msg Google Backlick: $read(pr.txt,40)
%~msg Alexa Backlink : $read(pr.txt,43)
%~msg Yahoo Dizini : $read(pr.txt,45)
%~msg Google İndex S.: $read(pr.txt,47)
%~msg Bing İndex S. : $read(pr.txt,51)
%~msg Yahoo İndex S. : $read(pr.txt,49)
%~msg Digg Link : $read(pr.txt,54)
%~msg Delicious Link : $read(pr.txt,56)
%~msg Dmoz Kaydı : $replace($read(pr.txt,35),ı,ı)
%~msg Son İndex. Trh.: $read(pr.txt,68)
%~msg Site Değeri($) : $read(pr.txt,62)
  remove pr.txt
}

IRC-Dancer 14 Ekim 2012 02:37
Cevap: Socket sonuçları kanala yansımıyor
 
[02:36:20] [Baby] : !pr [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[02:36:20] <Vagrant> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sitesinin bilgileri toplanıyor. Lütfen bekleyin.
[02:36:35] <Vagrant> Site Adresi :
[02:36:35] <Vagrant> PR Değeri :
[02:36:35] <Vagrant> Google Backlick:
[02:36:35] <Vagrant> Alexa Backlink :
[02:36:35] <Vagrant> Yahoo Dizini :
[02:36:35] <Vagrant> Google İndex S.:
[02:36:35] <Vagrant> Bing İndex S. :
[02:36:35] <Vagrant> Yahoo İndex S. :
[02:36:35] <Vagrant> Digg Link :
[02:36:35] <Vagrant> Delicious Link :
[02:36:35] <Vagrant> Dmoz Kaydı :
[02:36:35] <Vagrant> Son İndex. Trh.:
[02:36:35] <Vagrant> Site Değeri($) :

Kendimde deneyim dedim ama ; Karşılıksız cıktı. Benmi hata yaptım acaba ?

Med Cezir 14 Ekim 2012 03:02
Cevap: Socket sonuçları kanala yansımıyor
 
CoCoRiCo nun yazdığı kodda sorun yok sadece htmlfree alias ını eklemeyi unutmuş onuda eklerseniz sorun kalmayacaktır.

Kod:
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
[02:57:56] <TestR> !pr ircforumlari.net
[02:57:56] <uMuT> ircforumlari.net sitesinin bilgileri toplanıyor. Lütfen bekleyin.
[02:57:58] <uMuT> Site Adresi : ircforumlari.net
[02:57:58] <uMuT> PR Değeri : 1
[02:57:58] <uMuT> Google Backlick: 1000
[02:57:58] <uMuT> Alexa Backlink : 246
[02:57:58] <uMuT> Yahoo Dizini : Evet
[02:57:58] <uMuT> Google İndex S.: 922,000
[02:57:58] <uMuT> Bing İndex S. : 1,200,839,550,111,023,160,632,599,786,351,348,985, 157,884,270,534,469,340,337,450,548,516,018,026,60 0,379,940,197,900,191,219,310,342,726,668,265,115, 440,175,908,809,709,991,003,345,944,129,908,275,80 4,737,624,977,814,708,218,586,478,737,476,655,402, 175,7
[02:57:58] <uMuT> Yahoo İndex S. : 28
[02:57:58] <uMuT> Digg Link : 0
[02:57:58] <uMuT> Delicious Link : 0
[02:57:58] <uMuT> Dmoz Kaydı : Evet
[02:57:58] <uMuT> Son İndex. Trh.: 1000
[02:57:58] <uMuT> Site Değeri($) : USD

Toprak 14 Ekim 2012 03:38
Cevap: Socket sonuçları kanala yansımıyor
 
Kod çalışıyor olmasına çalışıyor'da veri alınan site'deki bilgiler dogru degil :) en güzel ( dogru ) sitelerdede javax oldugundan veriler alınamıyor böyle sitelere magdur oluyoruz...

Blank 14 Ekim 2012 16:00
Cevap: Socket sonuçları kanala yansımıyor
 
Alıntı:
CoCoRiCo Nickli Üyeden Alıntı (Mesaj 1041226831)
biraz sabırlı olmak lazım buradaki insanlar herzaman yardım edecek zaman bulamayabilir..


Kod:
on *:text:*:#:{
  if $1 == !pr {
    set %pr-chan $chan
    msg $chan $2 sitesinin bilgileri toplanıyor. Lütfen bekleyin.
    set %cumle $2
    sockopen aLieN-PR prsorgulama.org 80
  }
}
on *:sockopen:aLieN-PR: {
    var %s sockwrite -nt $sockname
  %s GET  $+(/,%cumle) HTTP/1.1
  %s Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:15.0) Gecko/20100101 Firefox/15.0.1
  %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %s Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3
  ;%s Accept-Encoding: gzip, deflate
  %s Connection: keep-alive
  %s  $crlf $crlf
}
on *:sockread:aLieN-PR: {
 if ($sockerr > 0) return
  ::
  sockread %~
  if ($sockbr) {
    if  $regex(%~,/title="Google PageRank (\d)"/)  { write pr.txt $regml(1) }
    if $remove($htmlfree(%~),$chr(9))  { write pr.txt $ifmatch }
    goto :
  }
}
 
on *:sockclose:aLieN-PR: {
var %~msg msg %pr-chan
%~msg Site Adresi : $read(pr.txt,29)
%~msg PR Değeri : $read(pr.txt,31)
;%~msg Alexa Sıra : $read(pr.txt,33)
;%~msg Yahoo Backlink : $read(pr.txt,59)
%~msg Google Backlick: $read(pr.txt,40)
%~msg Alexa Backlink : $read(pr.txt,43)
%~msg Yahoo Dizini : $read(pr.txt,45)
%~msg Google İndex S.: $read(pr.txt,47)
%~msg Bing İndex S. : $read(pr.txt,51)
%~msg Yahoo İndex S. : $read(pr.txt,49)
%~msg Digg Link : $read(pr.txt,54)
%~msg Delicious Link : $read(pr.txt,56)
%~msg Dmoz Kaydı : $replace($read(pr.txt,35),ı,ı)
%~msg Son İndex. Trh.: $read(pr.txt,68)
%~msg Site Değeri($) : $read(pr.txt,62)
  remove pr.txt
}

Doru diorsun hocam acele ettim galiba yardimin için teşşekkürler.Diğer arkadaşlarada teşşekkürler.


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk