lookjapan.COM - IRC ve mIRC dünyasının forumu!   buy vps


  lookjapan.COM - IRC ve mIRC dünyasının forumu! IF - mIRC Scripting mIRC Scripting Sorunları


Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 09 Şubat 2019, 19:33   #1
 
Fredyyy - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 29 Kasım 2015
Mesajlar: 6
WEB Sitesi: Yok
IRC Sunucusu: Yok
İlgi Alanı:
Alınan Beğeni: 1
Standart -ip arşiv kodu hk.

PHP- Kodu: 
on *:snotice:*:{
if (*
client*connectiswm $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,$readnarsiv.txt }
write arsiv.txt %difyip %difynick 4Ident: $+ %difyident 1Son Girişi: $+($time,-,$date
}
elseif (*
changed*his*her*nicknameiswm $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,$readnarsiv.txt }
write arsiv.txt %difyzip %difynickz 4Ident: $+ %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,/^\$+ $$+ \E\s/) { 
if !$
msg $chan Hatalı Kullanım 4-ip 78.98.162.78 1Şeklinde Yazın$+ $nick $+ 1, | return }
msg $chan $2 arşivi listeleniyor 
filter 
-ffcg arsiv.txt depo.txt /^\$+ $$+ \E\s
play $chan depo.txt 750
}
else { 
msg $chan $2 arşivde bulunmuyor 
}
}
if 
$regex($2,/^[^\d]/) {
if 
$read(arsiv.txt,r,/[^:]\s\$+ $$+ \E\s/i) { 
msg $chan $2 arşivi listeleniyor 
filter 
-ffcg arsiv.txt depo.txt /[^:]\s\$+ $$+ \E\s/
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.
 Fredyyy isimli Üye şimdilik offline konumundadır   Alıntı
Alt 09 Şubat 2019, 20:33   #2
 
pCkOpAt - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 03 Kasım 2016
Bulunduğu yer: Rize
Mesajlar: 139
WEB Sitesi: www.sohbetciyiz.net
IRC Sunucusu: irc.sohbetciyiz.net
İlgi Alanı: mIRC Scripting
Alınan Beğeni: 63
Standart 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.
 pCkOpAt isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
client, raw


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Amsg Muaf Kodu AntepLi Hazır Kodlar 0 01 Mart 2019 13:41
CR de Söz Yazma Kodu Goemon ConferenceRoom 0 05 Mart 2015 10:51
!nerden Kodu Toprak Hazır Kodlar 1 17 Şubat 2015 00:54
Motd Kodu Goemon ConferenceRoom 0 15 Şubat 2015 17:02
mIRC Scripting Hazır Kodlar Arşiv Toprak Hazır Kodlar 0 26 Ocak 2015 00:55

web hosting web hosting
 buy vds
 vps buy

Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.