IRCSayfasi - mIRCDunyasi, mIRCForumlari, mIRCRehberi   TaTLiBeLa

Geri Dön   IRCSayfasi - mIRCDunyasi, mIRCForumlari, mIRCRehberi > mIRC Scripting Dünyası > mIRC Scripting Hazır Kodlar > mIRC Parça Kodlar

Etiketlenen üyelerin listesi

Yeni Konu Aç  Cevapla
 
LinkBack Seçenekler Stil
Alt 19 Eylül 2020, 17:20   #1
Çevrimdışı
aSK
Örnek ResimÖrnek Resim
aSK - ait Kullanıcı Resmi (Avatar)
Nick - IP - Sehir - "GLİNE" - "NICKBAN" - "SHUN


-- Sponsor Baglantı --



Nick - IP - Sehir - "GLİNE" - "NICKBAN" - "SHUN


PHP- Kodu:
on ^*:hotlink:"*":#:if ($regex($1,/^"(GLINE|NICKBAN|SHUN)"$/)) returnex 
on *:hotlink:*:*: {
  var %
_word $noqt($1),%_ip $token($hotline,6,32),%_nick $token($hotline,5,32)
  if ($(,%
_word) = nickban) { var %| while ($comchan($(,%_nick),%1)) { ban -k $v1 $(,%_nick2 sebeb. | inc %} }
  if ($(,%
_word) = shunshun $(,%_nick
  if ($(,%
_word) = glinegline $(,%_nick) :sebeb.
  echo 
4 $target IP: %_ip NICK: %_nick Clicked: %_word atıldı.
}

on  ^&*:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +$}
on ^*:join:#: {
  
if $nick == $me { return }
  if 
o isin $usermode 
    if 
$hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(giris,$nick) 1 $hget(sehir,$nick) "GLINE" - "NICKBAN" - "SHUN" | haltdef }
    
else { 
      
hadd -m chan $nick $addtok($hget(chan,$nick),#,32)
      
if !$sock($+(nrdbul,$nick)) { who +I $nick }
      
haltdef
    
}
  }
}
raw 352:*:bul $$haltdef
alias bul 
{
  
sockopen $+(nrdbul,$2www.ipaddress********.org 80 
  sockmark 
$+(nrdbul,$2) $+($1,*,$2)

alias htmlfree { if ($len($1-) <= 900) { var %x, %$regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %$remove(%x, ,$chr(9)) | return %} }  
on *:sockopen:nrdbul*:{
  
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,42)) HTTP/1.1  
  sockwrite 
-nt $sockname Hostwww.ipaddress********.org  
  sockwrite 
-nt $sockname Connectionkeep-alive 
  sockwrite 
-nt $sockname Accepttext/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 *:sockread:nrdbul*:{   
  var %x | sockread %x
  if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) }   
  if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) }
  if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) { 
    hadd -mu5 $sockname webisp $regml(1)
    hadd -mu5 $sockname webnick $token($sock($sockname).mark,2,42)
    hadd -mu5 $sockname webip $token($sock($sockname).mark,1,42)
    hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick))
   $iif($hget(chan,$hget($sockname,webnick)),hdel -m chan $hget($sockname,webnick))
    hadd -m giris $hget($sockname,webnick) $hget($sockname,webip)
    hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41)) 
    tokenize 32 $hget($sockname,webchan)
    echo $* $+($chr(3),$color(join)) $timestamp *** Giriş: $hget($sockname,webnick) $hget(giris,$hget($sockname,webnick)) 1 $hget(sehir,$hget($sockname,webnick))  
  }  
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
  Alıntı ile Cevapla

İS Reklam
 Reklam Verin
Yeni Konu Aç  Cevapla

Etiketler
nick - ıp - sehir - "gline" - "nıckban" - "shun


Şu an bu konuyu okuyan kişi sayısı: 1 (0 üye ve 1 misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Twitter, Adını "x.com" Olarak Değiştirdiği İçin Bir Ülkede Yasaklandı CeSy X 0 28 Temmuz 2023 23:20
TTNET, Vikipedi’deki "Cinsel" İçerikli Kelimeleri Engelledi GeN TTNET 0 05 Şubat 2021 10:06
"Facebook" / "Twitter" / "Instagram" da en son ne paylaştınız? RoJ Forum Oyunları 0 12 Ocak 2021 07:23
GTA Online'a Efsane Oyunlar İçeren "Serbest Mod" Yarın Geliyor! RoJ GTA 0 30 Aralık 2020 03:55
Tencent'ın değeri "WeChat" sonrası 66 milyar dolar eridi GeN Ekonomi Haberleri 0 10 Ağustos 2020 21:32