13 Ocak 2024, 11:37
|
#15 |
| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: Dünya saat sorgulama socket
| 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...] Kod türkiye ye göre uyarlı ingilizce ülke şehir isimleri kullanmamalısın.
Kod çalışıyor;
Kod: Kodu kopyalamak için üzerine çift tıklayın! 21:54:01] <&Forbidden> !saat Zürih
[21:54:02] <~Atom> Forbidden, [Dünya-Saati] Zürih, İsviçre [Saat] 19:53 [Tarih] 12 Ocak 2024 Cuma
[21:54:04] <&Forbidden> -
[21:54:07] <&Forbidden> !saat Zürih
[21:54:08] <~Atom> Forbidden, [Dünya-Saati] Zürih, İsviçre [Saat] 19:53 [Tarih] 12 Ocak 2024 Cuma
[21:54:10] <&Forbidden> -
[21:54:15] <&Forbidden> !saat Japonya
[21:54:16] <~Atom> Forbidden, [Dünya-Saati] Tokyo, Japonya [Saat] 03:54 [Tarih] 13 Ocak 2024 Cumartesi
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çalışan kodu deneme yapmadan degiştirip bozup adama vermen yanlış bir hareket
|
yukarda resim yükledim bilmem gördünmü, ama Zürih birkac sekilde yazmayi denedim olmadi. Sanirim türkce karakterlerden dolayi calismiyor olabilir bende.
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 11:08 -->-> Daha önceki mesaj 11:02 --
| manikdepresif Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
!time Vienna
!time China
Kod: Kodu kopyalamak için üzerine çift tıklayın! on $*:text:/^[.!](saat|time) (.+)$/i:#sohbet,#felsefe,#radyo,#mirchelp: {
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 %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+time+ $+ %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 %reg = /div class="kCrYT"><span><span class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)</span></span></span><span class="BNeawe s3v9rd AP7Wnd"> / </span><span><span class="BNeawe s3v9rd AP7Wnd">(.+)</span></span></div><div class="Q0HXG"></div><div><div><div><div class="kCrYT"><div><div><div><div class="BNeawe iBp4i AP7Wnd"><div><div class="BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd"><div><div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/i
if $regex(%saat,%reg) { msg %saatchan $regml(1) $regml(2) $regml(3) $regml(4) }
}
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"> eger calisiyorsa ikisini birlestireyim @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
|
Sagolasin ama buda calismiyor. Sanirim sorun Türkce Karakter'ler yüzünde.
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 11:37 -->-> Daha önceki mesaj 11:08 --
| manikdepresif Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
!time Vienna
!time China
Kod: Kodu kopyalamak için üzerine çift tıklayın! on $*:text:/^[.!](saat|time) (.+)$/i:#sohbet,#felsefe,#radyo,#mirchelp: {
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 %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+time+ $+ %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 %reg = /div class="kCrYT"><span><span class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)</span></span></span><span class="BNeawe s3v9rd AP7Wnd"> / </span><span><span class="BNeawe s3v9rd AP7Wnd">(.+)</span></span></div><div class="Q0HXG"></div><div><div><div><div class="kCrYT"><div><div><div><div class="BNeawe iBp4i AP7Wnd"><div><div class="BNeawe iBp4i AP7Wnd">(.+)</div></div></div></div></div><div><div><div class="BNeawe tAd8D AP7Wnd"><div><div class="BNeawe tAd8D AP7Wnd"><span class="r0bn4c rQMQod">(.+)/i
if $regex(%saat,%reg) { msg %saatchan $regml(1) $regml(2) $regml(3) $regml(4) }
}
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"> eger calisiyorsa ikisini birlestireyim @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
|
Calisiyormus bu.. sagolasin. #sohbet, vsy kanallari sildim calisti.. daha önce görmemistim orayi Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
__________________
SeN BeNiM YiLDiZ KaYaRKeN TuTTuGuM DiLeGiM DeGiL, eZaN oKuRKeN eTTiGiM DuaMSiN!!! |
|
|  |