IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar mIRC Girişte Ülke/Şehir/İSP Gösterme
irc

mIRC Girişte Ülke/Şehir/İSP Gösterme
Aytac
mIRC Girişte Ülke/Şehir/İSP Gösterme
0
796
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
mirc isp girişte şehir ülke gösterme

Bu konuyu görüntüleyen kullanıcı(lar):1 Ziyaretçi
Şuan Offine!
Şuan Offine!
Aytac Administrator
********
Proje Sorumlusu

  • Üyelik tarihi    04.02.2020
  • Konum  78 Karabük
  • Konular351
  • Mesajlar364
  • Verilen beğeni8 in 5 posts
  • Alınan beğeni6
  • Rep puanı 6

mIRC Script için girişte ülke,şehir gösteren bir koddur.
Kanal adını degiştirmek istiyorsanız  msg #Opers olan kanal adını degiştirin.

Kod :
menu menubar {
  +> IP Şehir Sorgu
  ..Aç:!if $group(#ipsorgu).status = on { echo 4 -tgae IP Sorgu Zaten AÇIK } | else { /.enable #ipsorgu | echo 4 -tgae IP SORGU AÇILDI | set %ipsorgu on  }
  ..Kapat:!if $group(#ipsorgu).status = off { echo 4 -tgae IP Sorgu Zaten KAPALI } | else { /.disable #ipsorgu | echo 4 -tgae IP Sorgu KAPATILDI | set %ipsorgu off  }
  ..Durum < $replace($group(#ipsorgu).status, off, Kapali, on, Açik) >:.
}

#ipsorgu off
on *:snotice:*on*port*:who +I $9
raw 352:*:var %:sr $r(1000,99999) | ;proxy $4 | snerd $4 $6
alias htmlfree { if ($len($1-) <= 900) { var %sx, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%sx), %sx = $remove(%sx, ,$chr(9)) | return %sx } }
alias snerd {
  :tekrar
  var %:sx $rand(0,9999999)
  if $sock($+(xxsnerden,%:sx)) { goto tekrar }
  sockopen $+(xxsnerden,%:sx) www.ipsorgu.com 80
  sockmark $+(xxsnerden,%:sx) $1
  hadd -m snerden $1 $2
}
on *:sockopen:xxsnerden*: {
  var %komut sockwrite -nt $sockname
  %komut GET $+(/?ip=,$sock($sockname).mark) HTTP/1.1
  %komut Host: www.ipsorgu.com
  %komut User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0
  %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  %komut DNT: 1
  %komut Connection: keep-alive
  %komut Upgrade-Insecure-Requests: 1
  %komut Cache-Control: max-age=0
  %komut $crlf
}

on *:sockread:xxsnerden*: {
  var %sx, %nick  | sockread %sx
  if $regex(%sx,/lke : <em style="color:#666">(.*?)</em></strong>.+ehir : <em style="color:#666">(.*?)</em></strong>/i) {
    var %ulke $regml(1), %sehir $regml(2), %ip $sock($sockname).mark, %nick $token($hget(snerden,$sock($sockname).mark),1,32)
    msg #Opers  45[Login5] 1Nick: 3 %nick 1IP: 3 %ip 1Ulke: 3 $iif(%ulke,$v1,Belirsiz)  1Sehir: 3 $iif(%sehir,$v1,Belirsiz)
    ;msg operserv raw swhois %nick : %ulke , %sehir
    hdel -m snerden %ip
    sockclose $sockname
  }
}
#ipsorgu end


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Girişte Ülke/Şehir/İSP Gösterme 2021 Aytac 0 264 06.04.2021, 22:48
Son Mesaj: Aytac
  mIRC Youtube Remote Aytac 3 1,931 03.04.2021, 12:30
Son Mesaj: iSyan
  mIRC Yurt Dışı Girişlerini Yasaklama Aytac 1 1,933 03.04.2021, 12:29
Son Mesaj: iSyan
  Girişte Şehir ve ISP Yasaklama Aytac 2 527 03.04.2021, 12:26
Son Mesaj: iSyan
  mIRC Tüm Kanalları Aynı Moda Alma Aytac 0 1,891 20.02.2021, 00:03
Son Mesaj: Aytac

Konuyu Okuyanlar ?
1 Kullanıcı Bu Konuyu Okudu:
Aytac (12.04.2021, 03:15)

Foruma Git: