IRCForumları , IRC Forum , Forum Sitesi  

  IRCForumları , IRC Forum , Forum Sitesi IF - mIRC Scripting mIRC Scripting Sorunları

 


instagram beğeni satın al instagram takipçi satın al twitter takipçi satın al mosaic lamp mz parts içerik reseller hosting wordpress hosting ikinci el araba endüstriyel mutfak buy steroids buy steroids usa buy supplements usa fiziksel sunucu sunucu kiralama vps weekly ad epin kurtköy escort escort bayan denizli escort jigolo pubg mobile uc eta saat fiberix gaziantep inşaat firmaları wordpress uzmanı metin2 forum etil alkol etil alkol etil alkol dizi forum film
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
Konuları:
WEB Sitesi: Yok
IRC Sunucusu: Yok

Aldığı Beğeni: 1
Verdiği Beğeni: 4
-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.

Çevrimdışı
   
  Alıntı

Alt 09 Şubat 2019, 20:33   #2

pCkOpAt - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 03 Kasım 2016
Mesajlar: 139
Konuları:
WEB Sitesi: www.sohbetciyiz.net
IRC Sunucusu: irc.sohbetciyiz.net
İlgi Alanı: mIRC Scripting
Aldığı Beğeni: 63
Verdiği Beğeni: 50
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.

Çevrimdışı
   
  Alıntı


Yeni Konu   Cevap Yaz

Bookmarks

Etiketler
client, raw


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

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