Girişte Ülke/Şehir/İSP Gösterme - Sayfa 3 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

SuLh · 16 Eylül 2015, 15:05

Z-Lined Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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: Kodu kopyalamak için üzerine çift tıklayın!

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

* /if: '<=' Bilinmeyen operator (Satir 7, script8.ttf)
-
* /if: '<=' Bilinmeyen operator (Satir 7, script8.ttf)
-
* /if: '<=' Bilinmeyen operator (Satir 7, script8.ttf)

Socket Bota Entegre ederken sorun yaşıyorum

BydeLi1 · 20 Eylül 2016, 22:57

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

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

@[Ü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

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: Kodu kopyalamak için üzerine çift tıklayın!

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

Şu an vermiyor site güncelleyecek varmı

No_FeaR · 20 Ekim 2018, 19:50

Deneyecek sunucum yok, Telefondan yaptım, Umarım doğrudur.. (;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

No_FeaR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Telefondan yaptım, Umarım doğrudur.. (;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
ülke Şehir Yeni	Z-Lined	mIRC Scripting Hazır Kodlar	6	09 Aralık 2011 15:56
Ülke-Şehir Bulucu.	h4pp3n	mIRC Scripting Hazır Kodlar	24	01 Nisan 2011 11:36
28 ülke, 67 fotoğrafçı, tek şehir	pyracantha	Sinema Dünyası	0	30 Aralık 2010 18:59
Whois'de ülke gösterme Yardim Pls...	GamSe	Unreal IRCd	4	05 Şubat 2008 22:24

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.