[cacik]

Merhaba arkadasLar..

bayadIr ugrasIyorum fakat cozumunu buLamadIm..
bir forum sitesinden Şiir basLIkLI kategorinin icinde son ekLenen 2 basLIgI(URL si iLe birLikte) 6`sar dakika ara iLe gLobaL mesaj atmaya caLIstIramadIm.. yardImcI oLursanIz sevinirim..

[el33t]

cacik, bayadır uğraştığını söylemişsin, bizimle uğraşıp çalışmayan kodlarını paylaşır mısın? Çünkü bizim sıfırdan kod yazmamız sana hiçbir şey kazandırmayacak ama senin yapıp da başaramadığın kod üzerinde biz daha iyi yardımcı olabiliriz. Ayrıca benim gibi düşünmeyen arkadaşlar için site adresini verseydin uğraşmak isteyenler için iyi olurdu. Bir diğer şey ise senin sorunda ana problem siteden istediğin yazıyı almak yani global mesaj attırmak değil. Sen bunu sorsaydın daha içten olabilirdi.

Teşekkürler.

[cacik]

tesekkurLer el33t.. bayadIr ugrasIyorum su sekiLde:

Alıntı:

raw 401:*: { msg #cacIk $2 : 7,15suanda nick kuLLanImda degiL4! } alias nerden { set %ip $1 sockclose nerden sockopen nerden [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 } on *:sockopen:nerden:{ sockwrite -n $sockname GET /fcgi-bin/whois?form_type=simple&full_query_string=&searchte xt= $+ %ip $+ &submit.x=15&submit.y=7 HTTP/1.1 sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf } on *:sockread:nerden:{ sockread %ğ if (netname: isin %ğ) { msg #cacIk 7,15 $+ $replace(%ğ,netname,Servis SagLayIcIsI,tr,Türkiye,de,Almanya,nl,Holland a) } if (descr: isin %ğ) && (TurkTelecom !isin %ğ) { msg #cacIk 7,15 $+ $replace(%ğ,descr,Sehir) } if (country: isin %ğ) { msg #cacIk 7,15 $+ $replace(%ğ,country,ULke,tr,Türkiye,de,Alma nya,nl,Hollanda) } }

buradaki kodLarI geListirmeye caLIstIm fakat okumuyor.. en son soyLe birsey dusundum forumdaki giriLen son iki mesajI buLan bir .asp sitesi yapIcam buradaki son giriLen mesajLar 1. 2. 3. vs.. diye gidicek ve scriptte if (1.: isin %ğ) if (2.: isin %ğ) okuyacak.. meseLa;

Alıntı:

alias nerden { set %ip $1 sockclose nerden sockopen nerden tmx.web.mo.la } on *:sockopen:*:{ timer 1 2 sockwrite -n $sockname GET /GLOBAL.htm HTTP/1.1 sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf } on *:sockread:nerden:{ sockread %ğ if (1. isin %ğ) { msg #cacIk 7,15 $+ $replace } }

bu sekiLde dusundum fakat oLmadI..

[cacik]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
bu sitedekiLeri okutmak istiyorum kIsacasI..

~

on *:sockopen:haber:{
sockopen haber tmx.web.mo.la 80
on *:sockopen:haber:{
sockwrite -n $sockname GET /GLOBAL.htm HTTP/1.1
sockwrite -n $sockname Host: tmx.web.mo.la $+ $crlf $+ $crlf

on *:sockread:haber:{
if ($sockerr) {
echo -a Hata!
halt
}
else {
var %temptext
sockread %temptext
msg #cacIk %temptext
}
}
alias htmlfree {

var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

return %x
~

bunu timer oLarak ayarLamamIs gerekiyor 7 dakikada bir meseLa..

[diEfoRyoU]

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias siir {  if $sock(siir) { sockclose siir }  
sockopen siir tmx.web.mo.la 80 } 
on *:sockopen:siir: { 
  sockwrite -n $sockname GET /GLOBAL.htm HTTP/1.1
  sockwrite -n $sockname Host: tmx.web.mo.la $+ $crlf $+ $crlf
}
on *:sockread:siir: { 
  var %h
  sockread %h
  if (*</a>* iswm %h) { 
    if $istok(%die,%h,32) == $true { halt }
    else {
      set %die $addtok(%die,$remove(%h,</a>,/p>),32)
      if $count(%die,<) > 1 {
        var %s = 1 
        while $gettok(%die,%s,60) {
        echo -a $gettok(%die,%s,60) | inc %s }
        unset %die
      }
    }
  }
} 

Umarım işini görür.

[cacik]

cok tesekkurLer diEfoRyoUcok isime yaradI.. fakat bunu su sekiLde geListirebiLirmiyiz..

360. saniyede birkez "Siir1" iLe basLayan satIrI okusun ve yazsIn,
720. saniyede "Yazı1" iLe basLayan satIrI okusun ve yazsIn,
1080. saniyede "Siir2" iLe basLayan satIrI okusun ve yazsIn,
1440. saniyede "Yazı2" iLe basLayan satIrI okusun ve yazsIn.

mumkun mu acaba?