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

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Arama Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 10 Haziran 2016, 15:31   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
nerden komutu




arkadaşlar aşagıdaki nerden komutunu nasıl çalıştırabiliirm. hiç bir fikrim yok yardım
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#:{ if $regex($1,/^([!\.]nerden)$/i) { if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return } set %:kanal # if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 } else { .enable #nerdenbul | .who +I $2 } } } on *:input:#:{ if $regex($1,/^([!\.]nerden)$/i) { if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return } set %:kanal # if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 } else { .enable #nerdenbul | .who +I $2 } } } #nerdenbul off raw 352:*: _nerden $4 raw 315:*:.disable #nerdenbul #nerdenbul end alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(yerbul,%:r) $1 } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:yerbul*:{ sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1 sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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*:{ var %:yerbul | sockread -f %:yerbul if (Hostname: isin %:yerbul) { msg %:kanal Hostname:4 $iif(!$token($htmlfree(%:yerbul),3,58),Belirsiz,$token($htmlfree(%:yerbul),3,58)) } if (IP Country: isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) } if (IP Country Code: isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) } if (IP Continent: isin %:yerbul) { msg %:kanal Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) } if (IP City: isin %:yerbul) { msg %:kanal Sehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) } if (IP Latitude: isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) } if (IP Longitude: isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) } if (ISP Provider: isin %:yerbul) { msg %:kanal ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname }



Konu SuLh tarafından (10 Haziran 2016 Saat 16:36 ) değiştirilmiştir. Sebep: Code tagi kullanimi.
 
Alıntı ile Cevapla

 

Etiketler
nerden


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

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
!nerden Nick By_ATMACA mIRC Scripting Sorunları 10 30 Ocak 2015 17:06
Register Komutu Bekleme Süresinde Komutu Uygulayanı #Kanal'a Sajoinlendirme. SeYH_SaMiL Anope 9 04 Nisan 2011 17:58