IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   sunucuya girenlerin bulundukları il hk. (https://www.ircforumlari.net/mirc-scripting-sorunlari/373213-sunucuya-girenlerin-bulunduklari-il-hk.html)

cashmare 23 Aralık 2010 17:44

sunucuya girenlerin bulundukları il hk.
 
s.a arkadaşlar sunucuya giren herkesi
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]=
bu siteden ipini sorgulatarak
who +I nick komutuyla ipini alıp
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]=
buradan sorgulatarak burada cıkan city
ve State or Region kısmına karşılık gelen yerleri echo -a ile önümde görmek istiyorum
olabilir mi böyle bi code

sad33 23 Aralık 2010 21:25

Cevap: sunucuya girenlerin bulundukları il hk.
 
Kod:

w 340:*:{
if $
2- == $null { msg #dns Ulkesine Baktığınız Nick - %ulkenick - Sunucumuzda Online Değil, Lütfen Başka Bir Nick Deneyiniz. | halt }
set %ulkenick $remove($gettok($2-,1,61),*)
set %ulkeip $gettok($2-,2,64)
ulkebul
halt
}
alias ulkebul {
sockclose ulke
sockopen ulke
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="#007700">.
melissadata.com 80
}
on *:sockopen:ulke:{
if (
$sockerr) { msg #dns İşlem Gerçekleştirilemedi Lütfen Daha Sonra Tekrar Deneyin | halt }
sockwrite -n $sockname GET /lookups/iplocation.asp?ipaddress= $+ %ulkeip HTTP/1.1
sockwrite
-n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="#007700">.
melissadata.com $+ $crlf $+ $crlf
sockwrite
-n $sockname $clrf
}
on *:sockread:ulke:{
var %
ulkeoku
sockread
%ulkeoku
if (%ulkeoku != $null) { 
if (*>
City<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Sehir :4 $remove(%ulkeoku,<tr><td align="right">City</td><td><b>,</b></td></tr>, ) }
if (*State*or*Region* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Bolge :4 $remove(%ulkeoku,<tr><td align="right">State or Region</td><td><b>,</b></td></tr>, ) }
if (*>Country<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Ulke :4 $remove(%ulkeoku,<tr><td align="right">Country</td><td><b>,</b></td></tr>, ) }
if (*>ISP<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Baglandigi ADSL :4 $remove(%ulkeoku,<tr><td align="right">ISP</td><td><b>,&nbsp;</b></td></tr>, ) | sockclose $sockname }
}
}
on *:text:*:#dns:{
if ($1 == !ulke) {
if (
$sock(ulke)) { msg #dns Suanda Baska Bir Nick'in Bilgilerine Bakılıyor Lütfen Daha Sonra Tekrar Deneyin | halt }
set %ulkenick $remove($2,*)
set %mesajnick $nick
userip
$2
msg $chan Lütfen Bekleyiniz
...
msg $chan $2 Nickinin ISP Adresi Kontrol Ediliyor..
}
}






istediğin tam olarak bu değil ama belki işine yarayabilir.

CODED : HaLiL (XcLusive)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 05:39.

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