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

297Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 02 Nisan 2015, 11:34   #131
Çevrimdışı
KuL
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Add-on ve snippet(parça) kod istekleri buraya




mikropp Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Merhaba Arkadaşlar.

Sunucuya Giriş yaptığım zaman #op2 #op #sop2 #Destekyönetim ( Nickimdeki memolar ) ayrı pencerede Otomatik dizilsin
Mümkün mü ?

Tesekkür ederim



Sunucuya girer girmez, Nickinizi Identify edip o Kanalara Ersiminizin olmasi ne kadar sürer bilmiyorum. O yüzden #op Kanalina girer girmez calisacaktir Kod, böylecede Nickinizi Identify etdiginizden emin de olmus olabiliriz. Yani Memolara bakmada Sorun yasamazsiniz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on me:*:join:#op: { enable #memolistem timer 1 1 ms list timer 1 2 ms list #op timer 1 3 ms list #op2 timer 1 4 ms list #sop2 timer 1 5 ms list #destekyönetim timer 1 10 disable #memolistem } #memolistem off on ^*:notice:*:*:{ if ($nick == MemoServ) && ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim) == $null) { window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim } if *nick?ine?ait?notlar* iswm $1- { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim 4Nickinize 1Ait Memolar Siralaniyor... Okumak icin: ( 4/ms read numara1 ) - Silmek icin: ( 4/ms del numara1 ) } if *kanal??i?in?notlar?var* iswm $1- { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim 4 $1 1Kanalina Ait Memolar Siralaniyor... Okumak icin: ( 4/ms read $1 numara1 ) - Silmek icin: ( 4/ms del $1 numara1 ) } if *EEST* iswm $1- { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim 1(4 $11) 1Numarali Memo - Gönderen: 1(4 $2 1) - Tarih: 1(4 $4 $+ : $+ $3 $+ : $+ $6 4)1 - Saat: (4 $5 1) } halt } #memolistem end

Görünümüde böyle oluyor:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Nickinize Ait Memolar Siralaniyor... Okumak icin: ( /ms read numara ) - Silmek icin: ( /ms del numara ) ( 1) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 09:55:30 ) ( 2) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 09:56:04 ) ( 3) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 09:56:09 ) ( 4) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 10:09:56 ) ( 5) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 10:09:59 ) ( 6) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 10:10:02 ) #testt Kanalina Ait Memolar Siralaniyor... Okumak icin: ( /ms read #testt numara ) - Silmek icin: ( /ms del #testt numara ) ( 1) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 09:53:37 ) ( 2) Numarali Memo - Gönderen: ( Y-Bot ) - Tarih: ( 02:Nis:2015 ) - Saat: ( 10:09:25 )

Not: Eger Nickinizde yada herhangi bir Kanalda Memo yok ise, ozaman onu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim Penceresinde göstermiyecektir. Sadece Memosu olan Kanali ve Nicki gösteriyor.

Onuda göstermesini isterseniz notice: eventindeki if lerin arasina birde bu if kosulunu ekleyin:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if *herhangi?bir?notu* iswm $1- { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]arim $1- }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 09 Nisan 2015, 03:16   #132
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Harf sayısı belirtme yardım




on $*:text:/(\S)(\1+)/S:#deney:msg # $qt($nick) Tekrar Yaptınız Tekrar edilen karakter: $qt($left($regml(2),1)) Tekrar Sayısı $qt($len($regml(2)))


burda harf sayısını nasıl yükseltebilirim mesela 5 tane aynı harf yazılırsa uyarmasın 6 cısında uyarsın

<Nickiniz> sssss
<Nickiniz> ssssss
<BiLinmeyeN> "Nickiniz" Tekrar Yaptınız Tekrar edilen karakter: "s" Tekrar Sayısı "6"

'' şeklinde degilde [ ] bu şekil içinde olsun yardım edecekler için şimdiden teşekürler yarım degil tam kod istiyorum

 
Alıntı ile Cevapla

Alt 09 Nisan 2015, 14:24   #133
Çevrimdışı
KuL
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Harf sayısı belirtme yardım




mys_35 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on $*:text:/(\S)(\1+)/S:#deney:msg # $qt($nick) Tekrar Yaptınız Tekrar edilen karakter: $qt($left($regml(2),1)) Tekrar Sayısı $qt($len($regml(2)))


burda harf sayısını nasıl yükseltebilirim mesela 5 tane aynı harf yazılırsa uyarmasın 6 cısında uyarsın

<Nickiniz> sssss
<Nickiniz> ssssss
<BiLinmeyeN> "Nickiniz" Tekrar Yaptınız Tekrar edilen karakter: "s" Tekrar Sayısı "6"

'' şeklinde degilde [ ] bu şekil içinde olsun yardım edecekler için şimdiden teşekürler yarım degil tam kod istiyorum

Yanlis anlamani istemem, ama 2009 da bile mirc scripting kategorisine konu acip acemiyim ben henüz bilmiyorum diye Yardim isteyen birisisin. Aradan 6 Yil gecmis, halen birseyi bile aramaya tenezül etmiyor gibisiniz. Bu Konudada zaten ne kadar cok Hazir Kod istediginizi beli etmistiniz.


mys_35 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
yardım edecekler için şimdiden teşekürler yarım degil tam kod istiyorum

Öncelikle Kod paylasirken bunu Code Tag i icinde paylasinki, daha kolay okunabilsin.

Koda bir bakalim:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on $*:text:/(\S)(\1+)/S:#deney:msg # $qt($nick) Tekrar Yaptınız Tekrar edilen karakter: $qt($left($regml(2),1)) Tekrar Sayısı $qt($len($regml(2)))

Bak mesela ilk Nicki yaziyor $qt($nick) , sonra Tekrar edilen Karakteri yaziyor: $qt($left($regml(2),1)) , ve son olarakda $qt($len($regml(2)))

Bunlarin hepsinin Ortak Yönü nedir ?

$qt Kismi hepsinde geciyor, ve Google Amcaya $qt Identifier in ne oldugunu sorarsak, bize bir Veriyi bir Degeri Tirnak icine almak ("kelime") oldugunu söylüyor.

Yani onlari kaldirirsak Tirnaklar (") gider.

Mesela Simdi Tirnaklari götürdük, onun yerine ama sen [kelime] istiyorsun. Ozaman $+ ile birlestiriyoruz, mesela Nick Kisminin etrafina [ ] yapmak istiyorsak.

Ozaman $+([,$nick,]) yapiyoruz, yani $+(eklemek istedigim isaretler , deger , eklemek istedigim isaretler) seklinde.

Böylece "nick" kismini [nick] olarak degismis olduk.

Ve geldik Limit Konusuna. Kodda söyle bir sey geciyor zaten:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Tekrar Sayısı $qt($len($regml(2)))

yani $len($regml(2)) tekrar edilen Sayiyi veriyor bize. Bizde bunu kullanarak basit bir if kosulu koyup eger o sayi 5 yi geciyorsa ozaman calis deriz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $len($regml(2)) >= 5

ile Limitimizi koymus oluyoruz.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on $*:text:/(\S)(\1+)/S:#kanal: if $len($regml(2)) >= 5 { msg # $+([,$nick,]) Tekrar Yaptiniz Tekrar edilen karakter: $+([,$left($regml(2),1),]) Tekrar Sayisi $+([,$len($regml(2)),]) }

Bu sekildede Feragat Hocaminizin verdigi Kodu istedigin Sekile getirmis oluyorsun.

Ne kadar üstdeki anlatimlarimi oku, yada okuma sana kalmis birsey Kardesim. Ben kendimi gelistirmek icin Yardimda bulunuyorum. Ama sende biryerlerden baslasan kötü olmazdi, en azindan kücük sorunlarin oldugunda yada birsey yapmak istediginde nasil yapabilecegini bilirsin. Hatan olursada sorarsin ve Hatalarindan ögrenirsin.

Kolay Gelsin.

 
Alıntı ile Cevapla

Alt 10 Nisan 2015, 12:24   #134
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Add-on ve snippet(parça) kod istekleri buraya




KuL Çok Teşkler cansın
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
B̲a̲n̲a̲ ̲D̲ü̲ş̲m̲a̲n̲ ̲O̲L̲a̲n̲ ̲ ̲A̲t̲e̲ş̲ ̲O̲L̲s̲a̲ ̲E̲n̲ ̲F̲a̲z̲L̲a̲ ̲S̲i̲qa̲r̲a̲m̲ı Y̲a̲k̲a̲r̲
 
Alıntı ile Cevapla

Alt 17 Nisan 2015, 20:37   #135
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Add-on ve snippet(parça) kod istekleri buraya




#kiminoper off
on *:snotice:*: {
if *oper*add*agcsh* iswm $1- {
set %root_pass $3
.fjoin #operhelp %kimin_oper | .fjoin #kontrol %kimin_oper | .fjoin #bilgi %kimin_oper | .fjoin #opers %kimin_oper | .fjoin #yönetim %kimin_oper
describe #yönetim 4UYARI: 12 %kimin_oper 4Nicki  1 iRCOP Girisi Yapti..
describe #yönetim 4BiLGi: 7Root Admin Sahibi: 12 $3 
msg %kimin_oper 12Şuan RooT Admin oldunuz.4Oper 12Şifrenizi Kimseyle paylaşmayınız!
msg %kimin_oper 4 #opers  12Kanalında uygulayabileceginiz komutlar için 4!irckomut 12yazınız.
msg #bilgi 2[6• 4Operatör 12Girişi 6•2] [4Nick:10 %kimin_oper 2]
msg #bilgi 2[4Hesap Sahibi:12 $3 2] [4Yetki FLAG:7 RooT Administratör 2] | return
}
if *oper*add*gcsh* iswm $1- {
set -e %admin_pass $3
.fjoin #operhelp %kimin_oper | .fjoin #kontrol %kimin_oper | .fjoin #bilgi %kimin_oper | .fjoin #opers %kimin_oper | .fjoin #yönetim %kimin_oper
describe #yönetim 4UYARI: 12 %kimin_oper 4Nicki  1 iRCOP Girisi Yapti..
describe #yönetim 4BiLGi: 7Server Admin Sahibi: 12 $3 
msg $nick 12Şuan Server Admin oldunuz.4Oper 12Şifrenizi Kimseyle paylaşmayınız!
msg $nick 4 #opers  12Kanalında uygulayabileceginiz komutlar için 4!irckomut 12yazınız.
msg #bilgi 2[6• 4Operatör 12Girişi 6•2] [4Nick:10 %kimin_oper 2]
msg #bilgi 2[4Hesap Sahibi:12 $3 2] [4Yetki FLAG:7 Admin Administratör 2] | return
}
if *oper*add*agsh* iswm $1- {
set -e %services_pass $3
.fjoin #operhelp %kimin_oper | .fjoin #kontrol %kimin_oper | .fjoin #bilgi %kimin_oper | .fjoin #opers %kimin_oper | .fjoin #yönetim %kimin_oper
describe #yönetim 4UYARI: 12 %kimin_oper 4Nicki  1 iRCOP Girisi Yapti..
describe #yönetim 4BiLGi: 7Services Admin Sahibi: 12 $3 
msg %kimin_oper 12Şuan Services Admin oldunuz.4Oper 12Şifrenizi Kimseyle paylaşmayınız!
msg %kimin_oper 4 #opers  12Kanalında uygulayabileceginiz komutlar için 4!irckomut 12yazınız.
msg #bilgi 2[6• 4Operatör 12Girişi 6•2] [4Nick:10 %kimin_oper 2]
msg #bilgi 2[4Hesap Sahibi:12 $3 2] [4Yetki FLAG:7 Services Administratör 2] | return
}
if *oper*add*g* iswm $1- {
set -e %oper_pass $3
.fjoin #operhelp %kimin_oper | .fjoin #kontrol %kimin_oper | .fjoin #bilgi %kimin_oper | .fjoin #opers %kimin_oper | .fjoin #yönetim %kimin_oper
describe #yönetim 4UYARI: 12 %kimin_oper 4Nicki 1 iRCOP Girisi Yapti..
describe #yönetim 4BiLGi: 7iRCOPeR Sahibi: 12 $3 
msg %kimin_oper 12Şuan iRCOPeR oldunuz.4Oper 12Şifrenizi Kimseyle paylaşmayınız!
msg %kimin_oper 4 #opers  12Kanalında uygulayabileceginiz komutlar için 4!irckomut 12yazınız.
msg #bilgi 2[6• 4Operatör 12Girişi 6•2] [4Nick:10 %kimin_oper 2]
msg #bilgi 2[4Hesap Sahibi:12 $3 2] [4Yetki FLAG:7 iRC OpeR Administratör 2] | return
}
if *oper*add*h* iswm $1- {
set -e %helper_pass $3
.fjoin #operhelp %kimin_oper | .fjoin #kontrol %kimin_oper | .fjoin #bilgi %kimin_oper | .fjoin #opers %kimin_oper | .fjoin #yönetim %kimin_oper
describe #yönetim 4UYARI: 12 %kimin_oper 4Nicki  1 iRCOP Girisi Yapti..
describe #yönetim 4BiLGi: 7HeLpeR Sahibi: 12 $3 
msg %kimin_oper 12Şuan HeLpeR oldunuz.4Oper HeLpeR 12Şifrenizi Kimseyle paylaşmayınız!
msg %kimin_oper 4 #opers  12Kanalında uygulayabileceginiz komutlar için 4!irckomut 12yazınız.
msg #bilgi 2[6• 4Operatör 12Girişi 6•2] [4Nick:10 %kimin_oper 2]
msg #bilgi 2[4Hesap Sahibi:12 $3 2] [4Yetki FLAG:7 HeLpeR OperatöR 2] | return
}
}
#kiminoper end



bu kodu Unreal e gore ayarlama şansımız varmıdır socket bota eklicem

 
Alıntı ile Cevapla

Alt 21 Nisan 2015, 19:25   #136
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Add-on ve snippet(parça) kod istekleri buraya




merhaba,
ben socket admin botuma ".sajoin #kanal nick" ".sapart #kanal nick" komudu vermek istiyorum. ve bunu sadece "s" nickli userin yapmasını istiyorum, şimdiden tşkler.

 
Alıntı ile Cevapla

Alt 03 Mayıs 2015, 14:50   #137
Çevrimdışı
Tefeci'nin Kızı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Add-on ve snippet(parça) kod istekleri buraya




Toprak beyfendi S.a ben bırsey sorcaktım sıze
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:text:*:#: if ($1 == !nerden) && $2 { .enable #nerden | set %:kanal # | who +I $2 } #nerden on raw 352:*:var %:r $r(100,99999) | sockopen $+(nerden,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(nerden,%:r) $4 #nerden end on *:sockopen:nerden*:{ 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 $crlf } on *:sockread:nerden*: { if ($sockerr) { .sockclose $sockname | return } var %:nerden | sockread %:nerden if $regex(%:nerden,/(Hostname\:.+|IP Country Code\:.+|IP Continent\:.+|IP Country\:.+|IP City\:.+|IP Latitude\:.+|IP Longitude\:.+|ISP Provider\:.+)) { msg %:kanal $htmlfree($regml(1)) }

bu kod vermışsnızde bn remoteme ekledım lakın calısmıyor :/

__________________
''Zamanın Eli Değdi Bize
Artık Aynı Değiliz
İkimiz de''


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.

Konu Feragat tarafından (03 Mayıs 2015 Saat 15:22 ) değiştirilmiştir. Sebep: mIRC Kod'larını CODE Tagı içinde paylaşın.
 
Alıntı ile Cevapla

Alt 03 Mayıs 2015, 15:23   #138
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Add-on ve snippet(parça) kod istekleri buraya




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bey müsait olduğunuzda benimde bir problemim var ilgilenir misiniz acaba pls ¿

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 03 Mayıs 2015, 17:23   #139
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Add-on ve snippet(parça) kod istekleri buraya




NeFeSimSin Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Toprak beyfendi S.a ben bırsey sorcaktım sıze
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:text:*:#: if ($1 == !nerden) && $2 { .enable #nerden | set %:kanal # | who +I $2 } #nerden on raw 352:*:var %:r $r(100,99999) | sockopen $+(nerden,%:r) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(nerden,%:r) $4 #nerden end on *:sockopen:nerden*:{ 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 $crlf } on *:sockread:nerden*: { if ($sockerr) { .sockclose $sockname | return } var %:nerden | sockread %:nerden if $regex(%:nerden,/(Hostname\:.+|IP Country Code\:.+|IP Continent\:.+|IP Country\:.+|IP City\:.+|IP Latitude\:.+|IP Longitude\:.+|ISP Provider\:.+)) { msg %:kanal $htmlfree($regml(1)) }

bu kod vermışsnızde bn remoteme ekledım lakın calısmıyor :/


Buyur bunu kullan;

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)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 } }


 
Alıntı ile Cevapla

Alt 09 Haziran 2015, 15:58   #140
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Add-on ve snippet(parça) kod istekleri buraya




Güzel bir haber kodu bulamadım. Paylaşabilirseniz sevinirim.

 
Alıntı ile Cevapla

Cevapla

Etiketler
admin, djfikret, fikret, fikretkısa, kadifesohbet, kod, op, radyokadife, sajoin, seslen, seslenme, snippetparça, sop, ve


Konuyu Toplam 2 Üye okuyor. (0 Kayıtlı üye ve 2 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