ForumTEK.Net - IRC Forumu - -ip arşiv kodu hk.

ForumTEK.Net - IRC Forumu (http://www.forumtek.net/index.php)

- mIRC Scripting Sorunları (http://www.forumtek.net/forumdisplay.php?f=52)

- - -ip arşiv kodu hk. (http://www.forumtek.net/showthread.php?t=6032)

-ip arşiv kodu hk.

PHP- Kodu:


		
			
on *:snotice:*:{

if (*client*connect* iswm $1-) { 

var %difyip = $remove($token($10,2,64),$chr(41)), %difynick = $9, %difyident = $remove($token($10,1,64),$chr(40))

if $read(arsiv.txt,w,$+(*,%difyip,$chr(32),%difynick, $chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

write arsiv.txt %difyip %difynick 4Ident: $+ 2 %difyident 1Son Girişi: $+($time,-,$date) 

}

elseif (*changed*his*her*nickname* iswm $1-) {

var %difyzip = $remove($token($5,2,64),$chr(41)), %difynickz = $11, %difyidentz = $remove($token($5,1,64),$chr(40))

if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynick z,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

write arsiv.txt %difyzip %difynickz 4Ident: $+ 2 %difyidentz 1Son Girişi: $+($time,-,$date) 

}

}

;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz

on *:text:*:#: { 

if $regex($1,/^([!/./-][Iıİi]p)$/i) {

if $regex($2,/^\d+.\d+/) {

if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) { 

if !$2 { msg $chan Hatalı Kullanım 4-ip 78.98.162.78 1Şeklinde Yazın. 4 $+ $nick $+ 1, | return }

msg $chan $2 arşivi listeleniyor 

filter -ffcg arsiv.txt depo.txt /^\Q $+ $2 $+ \E\s/ 

play $chan depo.txt 750

}

else { msg $chan $2 arşivde bulunmuyor 

}

}

if $regex($2,/^[^\d]/) {

if $read(arsiv.txt,r,/[^:]\s\Q $+ $2 $+ \E\s/i) { 

msg $chan $2 arşivi listeleniyor 

filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $2 $+ \E\s/i 

play $chan depo.txt 750 

}

else { msg $chan $2 arşivde bulunmuyor }

}

}

}

Böyle bir kod paylaşımı olmuştu. Ben bu kod için giriş noticelerini statüste değil #Takip kanalında bot tarafından yazılınca görebiliyorum. Örn: <irc.random.net> Client connecting on port 6667: cam-ustasi (Sohbet@46.196.XX.XX) [Web Random.Net IRC Client] [clients] | isteğim kodun oradan bilgiyi alabilmesi arşiv dosyasına ekletebilmek ve bu arşivdeki nicklere koruma için otoshun ekleme şansımız da olur mu? Nickine olacak şekilde olabilir mesela.

Cevap: -ip arşiv kodu hk.

Kod:

on *:snotice:*:{

  if (*changed*his*her*nickname* iswm $1-) {

    var %difyzip = $remove($token($5,2,64),$chr(41)), %difynickz = $11, %difyidentz = $remove($token($5,1,64),$chr(40))

    if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynick z,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

    write arsiv.txt %difyzip %difynickz Ident: $+  %difyidentz Son Girişi: $+($time,-,$date) 

  }

}

;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz

on *:text:*:#: { 

  if (*client*connect* iswm $strip($1-)) { 

    var %difyip = $remove($token($strip($7),2,64),$chr(41)), %difynick = $strip($6), %difyident = $remove($token($strip($7),1,64),$chr(40))

    if $read(arsiv.txt,w,$+(*,%difyip,$chr(32),%difynick, $chr(32),*)) { write $+(-dl,$readn) arsiv.txt }

    write arsiv.txt %difyip %difynick Ident : $+  %difyident Son Girişi: $+($time,-,$date) 

  }

  if $regex($1,/^([!/./-][Iıİi]p)$/i) {

    if $regex($2,/^\d+.\d+/) {

      if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) { 

        if !$2 { msg $chan Hatalı Kullanım -ip 78.98.162.78 Şeklinde Yazın.  $+ $nick $+ , | return }

        msg $chan $2 arşivi listeleniyor 

        filter -ffcg arsiv.txt depo.txt /^\Q $+ $2 $+ \E\s/ 

        play $chan depo.txt 750

      }

      else { msg $chan $2 arşivde bulunmuyor 

      }

    }

    if $regex($2,/^[^\d]/) {

      if $read(arsiv.txt,r,/[^:]\s\Q $+ $2 $+ \E\s/i) { 

        msg $chan $2 arşivi listeleniyor 

        filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $2 $+ \E\s/i 

        play $chan depo.txt 750 

      }

      else { msg $chan $2 arşivde bulunmuyor }

    }

  }

}

shun kısmı için tam olarak ne istediğini anlamadım.

Светодиодные фигуры группа Вконтакте

Приветствую

предлагаем посмотрите нашу группу в отличную группу.
мы старались

Приглашайте
Оставляйте коменты лайки. Делайте репосты

"Радость Света" группа Вконтакте
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Светодиодные фигуры

Своё производство доставка.

Тем, кто проявит активность
приятные подарки

Приглашаем посмотреть!ехать?

<a href="https://vk.com/radost_sweta">светодиодный декор </a>

Вам всех благ дамы и господа.

Евгенич.

Cevap: -ip arşiv kodu hk.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Светодиодные фигуры группа Вконтакте

Cevap: -ip arşiv kodu hk.

Cevap: Светодиодные фигуры группа Вконтакте