Dünya saat sorgulama socket - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Forbidden · 11 Ocak 2024, 21:48

Dünyadaki Ülkelerin ve Şehirlerin saatlerine tek tek bakabilirsiniz.

Komut: !saat Ülke veya Şehir

Örnek komutlar;

Komut: !saat Fransa
Komut: !saat Paris
Komut: !saat Meksika

Örnek;

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

[21:31]» <Atom> !saat Fransa
[21:31]» <Forbidden> Fransa [Saat] 19:31 [Tarih] 11 Ocak 2024 Perşembe
[21:31]» <Atom> -
[21:32]» <Atom> !Saat Paris
[21:32]» <Forbidden> Paris, Fransa [Saat] 19:31 [Tarih] 11 Ocak 2024 Perşembe
[21:32]» <Atom> -
[21:32]» <Atom> .saat Özbekistan
[21:32]» <Forbidden> Özbekistan [Saat] 23:32 [Tarih] 11 Ocak 2024 Perşembe

Kod;

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

on $*:text:/^[.!]saat (.+)$/i:#: {
  if (%saatchan) { msg # > $nick Saat sorgusu yaparken 10 sn beklemelisiniz | msg # > Saat sorgusu yapilacak ulkenin ilk harfini büyük ve türkçe karakter kullanmalisiniz. | return }
  set -eu10 %saatchan #
  set -eu10 %saatnere $replace($$2-,$chr(32),+)
  saat
}
alias saat { if $sock(saat) { .sockclose saat } | .sockopen saat $sit 80 }
on *:sockopen:saat: {
  $m GET /search?q=google+saat+ $+ %saatnere HTTP/1.1
  $m Host: $sit
  $m Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  $m Accept-Encoding: *
  $m $crlf
}
on *:sockread:saat:{
  var %saat
  if $sockerr { .sockclose $sockname | msg %saatchan > Socket Hatasi }
  sockread -f %saat
  var %patt = /(.+)BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd">(.+)/
  var %patt2 = /"r0bn4c rQMQod">(.+)</span></span></span>/
  var %patt3 = /<div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/$
  if ($+(*,%saatnere,*) iswm %saat && $regex(%saat,%patt)) {
    var %saat__ = $regml(2)
    noop $regex(%saat,%patt2)
    var %ulke_ $regml(1)
    noop $regex(%saat,%patt3)
    var %tarih_ = $regml(1)
    msg %saatchan %ulke_ [Saat] %saat__ [Tarih] %tarih_
  }
}
alias -l m return sockwrite -n $sockname
alias -l sit return 
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">

 










    

        

         
         
        

        
        
            
                __________________

             Beni yoran yıllar değil, namert kullar.

            
        
        

        


        
        
            
                
                
                    
                        Konu Forbidden tarafından (11 Ocak 2024  Saat 21:55 ) değiştirilmiştir.

idyllic · 12 Ocak 2024, 01:45

gayet güzel çalışma olmuş @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emeğine sağlık, yurt dışı yaşayan arkadaşlar ile sohbet ederken faydalı olacaktır.

Sarya · 12 Ocak 2024, 06:16

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Emeğinize sağlık Başarılar diliyorum

SNOOPY · 12 Ocak 2024, 11:02

Emeğine sağlık üstad

ZaLiM1979 · 12 Ocak 2024, 19:34

Emegine yüregine saglik @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] güzel Kod.
Benim bir mahrusatim var.. benim gibi yurtdisinda yasayan arkadaslar türkce karakter kulanamiyor o yüzden bazi sehirler/ülkeler gözterilmiyor.

Degismek mümkün mü? Saygilar..

SpinoZi · 12 Ocak 2024, 19:45

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] emeğine sağlık.

Forbidden · 12 Ocak 2024, 19:55

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ne demek istedigini tam anlıyamadım log veya resim atar mısın

ZaLiM1979 · 12 Ocak 2024, 20:12

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Ne demek istedigini tam anlıyamadım log veya resim atar mısın

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
bu sadece bir misal sanirim Zürich'in i'si noktasiz yaziliyor türkce karakter olarak ondan olmuyor. ben Isvicre'de yasiyorum ve türkce karakter kulanamiyorum.

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

OperServ · 12 Ocak 2024, 20:32

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

Emegine yüregine saglik @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] güzel Kod.
Benim bir mahrusatim var.. benim gibi yurtdisinda yasayan arkadaslar türkce karakter kulanamiyor o yüzden bazi sehirler/ülkeler gözterilmiyor.

Degismek mümkün mü? Saygilar..

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

on $*:text:/^[.!]saat (.+)$/i:#: {
  if (%saatchan) { 
    msg # > $nick Saat sorgusu yaparken 10 sn beklemelisiniz | msg # > Saat sorgusu yapılacak ülkenin ilk harfini büyük ve türkçe karakter kullanmalısınız. | return 
  }
  set -eu10 %saatchan #
  set -eu10 %saatnere $replace($$2-,$chr(32),+)
  saat
}
alias saat { 
  if $sock(saat) { 
    .sockclose saat 
  } 
  .sockopen saat $sit 80 
}
on *:sockopen:saat: {
  var %turreplace = ş:s,Ş:S,ı:i,İ:I,ğ:g,Ğ:G,ü:u,Ü:U,ö:o,Ö:O,ç:c,Ç:C
  var %saatnere = $replace(%saatnere,%turreplace)
  $m GET /search?q=google+saat+ $+ %saatnere HTTP/1.1
  $m Host: $sit
  $m Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  $m Accept-Encoding: *
  $m $crlf
}
on *:sockread:saat:{
  var %saat
  if $sockerr { 
    .sockclose $sockname 
    msg %saatchan > Socket Hatasi 
  }
  sockread -f %saat
  var %patt = /(.+)BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd">(.+)/
  var %patt2 = /"r0bn4c rQMQod">(.+)</span></span></span>/
  var %patt3 = /<div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/$
  if ($+(*,%saatnere,*) iswm %saat && $regex(%saat,%patt)) {
    var %saat__ = $regml(2)
    noop $regex(%saat,%patt2)
    var %ulke_ $regml(1)
    noop $regex(%saat,%patt3)
    var %tarih_ = $regml(1)
    msg %saatchan %ulke_ [Saat] %saat__ [Tarih] %tarih_
  }
}
alias -l m return sockwrite -n $sockname
alias -l sit return 
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">

Buyur türkçe karakter sorununu giderecektir. 










    

        

         
         
        

        
        
            
                __________________

             Herkes bir, İş için yaratılmıştır.

ZaLiM1979 · 12 Ocak 2024, 20:38

OperServ Nickli Üyeden Alıntı
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!

on $*:text:/^[.!]saat (.+)$/i:#: {
  if (%saatchan) { 
    msg # > $nick Saat sorgusu yaparken 10 sn beklemelisiniz | msg # > Saat sorgusu yapılacak ülkenin ilk harfini büyük ve türkçe karakter kullanmalısınız. | return 
  }
  set -eu10 %saatchan #
  set -eu10 %saatnere $replace($$2-,$chr(32),+)
  saat
}
alias saat { 
  if $sock(saat) { 
    .sockclose saat 
  } 
  .sockopen saat $sit 80 
}
on *:sockopen:saat: {
  var %turreplace = ş:s,Ş:S,ı:i,İ:I,ğ:g,Ğ:G,ü:u,Ü:U,ö:o,Ö:O,ç:c,Ç:C
  var %saatnere = $replace(%saatnere,%turreplace)
  $m GET /search?q=google+saat+ $+ %saatnere HTTP/1.1
  $m Host: $sit
  $m Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
  $m Accept-Encoding: *
  $m $crlf
}
on *:sockread:saat:{
  var %saat
  if $sockerr { 
    .sockclose $sockname 
    msg %saatchan > Socket Hatasi 
  }
  sockread -f %saat
  var %patt = /(.+)BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd">(.+)/
  var %patt2 = /"r0bn4c rQMQod">(.+)</span></span></span>/
  var %patt3 = /<div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/$
  if ($+(*,%saatnere,*) iswm %saat && $regex(%saat,%patt)) {
    var %saat__ = $regml(2)
    noop $regex(%saat,%patt2)
    var %ulke_ $regml(1)
    noop $regex(%saat,%patt3)
    var %tarih_ = $regml(1)
    msg %saatchan %ulke_ [Saat] %saat__ [Tarih] %tarih_
  }
}
alias -l m return sockwrite -n $sockname
alias -l sit return 
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">

Buyur türkçe karakter sorununu giderecektir.

Mahlesef calismiyor..

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

[12:01:2024|18:36:29] <TeuFeLs-KerL> !saat Zürich
[12:01:2024|18:36:34] <TeuFeLs-KerL> !saat Zurich
[12:01:2024|18:36:34] <KuRDo> > TeuFeLs-KerL Saat sorgusu yaparken 10 sn beklemelisiniz
[12:01:2024|18:36:34] <KuRDo> > Saat sorgusu yapılacak ülkenin ilk harfini büyük ve türkçe karakter kullanmalısınız.
[12:01:2024|18:36:54] <TeuFeLs-KerL> !saat Zurich
[12:01:2024|18:37:08] <TeuFeLs-KerL> !saat Zürih
 [12:01:2024|18:37:22] <TeuFeLs-KerL> !saat Zurih

Bu Kod su hatayi verdi: [18:42] * Invalid parameters: $replace (line 17, DunyaSaat.mrc)
Satir 17 $replace hatasi..

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Socket !ip ip-numarasi sorgulama	IoRi YaGaMi	mIRC Scripting Sorunları	3	26 Ağustos 2019 20:04
YDS sonuçları saat kaçta açıklanacak? ÖSYM YDS sonuçları sorgulama…	yaSmin	YGS ve LYS'ye Hazırlık	0	19 Nisan 2019 10:44
e-Devlet şehit sorgulama sayfası açıldı! e-Devlet şehit sorgulama nasıl yapılır? Soy ağacı sorgulama...	yaSmin	Haber Arşivi	0	28 Şubat 2018 10:42
Socket ile version sorgulama	xqw	mIRC Scripting Sorunları	0	04 Şubat 2018 15:35
Socket bot kanalda nick sorgulama	xqw	mIRC Scripting Sorunları	4	06 Haziran 2016 21:43

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.