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

3Beğeni(ler)
  • 1 Post By Mesut
  • 1 Post By tugbu
  • 1 Post By Mesut

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Ağustos 2020, 15:08   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
İp bilgisi kodu için yardımcı olabilecek




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#MN-System:{ if $regex($1,/^[!.&-][ıiİ]p$/Si) { if !$2 { msg # Lütfen Nick/IP belirtiniz. Kullanımı:4 !ip [IP|NICK] } elseif $regex($2,/\d+\.\d+\.\d+\.\d+/Si) { if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($2),) IP'ine ait kayıt bulunamadı. | return } msg # =====" 2Nick "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "===== msg # - var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar { var %:read = $read($+(IP/,$strip($2),.txt),%:_ar) msg # $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191)) dec %:_ar } msg # - msg # 4* Bilgi: $+(2,$strip($2),) IP'sine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır. msg # 2=============================================================== msg # - .hadd -ms Ns-list $strip($2) # ns list $+(*@,$strip($2)) } else { if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($5),) Nick'ine ait kayıt bulunamadı. | return } msg # 2=====" 4IP 2"=====" 4Ident 2"=====" 4Action 2"=====" 4Saat 2"===== " 4Tarih 2"===== msg # - var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar { var %:read = $read($+(IP/,$strip($2),.txt),%:_ar) msg # $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191)) dec %:_ar } msg # - msg # 4* Bilgi: $+(2,$strip($2),) Nick'ine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır. msg # 2=============================================================== msg # - } } } on *:notice:*:?:{ if ($nick == NickServ) { if $regex($1-,/uyan veriler:/Si) && $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { msg $hget(Ns-list,$regml(1)) $+(2,$regml(1),) IP'ine ait NickServ kayıtları. } elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) && $hget(Ns-list,$regml(1)) { msg # $hget(Ns-list,$regml(1)) Nick:4 $strip($1) } elseif $regex($1-,/liste sonu/Si) { $iif($4 == 0/0,msg $hget(NS-list,1).data NickServ de identify edilmiş nick bulunmamaktadır.) .hfree -sw Ns-list } } } on *:snotice:*:{ if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) { var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5), %_hub $regml(1) var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 7005,Mobil,$iif(%_port == 1985,Web,IRC))) Girişi $iif(!$isdir(IP),.mkdir IP) .write $+(IP/,%_ip,.txt) $+($date,¿,$time) %_nick %_ident %_girs .write $+(IP/,%_nick,.txt) $+($date,¿,$time) %_ip %_ident %_girs } elseif $regex($1-,/his\/her nickname to/Si) { var %_nk = $token($1-,-1,32), %_it $token($token($1-,1,64),2,40), %_ips $token($token($1-,2,64),1,41) $iif(!$isdir(IP),.mkdir IP) .write $+(IP/,%_ips,.txt) $+($date,¿,$time) %_nk %_it Nick Değişimi .write $+(IP/,%_nk,.txt) $+($date,¿,$time) %_ips %_it Nick Değişimi } elseif $regex($1-,/Permanent (.+) added for .+@(.+) on.+from (.+)!.+/Si) { .hadd -msu15 IRC-Giris $regml(2) $regml(3) $regml(1) Uyguladı. } elseif $regex($1-,/Client exiting/Si) { if $regex($1-,/Client exiting\: (.+) \((.+)@(.+)\) .+/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $regml(3) } elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) } var %:ban = $hget(IRC-Giris,%_cip) $iif(!$isdir(IP),.mkdir IP) .write $+(IP/,%_cip,.txt) $+($date,¿,$time) %_cnk %_cit $iif(%:ban,%:ban,Sunucudan Çıkış) .write $+(IP/,%_cnk,.txt) $+($date,¿,$time) %_cip %_cit $iif(%:ban,%:ban,Sunucudan Çıkış) $iif($hget(IRC-Giris,%_cip),.hdel -ms IRC-Giris %_cip) } }

Kodun bu şekilde çalışması için ne yapabilirim
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
Fark edilmek için fark yapmak fark yapmak için meydan okumak gerekir.

Konu Emrehan tarafından (11 Ağustos 2020 Saat 16:35 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 12 Ağustos 2020, 11:29   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp bilgisi kodu için yardımcı olabilecek




Danger Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#MN-System:{ if $regex($1,/^[!.&-][ıiİ]p$/Si) { if !$2 { msg # Lütfen Nick/IP belirtiniz. Kullanımı:4 !ip [IP|NICK] } elseif $regex($2,/\d+\.\d+\.\d+\.\d+/Si) { if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($2),) IP'ine ait kayıt bulunamadı. | return } msg # =====" 2Nick "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "===== msg # - var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar { var %:read = $read($+(IP/,$strip($2),.txt),%:_ar) msg # $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191)) dec %:_ar } msg # - msg # 4* Bilgi: $+(2,$strip($2),) IP'sine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır. msg # 2=============================================================== msg # - .hadd -ms Ns-list $strip($2) # ns list $+(*@,$strip($2)) } else { if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($5),) Nick'ine ait kayıt bulunamadı. | return } msg # 2=====" 4IP 2"=====" 4Ident 2"=====" 4Action 2"=====" 4Saat 2"===== " 4Tarih 2"===== msg # - var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar { var %:read = $read($+(IP/,$strip($2),.txt),%:_ar) msg # $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191)) dec %:_ar } msg # - msg # 4* Bilgi: $+(2,$strip($2),) Nick'ine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır. msg # 2=============================================================== msg # - } } } on *:notice:*:?:{ if ($nick == NickServ) { if $regex($1-,/uyan veriler:/Si) && $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { msg $hget(Ns-list,$regml(1)) $+(2,$regml(1),) IP'ine ait NickServ kayıtları. } elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) && $hget(Ns-list,$regml(1)) { msg # $hget(Ns-list,$regml(1)) Nick:4 $strip($1) } elseif $regex($1-,/liste sonu/Si) { $iif($4 == 0/0,msg $hget(NS-list,1).data NickServ de identify edilmiş nick bulunmamaktadır.) .hfree -sw Ns-list } } } on *:snotice:*:{ if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) { var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5), %_hub $regml(1) var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 7005,Mobil,$iif(%_port == 1985,Web,IRC))) Girişi $iif(!$isdir(IP),.mkdir IP) .write $+(IP/,%_ip,.txt) $+($date,¿,$time) %_nick %_ident %_girs .write $+(IP/,%_nick,.txt) $+($date,¿,$time) %_ip %_ident %_girs } elseif $regex($1-,/his\/her nickname to/Si) { var %_nk = $token($1-,-1,32), %_it $token($token($1-,1,64),2,40), %_ips $token($token($1-,2,64),1,41) $iif(!$isdir(IP),.mkdir IP) .write $+(IP/,%_ips,.txt) $+($date,¿,$time) %_nk %_it Nick Değişimi .write $+(IP/,%_nk,.txt) $+($date,¿,$time) %_ips %_it Nick Değişimi } elseif $regex($1-,/Permanent (.+) added for .+@(.+) on.+from (.+)!.+/Si) { .hadd -msu15 IRC-Giris $regml(2) $regml(3) $regml(1) Uyguladı. } elseif $regex($1-,/Client exiting/Si) { if $regex($1-,/Client exiting\: (.+) \((.+)@(.+)\) .+/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $regml(3) } elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) } var %:ban = $hget(IRC-Giris,%_cip) $iif(!$isdir(IP),.mkdir IP) .write $+(IP/,%_cip,.txt) $+($date,¿,$time) %_cnk %_cit $iif(%:ban,%:ban,Sunucudan Çıkış) .write $+(IP/,%_cnk,.txt) $+($date,¿,$time) %_cip %_cit $iif(%:ban,%:ban,Sunucudan Çıkış) $iif($hget(IRC-Giris,%_cip),.hdel -ms IRC-Giris %_cip) } }

Kodun bu şekilde çalışması için ne yapabilirim
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Yapmıştı Böyle Bir şey Baktınızmı

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

 
Alıntı ile Cevapla

Alt 01 Eylül 2020, 12:43   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp bilgisi kodu için yardımcı olabilecek




Danger vallah anlamam ama konu listede dursun diye sey ettim🤣🤣

 
Alıntı ile Cevapla

Alt 01 Eylül 2020, 12:53   #4
Çevrimdışı
~ SohbetElit.com ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp bilgisi kodu için yardımcı olabilecek




tugbu Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Danger vallah anlamam ama konu listede dursun diye sey ettim🤣🤣

Tugbu reis bu Code Sanami lazım?

__________________
Zamana bıraktıklarımızı zamanla bıraktık.
 
Alıntı ile Cevapla

Alt 01 Eylül 2020, 12:59   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp bilgisi kodu için yardımcı olabilecek




BordoTurk Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Tugbu reis bu Code Sanami lazım?

Yok dangere lazımmış jsjsjs ben ne edicim sjsj

 
Alıntı ile Cevapla

Alt 01 Eylül 2020, 13:07   #6
Çevrimdışı
~ SohbetElit.com ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp bilgisi kodu için yardımcı olabilecek




tugbu Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yok dangere lazımmış jsjsjs ben ne edicim sjsj

Tmm ozaman reis
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Sana lazımsa sederdimde şey etmeye gerek yok :d

__________________
Zamana bıraktıklarımızı zamanla bıraktık.
 
Alıntı ile Cevapla

Cevapla

Etiketler
bot, cide, kod


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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Anope-1.7.21 3 haneli giriş kodu hakkında bana tam yardımcı olabilecek??? ryannn Unreal IRCd 4 26 Eylül 2009 00:47
yardımcı olabilecek? asi-ve-mavi PHP 3 29 Eylül 2008 08:16
Yardımcı Olabilecek ? EGEMAN PHP 2 15 Eylül 2008 11:22
Yardımcı Olabilecek Var Mı ? Radows mIRC Scripting Sorunları 2 12 Haziran 2008 00:16
yardımcı olabilecek varmı? Ahm£t Google 2 20 Mayıs 2008 18:25