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 14 Mart 2014, 20:40   #21
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Kod hakinda




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockopen:il:{ sockwrite -nt $sockname GET $+(/,$sock($sockname).mark,/) HTTP/1.1 | sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf } on *:sockread:il:{ var %:il | sockread %:il if (*<span id="result-distance">* iswm %:il) { echo -a 4KM: $htmlfree(%:il) } if (*<span id="result-hour">* iswm %:il) { echo -a 4SAAT: $htmlfree(%:il) } if (*<span class="ajaxHarita">* iswm %:il) { echo -a 4HARITA: $token(%:il,4,34) } } alias _bak { if ($1) { sockopen il illerarasimesafe.com 80 | sockmark il $1 } } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) return %x }

/_bak izmir_konya
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
4KM: 562 Km 4SAAT: Yaklaşık 6 saat 39 dakika 4HARITA:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 14 Mart 2014, 20:45   #22
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kod hakinda




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'ın son güncelleme yaptığı hala aktif durumda , kod'a sorun yok ve çalışıyor.

[20:42] <@R> !km ankara istanbul
[20:42] <@R> İstanbul ile Ankara arası 454 Km'dir.
[20:42] <@R> Bu mesafe, 4 saat 39 dakika sürecektir.
[20:42] <@R> !km Yozgat Bolu
[20:42] <@R> Bolu ile Yozgat arası 400 Km'dir.
[20:42] <@R> Bu mesafe, 4 saat 10 dakika sürecektir.
[20:45] <@R> !km Sivas Hakkari
[20:45] <@R> Sivas ile Hakkari arası 988 Km'dir.
[20:45] <@R> Bu mesafe, 14 saat 45 dakika sürecektir.

__________________
kS.-.cMGz
 
Alıntı ile Cevapla

Alt 16 Mart 2014, 05:39   #23
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kod hakinda




Öncelikle @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] a paylaşımı için teşekkür ederim. Biraz renk katması açısından bende ilk yaptığım halini biraz düzenledim.
Kodu 1 yılı aşkın süre önce düzenlemiştim. Kodda pek çok gereksiz bölüm (ve ufak tefek mantık hataları) vardı. Yeniden güncelledim ve daha kısa hale getirdim. Kod şuan hemen hemen aynı işlevi yerine getiriyor. Fakat siteyi ve kodu incelerken bir şey daha dikkatimi çekti. Bazı iller arası mesafe sorgusuna yanıt vermiyor. Örnek: !km antalya ankara
Böyle bir durumda, illeri ters şekilde yazdığınızda yanıt alabiliyorsunuz. Örnek: !km ankara antalya

Not: Kod, geliştirilebilir veya daha farklı yollarla da yazılabilir. (Belki daha kısa da yapılabilir veya üstte belirttiğim hata giderilebilir.) Uğraşmak isteyen düzenleyebilir. Lütfen saçma sapan yorumlardan kaçınalım.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias -l hesap sockclose yolbul | sockopen yolbul
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 on *:sockopen:yolbul:var %_ sockwrite -n $sockname | %_ GET / $+ %m $+ / HTTP/1.1 | %_ host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:yolbul:var %yolbul | sockread %yolbul | if $regex(%yolbul,/<strong>.+<\/strong><\/font>.*/Sg) { msg %p $replace($regsubex(%yolbul,/\x3C.+\x3E/gUS,), Kaç Km?, Mesafe:, Kaç Saat?, Zaman:) } on *:input:#:{ if $regex($1-,/^[.!]km\s+\S+\s+\S+$/Si) { set %p # | set -e %m $replacecs($lower($2),ı,i,ğ,g,ç,c,ö,o,ü,u,ş,s,Ü,u,Ö,o,Ğ,g,Ç, $& c,I,i,İ,i,Ş,s) $+ _ $+ $replacecs($lower($3),ı,i,ğ,g,ç,c,ö,o,ü,u,ş,s,Ü,u,Ö,o,Ğ,g,Ç,c,I,i,İ,i,Ş,s) | hesap } }

Kullanımı: !km <il> <il> Örnek: !km ankara istanbul

Sonuç:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
<Feragat> !km ankara istanbul <Feragat> Mesafe: İstanbul ile Ankara arası 454 Km'dir. <Feragat> Zaman: Bu mesafe, 4 saat 39 dakika sürecektir.


__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 24 Ocak 2015, 23:32   #24
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kod hakinda




güncel

 
Alıntı ile Cevapla

Alt 25 Ocak 2015, 00:09   #25
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kod hakinda




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias -l hesap sockclose yolbul | sockopen yolbul
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 on *:sockopen:yolbul:{ var %_ sockwrite -n $sockname %_ GET $+(/,%m,/) HTTP/1.1 %_ host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:yolbul:{ var %yolbul sockread %yolbul if <h1> isin %yolbul || <span class=orange id=dInfoMile> isin %yolbul || <span class=orange id=dInfoHour> isin %yolbul { msg %p $iif(? isin %yolbul, $token($regsubex(%yolbul,/\x3C.+\x3E/gUS,),2,63), $regsubex(%yolbul,/\x3C.+\x3E/gUS,)) } } on *:input:#:{ if $regex($1-,/^[.!]km\s+\S+\s+\S+$/Si) { set %p $chan set -e %m $replacecs($lower($2),ı,i,ğ,g,ç,c,ö,o,ü,u,ş,s,Ü,u,Ö,o,Ğ,g,Ç, $& c,I,i,İ,i,Ş,s) $+ _ $+ $replacecs($lower($3),ı,i,ğ,g,ç,c,ö,o,ü,u,ş,s,Ü,u,Ö,o,Ğ,g,Ç,c,I,i,İ,i,Ş,s) hesap } }

Sonuç:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
[00:08] <deneme1> !km istanbul izmir [00:08] <deneme1> İzmir ile İstanbul arası mesafe [00:08] <deneme1> 568 Km [00:08] <deneme1> 8 saat 30 dakika


__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 01 Mart 2015, 15:05   #26
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kod hakinda




Kod sorunsuz çalışmakta. Aynısını otobüs durakları mesafi içinde olabilir mi ? Hatta otobüsün geliş saatleri ve vakitlerini gösterebilen çalışma olabilirse katmerli kadayıf olur. Sevgiler.

 
Alıntı ile Cevapla

Cevapla

Etiketler
hakinda, kod


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
hava durumu hakinda OperServ mIRC Scripting Sorunları 3 01 Kasım 2009 19:18
burc hakinda OperServ mIRC Scripting Sorunları 15 11 Mart 2009 05:56
Operator Hakinda OperServ mIRC Scripting Sorunları 1 10 Mart 2009 10:36
unotify hakinda OperServ mIRC Scripting Sorunları 12 08 Mart 2009 01:43
radyo hakinda ? foxmd mIRC Scripting Sorunları 6 23 Nisan 2007 19:57