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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Maalesef baska onerınız varmıdır :)

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

Alıntı:

diE Nickli Üyeden Alıntı (Mesaj 1042469299)

ssl geçtikleri için birazda tasarım değiştiğinden çalışmaması normal

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] el atar müsait zamanda sayın coderlerimiz : ) şimdiden elinize sağlık

Uzun süredir aynı çizgide devam eden site evrim geçirmiş. Bunu güncellemek gerek. (En kısa zamanda) ;idea

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

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1042470787)

Uzun süredir aynı çizgide devam eden site evrim geçirmiş. Bunu güncellemek gerek. (En kısa zamanda) ;idea

Katılıyorum :)

Kod:

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)

    echo -st 2[ 4Giriş 2] *** Nick:4 %:n 3- IP:4 %ip 3- Ulke:4 %ülke 3- Sehir:4 %sehir 3- ISP:4 %:isp 3- Saat:4 $timestamp

  }

}

on *:sockclose:pro*:{ .hfree $token($sock($sockname).mark,2,191) }

Not: mIRC'te SSL aktif olması gerekmekte.

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tablo yok diyor :)

Kod:

* /hfree: 'Alem' Tablo yok

-

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

Alıntı:

Sadullah Nickli Üyeden Alıntı (Mesaj 1042470800)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tablo yok diyor :)

Kod:

* /hfree: 'Alem' Tablo yok

 -

o sorun değil onu sockclose kısmında if $hget($token($sock($sockname).mark,2,191)) koşulu ile kontrol ederiz. Normalde nick e tablo oluşturuyor verileri onun içine ekliyor.

Kod:

on *:sockclose:pro*:{ if $hget($token($sock($sockname).mark,2,191)) { hfree $token($sock($sockname).mark,2,191) } }

Veriyi almadı o zaman?

Birde sockopen kısmını değiştirdin mi?

-e ekleyip sonundaki portu 443 yaptın mı?

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

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

Alıntı:

Alper Nickli Üyeden Alıntı (Mesaj 1042470809)

o sorun değil onu sockclose kısmında if $hget($token($sock($sockname).mark,2,191)) koşulu ile kontrol ederiz. Normalde nick e tablo oluşturuyor verileri onun içine ekliyor.

Kod:

on *:sockclose:pro*:{ if $hget($token($sock($sockname).mark,2,191)) { hfree $token($sock($sockname).mark,2,191) } }

Veriyi almadı o zaman?

Birde sockopen kısmını değiştirdin mi?

-e ekleyip sonundaki portu 443 yaptın mı?

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

yaptım aynı uyarıyı tekrar alıyorum :)

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

Alıntı:

Sadullah Nickli Üyeden Alıntı (Mesaj 1042470818)

yaptım aynı uyarıyı tekrar alıyorum :)

Aynı uyarıyı alman normal sebebini belirttim zaten :)

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

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1042470787)

Uzun süredir aynı çizgide devam eden site evrim geçirmiş. Bunu güncellemek gerek. (En kısa zamanda) ;idea

Haklısın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] güncellenmesi lazım Gotham City'e yaz geldiği zaman : )

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

Kod:

on *:text:*:#OperLog:{

  if $regex($1,/^[!.][uüÜ]lke/Si) {

    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }

    elseif $regex($2,/^ekle$/Si) {

      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }

      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. }

      elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. }

      else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesine eklendi. }

    }

    elseif $regex($2,/^s[ıiİ]l$/Si) {

      if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. }

      elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. }

      else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. }

    }

    elseif $regex($2,/^l[ıiİ]st$/Si) {

      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }

      else {

        msg # Yasak Ülke Listesi

        msg # -

        var %:t = 1 | while %:t <= $hget(Ulke,0).data {

          msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191)  Ekleyen:2 $token($hget(Ulke,%:t).data,2,191)

          inc %:t

        }

        msg # -

        msg # Yasak Ülke Listesi Sonu

      }

    }

  }

}

on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }

raw 352:*:{ var %:r $r(1000,99999) | sockopen -e $+(ulke,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 | sockmark $+(ulke,%:r) $+($4,¿,$6) }

on *:sockopen:ulke*:{

  if ($sockerr) { .sockclose $sockname | return }

  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 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:ulke*:{ 

  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke

  if $regex($1-,/IP Country: (.+)<img src=/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) }

  elseif $regex($1-,/Town: (.+)/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }

  elseif $regex($1-,/ISP Provider: (.+)<hr>/i) {

    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!)

    if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }

    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname

  }

}

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

Çalıştıran varmı ? lakin ssl kurmama rağmen mirce calıştıramadım
Socket açıyor 443 ile sorun görünmüyor fakat veri almıyor sanırsam