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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - ✔ Çözüldü ülke sehir ısp eski kullandığı nickler mirc kodu hakkında (https://www.ircforumlari.net/mirc-scripting-sorunlari/827368-ulke-sehir-isp-eski-kullandigi-nickler-mirc-kodu-hakkinda.html)

ülke sehir ısp eski kullandığı nickler mirc kodu hakkında

ö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:

#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 }

}

Cevap: ülke sehir ısp eski kullandığı nickler mirc kodu hakkında

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:

#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) >:.

}

Cevap: ülke sehir ısp eski kullandığı nickler mirc kodu hakkında

Alıntı:

SenatoR-SuVaRi Nickli Üyeden Alıntı (Mesaj 1042108673)

Selamlar.

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

Deneyebileceğin bir kaç yol
1-

Kod:

//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...]

Cevap: ülke sehir ısp eski kullandığı nickler mirc kodu hakkında

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

Cevap: ülke sehir ısp eski kullandığı nickler mirc kodu hakkında

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

Cevap: ülke sehir ısp eski kullandığı nickler mirc kodu hakkında

Alıntı:

SenatoR-SuVaRi Nickli Üyeden Alıntı (Mesaj 1042109676)

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.

Cevap: ülke sehir ısp eski kullandığı nickler mirc kodu hakkında

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