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

                __________________
 Bana sihirli kelimeyi söyle 
   
 
 
                    
                        Konu manikdepresif tarafından (12 Ocak 2024  Saat 21:43 ) değiştirilmiştir.