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..

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..

OperServ · 12 Ocak 2024, 21:02

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

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..

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-,[şSıİğĞüÜöÖçÇ],[sSiIgGuUoOcC])
  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">  Bunu ekleyin. 
   
   
                __________________
 Herkes bir, İş için yaratılmıştır.

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Socket !ip ip-numarasi sorgulama	Kyo	mIRC Scripting Sorunları	3	26 Ağustos 2019 20:04
YDS sonuçları saat kaçta açıklanacak? ÖSYM YDS sonuçları sorgulama…	yaSmin	YKS ve LGS`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.