IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 3 Toplam 13 Sayfadan 12 3 45678910 SonSayfa »
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

SuLh 16 Eylül 2015 15:05
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
Z-Lined Nickli Üyeden Alıntı (Mesaj 1041683817)
Peki hocam bunları hem kanala, hem giren kişinin özeline , hemde @Şehir < olarak bir pencerede <Nick> ülke şehir ip vs şeklinde nasıl yapabiliriz?
Kod:
on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 *: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)
    $iif(!$window(@Giriş),window -e @Giriş)
msg %:n Girişiniz: - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
msg #kanal Nick: 4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
    .echo @Şehir Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
    .hfree -sw %:n
    sockclose $sockname
  }
}

Dizqinshell 19 Ağustos 2016 02:03
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
* /if: '&lt;=' Bilinmeyen operator (Satir 7, script8.ttf)
-
* /if: '&lt;=' Bilinmeyen operator (Satir 7, script8.ttf)
-
* /if: '&lt;=' Bilinmeyen operator (Satir 7, script8.ttf)

Socket Bota Entegre ederken sorun yaşıyorum

BydeLi1 20 Eylül 2016 22:57
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Emeğine SAygılar güzel calısma olmus


Nick:4 konyamoney - IP:4 46.197.166.219 - Ulke:4 Turkey - Sehir:4 Konya - ISP:4 Turksat Uydu-Net Internet
Sevgin (/WHO) listesinin sonu
Nick:4 Sevgin - IP:4 78.50.184.16 - Ulke:4 Germany - Sehir:4 Stuttgart - ISP:4 Telefonica Germany
Nick:4 wayber - IP:4 62.158.127.184 - Ulke:4 Germany - Sehir:4 Greifswald - ISP:4 Deutsche Telekom AG
Nick:4 wayber - IP:4 62.158.127.184 - Ulke:4 Germany - Sehir:4 Greifswald - ISP:4 Deutsche Telekom AG

M-Sohbet 22 Eylül 2018 03:21
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
toprak üsdatım bu kodun bilgileri çektiği site çalışmıyor sanırsam eğer mümkünse sana zahmet kodu güncelleyebilirmisin tabi varsa bilgileri çekebileceği bir site yine sizde bir bakarsınız zahmet olmazsa eğer :(



on *:snotice:*Client connecting on port*:who +I $9
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 *: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)
$iif(!$window(@Giriş),window -e @Giriş)
.echo @Giriş Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
.hfree -sw %:n
sockclose $sockname
}
}

Che 22 Eylül 2018 12:01
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Kod:
on *:snotice:*Client connecting*:who +I $token($token($7-,1,40),-1,32)
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 *: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)
    $iif(!$window(@Ülke/Şehir/İSP),window -e @Ülke/Şehir/İSP)
    .echo @Ülke/Şehir/İSP •[Nick:2 %:n 1] - •[IP:2 %ip 1] - •[Ulke:2 %ülke 1] - •[Sehir:2 %sehir 1] - •[ISP:2 %:isp ] - •[Saat :2 $time ] - •[Tarih :2 $date ]
    .hfree -sw %:n
    sockclose $sockname
  }
}

Alper 22 Eylül 2018 16:39
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Dün sitede sorun vardı bugün çalışıyor site aynı kodu kullanabilirsin.

Zanay 18 Ekim 2018 15:27
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Merhaba ;
The DFS Socket Botunda Bu Bölüm Var Ama Sunucuya Bağlananların IP Bilgisi Yansımıyor. Benim İstediğim #Opers Kanalına Sunucuya Bağlananların Bilgisi Yansıması. Normal Mirc`e Script Kodu Olarak Eklendiğinde Kanala Yansıyor Ama Socket Bot Olarak Olmuyor.

Kod:
alias nerden {
  var %:r $+(10,99999)
  sockopen $+(yerbul,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  sockmark $+(yerbul,%:r) $+($1,¿,$2)
}
on *:sockopen:yerbul*:{ 
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
  sockwrite -n $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $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 -n $sockname $crlf
}
on *:sockread:yerbul*: { 
  if ($sockerr) { sockclose $sockname | returnex }
  var %yerbul
  sockread %yerbul
  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { swbot privmsg $_opers 15,1 Host:4 $regml(hst,2)  }
  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { swbot privmsg $_opers 15,1 Ülke:4 $regml(cnt,2)  }
  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Kıta:4 $regml(kta,2)  }
  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Bölge:4 $regml(rgn,2)  }
  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Şehir:4 $regml(cty,2)  }
}

thelord 20 Ekim 2018 19:35
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Şu an vermiyor site güncelleyecek varmı

No_FeaR 20 Ekim 2018 19:50
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Deneyecek sunucum yok, Telefondan yaptım, Umarım doğrudur.. (;

Kod:
alias nerden {
  var %:r $+(10,99999)
  sockopen $+(yerbul,%:r) http://proxy-tr.blogspot.com/2018/05/02-05-2018-guncel-proxy-list.html 80
  sockmark $+(yerbul,%:r) $+($1,¿,$2)
}
on *:sockopen:yerbul*:{ 
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
  sockwrite -n $sockname host: http://proxy-tr.blogspot.com/2018/05/02-05-2018-guncel-proxy-list.html
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,proxy-tr.blogspot/xhtml+xml,proxy-tr.blogspot/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $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 -n $sockname $crlf
}
on *:sockread:yerbul*: { 
  if ($sockerr) { sockclose $sockname | returnex }
  var %yerbul
  sockread %yerbul
  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { swbot privmsg $_opers 15,1 Host:4 $regml(hst,2)  }
  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { swbot privmsg $_opers 15,1 Ülke:4 $regml(cnt,2)  }
  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Kıta:4 $regml(kta,2)  }
  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Bölge:4 $regml(rgn,2)  }
  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Şehir:4 $regml(cty,2)  }
}

thelord 20 Ekim 2018 19:53
Cevap: Girişte Ülke/Şehir/İSP Gösterme
 
Alıntı:
No_FeaR Nickli Üyeden Alıntı (Mesaj 1041992569)
Telefondan yaptım, Umarım doğrudur.. (;

Kod:
alias nerden {
  var %:r $+(10,99999)
  sockopen $+(yerbul,%:r) http://proxy-tr.blogspot.com/2018/05/02-05-2018-guncel-proxy-list.html 80
  sockmark $+(yerbul,%:r) $+($1,¿,$2)
}
on *:sockopen:yerbul*:{ 
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
  sockwrite -n $sockname host: http://proxy-tr.blogspot.com/2018/05/02-05-2018-guncel-proxy-list.html
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,proxy-tr.blogspot/xhtml+xml,proxy-tr.blogspot/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $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 -n $sockname $crlf
}
on *:sockread:yerbul*: { 
  if ($sockerr) { sockclose $sockname | returnex }
  var %yerbul
  sockread %yerbul
  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { swbot privmsg $_opers 15,1 Host:4 $regml(hst,2)  }
  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { swbot privmsg $_opers 15,1 Ülke:4 $regml(cnt,2)  }
  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Kıta:4 $regml(kta,2)  }
  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Bölge:4 $regml(rgn,2)  }
  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { swbot privmsg $_opers 15,1 Şehir:4 $regml(cty,2)  }
}
Kardeşim bunu mesela x kanalına yansıtmasını istiyoruz varmıdır böyle birşey


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16:32.
Sayfa 3 Toplam 13 Sayfadan 12 3 45678910 SonSayfa »
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk