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

11Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 20 Ocak 2009, 14:40   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Whois çekene ait yerel bilgiler




Kodun amacı:

+W modesine sahip (Helper,Oper,Admin vs vs) biri iseniz ve size whois çekildiğinde,
-irc.Sunucu.com- *** L4roXyL (asas@78.190.73.236) did a /whois on you.
şeklinde uyarı alıyorsanız koddan yararlanabilirsiniz.
Size whois çekenin ip no'sundan hareketle [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresinden yerel bağlantı bilgilerini size sunacaktır.


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


İşte kod:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockopen:whoiz:{ sockwrite -n $sockname GET /index.php?query= $+ %difyipno 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 $clrf } on *:sockread:whoiz:{ if ($sockerr) { echo -a Veri alımında Hata oluştu. | halt } else { var %difi sockread %difi if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi,</td>,$chr(32))) } elseif (*Registry*Information* iswm %difi) { sockclose whoiz if $regex(%dify,/Region City ISP (.+) Google Map for.+Geolocation data from/i) { set %difuzyon $regml(1) if !$window(@Whois) { window -adk0 +let @Whois 700 80 290 132 Verdana 12 | titlebar @Whois yerel bilgiler... } else { window -a @Whois } aline @Whois 11,1Nick1...11:8 %difyyerelnick 1.................................................... aline @Whois 11,1IP no1.11:8 $token(%difuzyon,1,32) 1..................................................... aline @Whois 11,1Ülke1...............11:9 $token(%difuzyon,2,32) 1............................................ aline @Whois 11,1Bölge1.............11:9 $token(%difuzyon,3,32) 1....................................... aline @Whois 11,1Şehir1..............11:9 $token(%difuzyon,4,32) 1...................................... aline @Whois 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1................................................. aline @Whois 0,1----------------Bilgi Sonu------------------------------------------------------------ unset %dif* } } } } alias bağlantı { sockclose whoiz sockopen whoiz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) return %x } on *:snotice:*whois*on*you*: { if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) { hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41)) set -e %difyipno $remove($token($3,2,64),$chr(41)) set -e %difyyerelnick $2 bağlantı echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor... } }

Size whois çeken nick için 1 defa işlem yapmaktadır(flood olayına engel olmak için).

Resimde 2 türlü görüntü bir aradır.Bir tanesi window(pencere) diğer ise tip(baloncuk).
Yukarıdaki kod sadece window(pencere) halinde görünüm sağlamaktadır.
Şayet mirciniz destekliyorsa tip(baloncuk) olarak görmek isterseniz kod içerisinde mavi kısmı siler aşağıdaki dizinleri yerine eklersiniz.
Her ikisinide görmek istiyorsanız mavi kısmın hemen üstüne aşağıdaki kodu ilave edersiniz.
Alıntı:
noop $tip(Whois,Yerel Bilgiler,Nick: %difyyerelnick,7)
noop $tip(Whois,Yerel Bilgiler,IP No: $token(%difuzyon,1,32),7)
noop $tip(Whois,Yerel Bilgiler,Ülke: $token(%difuzyon,2,32),7)
noop $tip(Whois,Yerel Bilgiler,Bölge: $token(%difuzyon,3,32),7)
noop $tip(Whois,Yerel Bilgiler,Şehir: $token(%difuzyon,4,32),7)
noop $tip(Whois,Yerel Bilgiler,Org.: $token(%difuzyon,5,32),7)


Görünüm seçeneklerini biraz daha arttırarak kendinize göre de düzenleyebilirsiniz.

İşinize yaraması dileğiyle...
Hoşca paylaşımlar.


Konu Difuzyon tarafından (31 Ocak 2011 Saat 22:54 ) değiştirilmiştir. Sebep: Veri alınan adres bilgileri ve görünüm özellikleri güncellendi.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 20 Ocak 2009, 14:55   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Whois çekene ait yerel bilgiler




en azından üretiyorsun bende heves yok bitti gitti kül oldu
tebrikler difi , resim karesinde gülememişim onun içinde ayrıca kusura bakma
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)

__________________
Şimdi Saat Sensizliğin Ertesi..
 
Alıntı ile Cevapla

Alt 20 Ocak 2009, 16:06   #3
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Whois çekene ait yerel bilgiler




Kod bende caLısmadı alt+r yaptım remote bolumune yukledım kodu ama calısmadı

[15:51] -IRC.xxx.Com- *** saqO (M-Web@78.182.44.65) Size Whois Cekti


ßendekı whois uyarısı bu acaba bu yuzden mı calısmadı ?

on *:snotice:*size*whois*cekti*: {
if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) {
hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41))
set %yerelipno $remove($token($3,2,64),$chr(41))
set %yerelnick $2
bağlan
echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri alınıyor...
}
}

whois on you bolumunu bu sekılde degıstım ama yıne calısmadı sorun nerde acaba ?

__________________
Korkuyorsan yapma,
yapıyorsan korkma..

wake the fuck up samurai we have a city to burn..


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.




 
Alıntı ile Cevapla

Alt 20 Ocak 2009, 16:27   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Whois çekene ait yerel bilgiler




tamam kod calıstı Difuzyon onLıne yardımın ıcın tesekkurler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
basarılarının devamını dılerım

__________________
Korkuyorsan yapma,
yapıyorsan korkma..

wake the fuck up samurai we have a city to burn..


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.




 
Alıntı ile Cevapla

Alt 06 Şubat 2009, 11:04   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Whois çekene ait yerel bilgiler




Stauste değilde aktif olduğum pencerede olamaz mıbu olay.

 
Alıntı ile Cevapla

Alt 10 Şubat 2009, 18:20   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Whois çekene ait yerel bilgiler




ülke den sonra ki bilgileri vermiyor
bölge şehir vs. fln bu tür bilgiler herkezde boş gözüküo hatta bölge yerinde tarih ve saat yazıo bunun sebebi nedir ?

 
Alıntı ile Cevapla

Alt 10 Şubat 2009, 18:31   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Whois çekene ait yerel bilgiler




Bunun sebebi adresteki sayfa biçiminin\yapısının\içeriğinin değişmiş olması.

Bilgiler güncellenmiştir,kodu tekrar alınız..


Konu Difuzyon tarafından (10 Şubat 2009 Saat 18:49 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 11 Şubat 2009, 19:42   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Whois çekene ait yerel bilgiler




eyw güzel kod şimdi çalışıyor ama ufak bi sorun daha var
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bilgileri whois penceresinde gösteriyo senin screen deki gibi ufak pencerede göstermior ayarlamaya çalıştım ama yapamadm yardm edersen sevinirm tşk.

 
Alıntı ile Cevapla

Alt 14 Şubat 2009, 23:45   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Whois çekene ait yerel bilgiler




* /sockwrite: 'GET' Soket bulunamıyor (Satır 188, remote.ini)
-
ON Unknown command

Bende bu hatayi veriyor neden olur acaba arkadaslar yardimci olurmusunuz lütfen.

 
Alıntı ile Cevapla

Alt 15 Şubat 2009, 02:27   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Whois çekene ait yerel bilgiler




tesekkurler .. paylaşım

icin ama

enlem boylam falan olmuyo ama şehir cıkıyor yinede buda yeterli gibi

 
Alıntı ile Cevapla

Cevapla

Etiketler
ait, bilgiler, cekene, mirc download, mirc indir, whois, yerel


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Whois Çekene Uyarı GLamouR mIRC Scripting Sorunları 9 28 Mayıs 2015 14:27
Whois Çekene Uyarı... NucLeaR mIRC Scripting Sorunları 45 19 Kasım 2010 16:59
whois çekene uyarı beraber Sajoin ve 2 kere whois kill olmasını istiyorum nasıldı ? Rekor37 mIRC Scripting Sorunları 1 06 Haziran 2009 15:34
whois çekene fjoin KatLiamm mIRC Scripting Sorunları 10 10 Ekim 2007 01:53
Whois Çekene Karşılama.. By`BiLaL mIRC Scripting Sorunları 6 17 Mayıs 2007 03:32