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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Girişte Ülke/Şehir/İSP Gösterme (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/682252-giriste-ulke-sehir-isp-gosterme.html)

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1042483855)

öyle bir durum söz konusu olması mümkün değil, sunucu adresinizi pm atın hatanın kaynağına beraber bakalım.

Çok teşekkürler yardımların için eline sağlık güzel çalışıyor.Zamanını çaldım hakkını helal et

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Merhaba @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Güncellediğiniz Kodlama Aktif şekilde güzel çalışmakta, Ellerinize sağlık
Lakin Türkçe karakter sorunu var. Bilginiz olsun.

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Kod:

on ^*!:nick: {

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

}
 

on *:start: {

  if $isfile(iptakip.63) { hmake iptakip | hload iptakip iptakip.63 }

}
 

#giriste on

;on *:snotice:*Client connecting on port*:who +I $9

on *:snotice:*: {

  if $regex($1-,/Client connecting (on port|at)/Si) { who +I $token($token($1-,1,40),-1,32) }

  elseif $regex($1-,/Sunucuya baglaniyor\.\.\. Baglanan\: (.+) \((.+)\@(.+)\) \- Port\: (.+)/Si) { who +I $regml(1) }

}

raw 352:*:var %:r $r(1000,99999) | sockopen -e $+(pro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 | 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 } } 

alias gtekrar { who +I $regml(1) }

on *:sockopen:pro*:{ 

  sockwrite -nt $sockname GET $+(/locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 

  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: close

  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 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0

  sockwrite -nt $sockname $crlf

}

on *:sockread:pro*:{

  var %:pro

  sockread %:pro

  if $regex(u,%:pro,/IP Country\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Ülke $iif($htmlfree($regml(u,1)) == $null,Belirsiz,$htmlfree($regml(u,1))) }

  if $regex(c,%:pro,/Town\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $iif($htmlfree($regml(c,1)) == $null,Belirsiz,$htmlfree($regml(c,1))) }

  if $regex(i,%:pro,/ISP Provider\x3A\x20(.+)<hr>/Si) {

    var %:isp $iif($htmlfree($regml(i,1)) == $null,Belirsiz,$htmlfree($regml(i,1)))

    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)

    msg #MersinLi 14,1 Nick:0 %:n 1... 14IP:0 %ip 1... 14Ülke:0 %ülke 1... 14Şehir:0 %sehir 1... 14ISP:0 %:isp  2 $iif($hget(iptakip,%ip),Eski Giriş Bulundu:  $v1) 

    hadd -m iptakip %ip $addtok($hget(iptakip,%ip),%:n,32)

    hsave iptakip iptakip.63

    .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, Kapalı, on, Açık) >:.

}
 

menu nicklist   {

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

}

bendekide yansıtmıyor artık. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstad.

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Nea Nickli Üyeden Alıntı (Mesaj 1042487280)

Kod:

on ^*!:nick: {

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

}
 

on *:start: {

  if $isfile(iptakip.63) { hmake iptakip | hload iptakip iptakip.63 }

}
 

#giriste on

;on *:snotice:*Client connecting on port*:who +I $9

on *:snotice:*: {

  if $regex($1-,/Client connecting (on port|at)/Si) { who +I $token($token($1-,1,40),-1,32) }

  elseif $regex($1-,/Sunucuya baglaniyor\.\.\. Baglanan\: (.+) \((.+)\@(.+)\) \- Port\: (.+)/Si) { who +I $regml(1) }

}

raw 352:*:var %:r $r(1000,99999) | sockopen -e $+(pro,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 | 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 } } 

alias gtekrar { who +I $regml(1) }

on *:sockopen:pro*:{ 

  sockwrite -nt $sockname GET $+(/locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1 

  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: close

  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 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0

  sockwrite -nt $sockname $crlf

}

on *:sockread:pro*:{

  var %:pro

  sockread %:pro

  if $regex(u,%:pro,/IP Country\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Ülke $iif($htmlfree($regml(u,1)) == $null,Belirsiz,$htmlfree($regml(u,1))) }

  if $regex(c,%:pro,/Town\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $iif($htmlfree($regml(c,1)) == $null,Belirsiz,$htmlfree($regml(c,1))) }

  if $regex(i,%:pro,/ISP Provider\x3A\x20(.+)<hr>/Si) {

    var %:isp $iif($htmlfree($regml(i,1)) == $null,Belirsiz,$htmlfree($regml(i,1)))

    var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)

    msg #MersinLi 14,1 Nick:0 %:n 1... 14IP:0 %ip 1... 14Ülke:0 %ülke 1... 14Şehir:0 %sehir 1... 14ISP:0 %:isp  2 $iif($hget(iptakip,%ip),Eski Giriş Bulundu:  $v1) 

    hadd -m iptakip %ip $addtok($hget(iptakip,%ip),%:n,32)

    hsave iptakip iptakip.63

    .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, Kapalı, on, Açık) >:.

}
 

menu nicklist   {

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

}

bendekide yansıtmıyor artık. @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstad.

eski kodu kullanıyorsun bu posttakini kullanman gerek
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Hocam, "/s -n" kısaltma yazabilmek için mIRC'e ne eklememiz gerekir?

Cevap: Girişte Ülke/Şehir/İSP Gösterme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] merhaba kodda türkçe karakter hatası var bilgin olsun yoksa işleyişinde sorun yok
şu sekilde örnek
GİRİS Nick:( Misafir1756 ) [»] IP: [»] Ulke: "TR", [»] Sehir: "Ä°zmir", [»] Firma: "AS207429 Kapteyan Bilisim Teknolojileri"

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Alıntı:

Gazeffer Nickli Üyeden Alıntı (Mesaj 1042493660)

Hangi mirc sürümünü kullanıyorsunuz.

Cevap: Girişte Ülke/Şehir/İSP Gösterme

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] mIRC v6.35 kullanıyorum

Cevap: Girişte Ülke/Şehir/İSP Gösterme

Bende kullanıyorum Sorun görünmüyor.

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

Cevap: Girişte Ülke/Şehir/İSP Gösterme

exe degişeyim genede bir deniyeyim bende @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]