Çözüldü ülke sehir ısp eski kullandığı nickler mirc kodu hakkında - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

SenatoR-SuVaRi · 29 Haziran 2019, 19:49

öncelikle selam güzel ifler dilerim bir konu hakkında yardımınıza ihtiyac duymaktayım ülke sehir ısp mirc koduna eski nickleride göstersin diye bir eklenti yaptım ilk basta calıştı ama girişleri cift verince
02[19:07] <06SuVaRi> ( GiRiS ) == 2 Nick: 4 adanamm == 2 IP: 5 176.33.244.108 == 2- Ulke: 11 Turkey == 2 - Sehir: 7 Adana == 2- ISP: 4 Superonline ADSL 1 Önceki KuLandığı Nickler:1 2 adana adanalı seyhanlı seyhanda benim benim_adana adanam cukurovada adanaaa SuVaRi deneme1 ilker
02[19:07] <06SuVaRi> ( GiRiS ) == 2 Nick: 4 adanamm == 2 IP: 5 176.33.244.108 == 2- Ulke: 11 Turkey == 2 - Sehir: 7 Adana == 2- ISP: 4 Superonline ADSL 1 Önceki KuLandığı Nickler:1 2 adana adanalı seyhanlı seyhanda benim benim_adana adanam cukurovada adanaaa SuVaRi deneme1 ilker böyle bende düzeltek istedima ama sanırım başaramadım yardımcı olabilirmisniz

kod bu

Kod: Kodu kopyalamak için üzerine çift tıklayın!

#giriste on
on *:snotice:*Client connecting*:who +I $token($token($7-,1,40),-1,32)
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:pro*:{ 
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 
  sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}

on ^*!:nick: {
  if $regex($usermode,o) { set %tkp. [ $+ [ $newnick ] ] 1 | who +I $newnick }
}

raw 352:*: {
  if %tkp. [ $+ [ $6 ] ] {
    if   $5 == services.neselichat.net { return }
    var %ip = $4
    ; get the previous nicks
    var %nicks = $readini(giris.txt, %ip, nicks)
    ; add the new nick ($addtok will take care of duplicates)
    var %nicks = $addtok(%nicks,$6,32)
    ; update the nicks
    writeini -n giris.txt %ip nicks %nicks
    ; update the seen time
    writeini -n giris.txt %ip seentime $date
    msg #moos 1,7 ( Bağlanan ) - 2 $6 1 - IP Adresi - 2 $4 - 1  Önceki KuLandığı Nickler:1  2 $readini(giris.txt, %ip, nicks) 
    halt
  }
}
raw 315:*: {
  if %tkp. [ $+ [ $2 ] ] {
    unset %tkp. [ $+ [ $2 ] ]
    halt
  } 
} 

on *:sockread:pro*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (ISP Provider: isin %:pro) { 
    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
    msg #ilker ( GiRiS ) ==  2 Nick: 4 %:n == 2 IP: 5 %ip == 2- Ulke: 11 %ülke == 2 - Sehir: 7 %sehir == 2- ISP: 4 %:isp   1  Önceki KuLandığı Nickler:1  2 $readini(giris.txt, %ip, nicks)  
    .hfree -sw %:n
    sockclose $sockname
  }

  #giriste end
  menu menubar {
    +> IP GIRIS
    ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on  }
    ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off  }
    ..Durum < $replace($group(#giriste).status, off, Kapal1, on, Aç1k) >:.
  }  
  
menu nicklist   {
  NickTakip: if $regex($usermode,o) { set %tkp. [ $+ [ $1 ] ] 1 | who +I $$1 }
}

SenatoR-SuVaRi · 30 Haziran 2019, 13:00

hatamı buldm ve sanırım şimdioldu güzelde çalışıyor yalnız anlamadığım ülke yerini boş bırakıyor
Nick: DJ-Kuzey IP: 178.241.11.235 - Ulke: - Sehir: Diyarbakir - ISP: Turkcell Önceki KuLandığı Nickler: Kuzey DJ-Kuzey Kuzey`Away Zaza
kod bu bir bakabilirmisiniz

Kod: Kodu kopyalamak için üzerine çift tıklayın!

#giriste on
on *:snotice:*Client connecting*:userip $token($token($7-,1,40),-1,32)
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:pro*:{ 
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 
  sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on ^*!:nick: {
  if $regex($usermode,o) { set %tkp. [ $+ [ $newnick ] ] 1 | who +I $newnick }
}

raw 352:*: {
  if %tkp. [ $+ [ $2 ] ] { unset %tkp. [ $+ [ $2 ] ] }
  if %tkp. [ $+ [ $6 ] ] {
    if $5 == services.neselichat.net { return }
    var %ip = $4
    ; get the previous nicks
    var %nicks = $readini(giris.txt, %ip, nicks)
    ; add the new nick ($addtok will take care of duplicates)
    var %nicks = $addtok(%nicks,$6,32)
    ; update the nicks
    writeini -n giris.txt %ip nicks %nicks
    halt
  }
}

menu nicklist   {
  NickTakip: if $regex($usermode,o) { set %tkp. [ $+ [ $1 ] ] 1 | who +I $$1 }
}

on *:sockread:pro*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  if (IP Country: isin %:pro) { .hadd -m $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (IP City: isin %:pro) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
  if (ISP Provider: isin %:pro) { 
    var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
    msg #MooS   0,1 Nick: 4 %:n  0 IP: 4 %ip  0- Ulke: 4 %ülke  0 - Sehir: 4 %sehir  0- ISP: 4 %:isp 0 Önceki KuLandığı Nickler:1  4 $readini(giris.txt, %ip, nicks)   
    .hfree -w %:n
    sockclose $sockname
  }
}
#giriste end
menu menubar {
  +> IP GIRIS
  ..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on  }
  ..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off  }
  ..Durum < $replace($group(#giriste).status, off, Kapali, on, Açik) >:.
}

Feragat · 01 Temmuz 2019, 20:45

SenatoR-SuVaRi Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

hatamı buldm ve sanırım şimdioldu güzelde çalışıyor yalnız anlamadığım ülke yerini boş bırakıyor
Nick: DJ-Kuzey IP: 178.241.11.235 - Ulke: - Sehir: Diyarbakir - ISP: Turkcell Önceki KuLandığı Nickler: Kuzey DJ-Kuzey Kuzey`Away Zaza
kod bu bir bakabilirmisiniz

Selamlar.

Kodu, yerli - yabancı bir kaç proxy ip ile denedim. Herhangi bir problem gözükmüyor.

Deneyebileceğin bir kaç yol
1-

Kod: Kodu kopyalamak için üzerine çift tıklayın!

//unset %:n %ülke* %:r*

2- mIRC 6.3x altındaki versiyonlarda değişken tanımlarken var %değişken = değer şeklinde "=" eşittir işareti kullanman gerekebiliyor, üst versiyonlar buna gerek duymuyor.

3- Benzer raw event'ları var ise onları devre dışı bırakman gerekebilir, bunun sebebi kodda aradığın veri yerine sana farklı veri sunabilir.

Şuan aklıma gelen nedenler bunlar. Kolay gelsin.

Test ettiğim IP'lerin Örnek görüntüsü:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

SenatoR-SuVaRi · 01 Temmuz 2019, 22:36

çok tesekkür ederim emeğinize sağlık

SenatoR-SuVaRi · 02 Temmuz 2019, 15:57

Hocam kusura bakmayın yine rahatsız edeceğim biraz yeni farkettimde aynı ipten nick değişerek geldim hiç birinde eski kullandığim nickleri göstermedi sebebi ne olabilir sizce yardımlarınız için şimdiden teşekkür ederim

Alper · 02 Temmuz 2019, 16:11

SenatoR-SuVaRi Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Hocam kusura bakmayın yine rahatsız edeceğim biraz yeni farkettimde aynı ipten nick değişerek geldim hiç birinde eski kullandığim nickleri göstermedi sebebi ne olabilir sizce yardımlarınız için şimdiden teşekkür ederim

Aynı sayfada 2 tane raw 352 var o yüzden çakışmış olabilir. Sonradan eklediğin kodu başka bir sayfada kullanırsan çalışması gerek.

SenatoR-SuVaRi · 02 Temmuz 2019, 17:43

Başka sayfa derken hocam ayırıp yeni remote açıp kodları ayrı ayri eklemek mi lazim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 17:43 -->-> Daha önceki mesaj 17:39 --

raw 352:*: {
if %tkp. [ $+ [ $6 ] ] {
if $5 == services.neselichat.net { return }
var %ip = $4
; get the previous nicks
var %nicks = $readini(giris.txt, %ip, nicks)
; add the new nick ($addtok will take care of duplicates)
var %nicks = $addtok(%nicks,$6,32)
; update the nicks
writeini -n giris.txt %ip nicks %nicks
halt
}
}

Yani burayimi ayrı remote açıp o sayfaya eklemek mi lazım

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Sehir Ülke Domainleri Aranmakta.	TUNAHAN	Domain Arıyorum	9	03 Nisan 2019 07:20
mirc te kanal genelinde yazılan yazılar görünmesin, sadece giren nickler görünsün	xnxx4601	mIRC Scripting Sorunları	1	26 Mart 2015 14:33
mIRC'e Giren Kötü Nickler	Cyptm	mIRC Scripting Sorunları	12	19 Kasım 2007 21:17
Mirc regleme kodu hakkında	Majesti	mIRC Scripting Sorunları	7	29 Haziran 2006 18:41
Guest nickler hakkında	Realinferno	Servisler	1	15 Haziran 2006 10:30

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.