IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Alıntı:

By_ATMACA Nickli Üyeden Alıntı (Mesaj 4226)

:) Bunu Ben Veya bir başkası yapmasını istemiyorum Dj yayın aldığı zaman nickine ek Dj takısı gelsin .

Şuan düzenledim bir dener misin test edemedim..

Kod:

alias _radyoip return IP

alias _radyoport return PORT

alias _radminpass return Admin PASS
 

alias djip {

  sockclose djip

  sockopen djip $_radyoip $_radyoport

}

on *:sockopen:djip:{

  if ($sockerr) { .sockclose $sockname | return }

  sockwrite -nt $sockname GET $+(/admin.cgi?pass=,$_radminpass) HTTP/1.1

  sockwrite -nt $sockname Host: $+($_radyoip, :, $_radyoport)

  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8

  sockwrite -nt $sockname Connection: keep-alive

  sockwrite -nt $sockname Accept-Language: tr,tr;q=0.5

  sockwrite -nt $sockname Accept-Encoding: gzip,deflate

  sockwrite -nt $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7

  sockwrite -nt $sockname Keep-Alive: 300

  sockwrite -nt $sockname $crlf

}

on *:sockread:djip:{

  if ($sockerr) { .sockclose $sockname | return }

  var %:djip | sockread -f %:djip | tokenize 32 %:djip

  if $regex($1-,/Incoming interface\:(.+)/i) {

    .hadd -ms DjIP #DJ $token($token($regml(1),1,58),2,62)

    who +I #dj

  }

}

raw 352:*:{

  if ($hget(DjIP,$2) == $4) && !$regex($6,/^Dj-/Si) {

    os raw svsnick $6 $+(Dj-,$6) 0:1

    msg #dj $6 Sistem'e Dj olarak tanındı ve 4Dj- eki eklenmiştir..

  }

}

Ayarları yaptık dan sonra /djip yazarak deneyebilirsin.