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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Forum`dan topic okutma. (https://www.ircforumlari.net/mirc-scripting-sorunlari/17202-forum-dan-topic-okutma.html)

Forum`dan topic okutma.

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

Yanıt: Forum`dan topic okutma.

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.

Yanıt: Forum`dan topic okutma.

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

Yanıt: Forum`dan topic okutma.

[Ü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, )
return %x
~

bunu timer oLarak ayarLamamIs gerekiyor 7 dakikada bir meseLa..

Yanıt: Forum`dan topic okutma.

PHP- Kodu:

   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.

Yanıt: Forum`dan topic okutma.

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?