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 Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Ülke-Şehir Bulucu. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/16252-ulke-sehir-bulucu.html)

h4pp3n 24 Nisan 2006 03:19
Ülke-Şehir Bulucu.
 
PHP- Kodu:
raw 401:*: { msg #nerden $2 : Nick'i online degil! }
alias nerden { 
set %ip $1 
sockclose nerden
sockopen nerden 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ripe.net 80
}
on *:sockopen:nerden:{
sockwrite -n $sockname GET /fcgi-bin/whois?form_type=simple&full_query_string=&searchtext= $+ %ip $+ &submit.x=15&submit.y=7 HTTP/1.1
sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ripe.net $+ $crlf $+ $crlf 
}
on *:sockread:nerden:{ 
sockread %ğ
if (descr: isin %ğ) && (TurkTelecom !isin %ğ) { msg #nerden 4 $+ $replace(%ğ,descr,şehir) }
if (country: isin %ğ) { msg #nerden 2 $+ $replace(%ğ,country,ülke,tr,Türkiye,de,Almanya,nl,Hollanda) }
} 
on *:text:*:#Nerden:{ 
if ($1 == !nerden) && $2 { baka.q $2 }
}
alias baka.q { whois $1 | enable #dirim }
#dirim off
raw 378:*: { nerden $gettok($6,2,64) | disable #dirim } 
#dirim end 
Calısma sekli #Nerden kanalında !nerden nick seklindedir. Sunucuda Oper olmanız gerekir. Bazı sunuculara göre raw 378:*: { nerden $gettok($6,2,64) | disable #dirim } koyu renkle yazdıgım yer $7 veya $4 olabiliyor. Kolay gelsin.

nIcknamE 24 Nisan 2006 19:03
Yanıt: Ülke-Şehir Bulucu.
 
thanxxxxxxx

Mickey 24 Nisan 2006 22:11
Yanıt: Ülke-Şehir Bulucu.
 
güzel bir addon teşekkürler

CyberG 25 Nisan 2006 10:22
Yanıt: Ülke-Şehir Bulucu.
 
güzelll Eyw..

cacik 26 Nisan 2006 11:27
Yanıt: Ülke-Şehir Bulucu.
 
cok iyi tesekkurLer..

Z-o-M 26 Temmuz 2006 19:22
Yanıt: Ülke-Şehir Bulucu.
 
arkadaslar burdaki werilmiş olan addonu "aliass" icinemi atioruz şimdiden tşkler.

viruS 26 Temmuz 2006 19:27
Yanıt: Ülke-Şehir Bulucu.
 
Alıntı:
Z-o-M Nickli Üyeden Alıntı
arkadaslar burdaki werilmiş olan addonu "aliass" icinemi atioruz şimdiden tşkler.
Arkadaşım incelermisin;

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

mustafazorba 26 Eylül 2006 12:08
Yanıt: Ülke-Şehir Bulucu.
 
iyi güzel de neden çalışmıo :)

h4pp3n 26 Eylül 2006 19:20
Yanıt: Ülke-Şehir Bulucu.
 
Yazdıgım kod sorunsuz calısıyo. $gettok($6,2,64) olan yeri $7 veya $4 seklinde degistirebilirsin. Kolay gelsin.

oZGurRUH 26 Mart 2007 11:56
Yanıt: Ülke-Şehir Bulucu.
 
S.a ya arkadaslar kusura bakmayın uzun zaman olmus ama ben bu codeyi Cr de calistiramadim mumkunu varmi acaba Cr kulana bilmem icin ?

e-turk 22 Nisan 2009 00:18
Cevap: Ülke-Şehir Bulucu.
 
arkadasim bunu kanal degilde özelime !ulke nick Belirtildiginde ozele yazza ? yapabilirmiyiz

XcLusive 22 Nisan 2009 00:21
Cevap: Ülke-Şehir Bulucu.
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Ruh-u`Siyah 05 Mayıs 2009 14:17
Cevap: Ülke-Şehir Bulucu.
 
peki bunu hic !ulke yazmadan kullanıcı odaya gırıs yaptıgı zaman girişinde gösterebilirmiyiz ?

muratt_aziz 05 Mayıs 2009 19:06
Cevap: Ülke-Şehir Bulucu.
 
burayı tıkla [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


burda dediğin gibi :)

h4pp3n 23 Mayıs 2010 21:28
Cevap: Ülke-Şehir Bulucu.
 
Kod:
alias nerden {
  set %ip $1
  sockclose nerden
  sockopen nerden
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:nerden:{
  sockwrite -n $sockname GET $+(/lookups/iplocation.asp?ipaddress=,%ip) HTTP/1.1
  sockwrite -n $sockname Host: $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:nerden:{
  var %happen
  sockread $htmlfree(%happen)
  tokenize 32 $htmlfree(%happen)
  if (*City* iswm $1-) {
    .set %yerelsehir $remove($2,City)
  }
  if (*Country* iswm $1-) {
    .set %yerelulke $remove($2,Country)
  }
  if (*>ISP<* iswm %happen) {
    .set %yerelisp $2-
    .set %yerelisp $remove(%yerelisp,ISP)
    msg #nerden Nick : %yerelnick
    msg #nerden IP No: %ip
    msg #nerden Şehir: %yerelsehir
    msg #nerden Ülke : $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin)
    msg #nerden ISP  : %yerelisp
  }
}
on *:text:*:#nerden:{
  if ($1 == !nerden) && $2 { .bak $2 }
}
alias bak { .whois $1 | enable #dirim }
#dirim off
raw 378:*: { nerden $7 | .set %yerelnick $2 | disable #dirim }
#dirim end
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
can sıkıntısına tekrar düzenledim .. her zaman dedigim gibi tekrar umarım isinize yarar ..

Not: kodun calısması icin oper sart + #nerden kanalında gösterir ..

LuckR 24 Mayıs 2010 18:46
Cevap: Ülke-Şehir Bulucu.
 
Dostum bunu socket bota göre ayarlayabilir miyiz? Ben calıstım ama olmadı :)

Kod:
alias nerden {
  set %ip %::nick
  sockclose nerden
  sockopen nerden
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:nerden:{
  sockwrite -n $sockname GET $+(/lookups/iplocation.asp?ipaddress=,%ip) HTTP/1.1
  sockwrite -n $sockname Host: $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:nerden:{
  var %happen
  sockread $htmlfree(%happen)
  tokenize 32 $htmlfree(%happen)
  if (*City* iswm $1-) {
    .set %yerelsehir $remove($2,City)
  }
  if (*Country* iswm $1-) {
    .set %yerelulke $remove($2,Country)
  }
  if (*>ISP<* iswm %happen) {
    .set %yerelisp $2-
    .set %yerelisp $remove(%yerelisp,ISP)
    sw $sockname privmsg #nerden Nick : %yerelnick
    sw $sockname privmsg IP No: %ip
    sw $sockname privmsg Şehir: %yerelsehir
    sw $sockname privmsg Ülke : $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin)
    sw $sockname privmsg ISP  : %yerelisp
  }
}
on *:text:*:#nerden:{
  if ($1 == !nerden) && $2 { .bak $2 }
}
alias bak { .whois %::nick | enable #dirim }
#dirim off
raw 378:*: { nerden $7 | .set %yerelnick %::nick | disable #dirim }
#dirim end
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
Hatta Son çalışmalarımdan sonra " * No groups needed to be changed
-
* No groups needed to be changed " gibi bir hata vermeye başladı.

devil-boyy 24 Mayıs 2010 19:31
Cevap: Ülke-Şehir Bulucu.
 
Oper Olmadan Sölesede Güzel Olurdu Aslında :- )

MesqeN 01 Haziran 2010 15:38
Cevap: Ülke-Şehir Bulucu.
 
Kulanıcı bilgisini Görebilmek icin admin olmak gerekirmi?

Set 01 Haziran 2010 21:41
Cevap: Ülke-Şehir Bulucu.
 
Ülke , Sehir Bulucuyu Bu Adres'e Göre Editleme Yapabinir'mi ?

Adres : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

h4pp3n 05 Haziran 2010 10:09
Cevap: Ülke-Şehir Bulucu.
 
heralde dbler geri gitti ve vermis oldugum kod silinmis .. tekrar paylasıyım ..

Kod:
alias nerden {
  set %ip $1
  sockclose nerden
  sockopen nerden whatismyipaddress.com 80
}
on *:sockopen:nerden:{
  sockwrite -n $sockname GET /ip/ $+ %ip HTTP/1.1
  sockwrite -n $sockname Host: whatismyipaddress.com $+ $crlf $+ $crlf
}
on *:sockread:nerden:{
  var %happen
  sockread $htmlfree(%happen)
  .tokenize 32 $htmlfree(%happen)
  if (*City:* iswm %happen) {
    .set %yerelsehir 0
    .set %yerelsehir $1 $2
    .set %yerelsehir $remove(%yerelsehir,City:)
  }
  if (*Country:* iswm %happen) {
    .set %yerelulke 0
    .set %yerelulke $1 $2
    .set %yerelulke $remove(%yerelulke,Country:)
  }
  if (*Latitude:* iswm %happen) {
    .set %yerelenlem 0
    .set %yerelenlem $1 $2
    .set %yerelenlem $remove(%yerelenlem,Latitude:)
  }
  if (*Longitude:* iswm %happen) {
    .set %yerelboylam 0
    .set %yerelboylam $1 $2
    .set %yerelboylam $remove(%yerelboylam,Longitude:)
    msg #nerden Nick: %yerelnick
    msg #nerden IP No: %ip
    msg #nerden Şehir: %yerelsehir
    msg #nerden Ülke: $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin)
    msg #nerden Enlem: %yerelenlem
    msg #nerden Boylam: %yerelboylam
  }
}
on *:text:*:#nerden:{
  if ($1 == !nerden) && $2 { bak $2 }
}
alias bak { .whois $1 | enable #dirim }
#dirim off
raw 378:*: { nerden $7 | .set %yerelnick $2 | disable #dirim }
#dirim end
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
Set nickli arkadasın istegine göre yazılmıstır .. umarım isinize yarar ..

DaDaS 05 Haziran 2010 11:38
Cevap: Ülke-Şehir Bulucu.
 
alias bak { .whois $1 | enable #dirim }
#dirim on
raw 378:*: { nerden $7 | .set %yerelnick $2 | disable #dirim }
#dirim end

Sanırım Burdakı #dirim Serverdekı global Kanal İsmıyle Degısırse Calısır Dıye Dusunuyorum ?

h4pp3n 05 Haziran 2010 12:46
Cevap: Ülke-Şehir Bulucu.
 
Alıntı:
DaDaS Nickli Üyeden Alıntı (Mesaj 1040432166)
alias bak { .whois $1 | enable #dirim }
#dirim on
raw 378:*: { nerden $7 | .set %yerelnick $2 | disable #dirim }
#dirim end

Sanırım Burdakı #dirim Serverdekı global Kanal İsmıyle Degısırse Calısır Dıye Dusunuyorum ?
hayır hic bir yer degismicek .. kod calısıyor ..

N1z3m 03 Mart 2011 22:54
Cevap: Ülke-Şehir Bulucu.
 
Kod güzel emeğin için tşkrler ; ama sunucuda ekledim çalışmadı .
CR. 2.1

woody 04 Mart 2011 00:13
Cevap: Ülke-Şehir Bulucu.
 
ya bu cod yalnış bilgi veriyo ya arkadaşlar yalan söylüyo atıyorum bilgi ankara dio arkadaş yemin ediyo istanbuldayım diyo :) arada yalnış bilgi verme ihtimali varmı

angry1 01 Nisan 2011 11:36
Cevap: Ülke-Şehir Bulucu.
 
h4pp3n hocam elinize emeğinize sağlık siz harıkasınız yaaa


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

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