Ülke-Şehir Bulucu. - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

e-turk · 22 Nisan 2009, 00:18

arkadasim bunu kanal degilde özelime !ulke nick Belirtildiginde ozele yazza ? yapabilirmiyiz

XcLusive · 22 Nisan 2009, 00:21

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

Ruh-u`Siyah · 05 Mayıs 2009, 14:17

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

burayı tıkla [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

burda dediğin gibi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

h4pp3n · 23 Mayıs 2010, 21:28

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

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

Dostum bunu socket bota göre ayarlayabilir miyiz? Ben calıstım ama olmadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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

Oper Olmadan Sölesede Güzel Olurdu Aslında :- )

MesqeN · 01 Haziran 2010, 15:38

Kulanıcı bilgisini Görebilmek icin admin olmak gerekirmi?

Set · 01 Haziran 2010, 21:41

Ü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

heralde dbler geri gitti ve vermis oldugum kod silinmis .. tekrar paylasıyım ..

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

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 ..

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Girişte Ülke/Şehir/İSP Gösterme	Toprak	mIRC Scripting Hazır Kodlar	120	25 Aralık 2022 14:56
Girişte Ülke/Şehir/İSP Gösterme - Güncel	Bozkurt-	mIRC Scripting Hazır Kodlar	7	01 Eylül 2022 21:03
ülke Şehir Yeni	Z-Lined	mIRC Scripting Hazır Kodlar	6	09 Aralık 2011 15:56
28 ülke, 67 fotoğrafçı, tek şehir	pyracantha	Sinema Dünyası	0	30 Aralık 2010 18:59
ulke şehir bulucu tcl (yardım)	CanDostu	Eggdrop, NeoStats, BNC	2	10 Şubat 2009 11:40

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.

Canlı Akış 0

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.

Canlı Akış 0

Reaksiyonlar