IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý

IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý (https://www.ircforumlari.net/)
-   mIRC Scripting Hazýr Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Takvim socket (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1025284-takvim-socket.html)

manikdepresif 09 Ocak 2024 04:46
Takvim socket
 
Uygulanacak komut: .takvim
-----------------------
Kod:
on $*:text:/^[.!]takvim/i:#sohbet,#radyo,#felsefe,#mirchelp: {  if %takvimchan { return } | set -eu10 %takvimchan $chan | takvim  }
alias takvim { if $sock(takvim1) { .sockclose takvim1 } | .sockopen takvim1 $st 80 }
on *:sockopen:takvim1:{  $m GET /index.php?page=onyuz HTTP/1.0 | $m Host: $st | $m $crlf }
on *:sockread:takvim1:{
  var %takvim
  sockread -f %takvim
  if (*#61A6CF* iswm %takvim) { $a $xturkcex($htmlfree(%takvim))  }
  if (*gundurumu_band* iswm %takvim)  { $a [Gun Durumu] | $a $xturkcex($htmlfree(%takvim))  }
  if (%gunsozudevam)  {  $a $xturkcex($htmlfree(%takvim)) | if  (*</div>* iswm %takvim) { unset %gunsozudevam  }  }
  if (*gununsozu* iswm %takvim) {  $a [Gunun Sozu] | $a $htmlfree(%takvim) | if  *</div>* !iswm %takvim { set %gunsozudevam OK  }  }
  if (%gunolaydevam)  {  $a $xturkcex($htmlfree(%takvim)) | if  (*</div>* iswm %takvim) { unset %gunolaydevam  }  }
  if *gununolayi* iswm %takvim {  $a [Gunun Olayi] | $a $xturkcex($htmlfree(%takvim)) | if  *</div>* !iswm %takvim { set %gunolaydevam OK  }  }
}
on *:sockclose:takvim1:takvim2
alias takvim2 { if $sock(takvim2) { .sockclose takvim2 } | .sockopen takvim2 $st 80 }
on *:sockopen:takvim2:{ $m GET /index.php?page=arkayuz HTTP/1.0 | $m Host: $st | $m $crlf }
on *:sockread:takvim2:{ sockread -f %takvim | if *Erkek* iswm %takvim { $a  $+ $xturkcex($htmlfree(%takvim)) } }
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }
alias -l a return msg %takvimchan  | unset %takvim
alias -l st return
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
alias -l m return  sockwrite -n $sockname

alias -l xturkcex {
  return $replacecs($1-,î,i,â,a,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ,$&
    Ccedil;,Ç,A»,û,circ;s,s,icirc;,i,Uuml;,Ü,i ldquo;,i,hrdquo;,h,acirc;,a,ı,ý,circ;I,I,uml;B,B,nýrsquo;,`,$chr(195),A,$&circ;R,R,rsquo;yi,`yi,ccedil;,ç,ouml;,ö,ç,ç,uuml;,ü,rsquo;,')
}

SNOOPY 09 Ocak 2024 08:57
Cevap: Takvim socket
 
Üstad yine güzel bir çalýþma yapmýþsýn

Forbidden 09 Ocak 2024 18:46
Cevap: Takvim socket
 
Hatalar giderildi türkçe karakter sorunu çözüldü.

Kod;

Kod:
on $*:text:/^[.!]takvim/i:#: {  if %takvimchan { return } | set -eu10 %takvimchan $chan | takvim  }
alias takvim { if $sock(takvim1) { .sockclose takvim1 } | .sockopen takvim1 $st 80 }
on *:sockopen:takvim1:{  $m GET /index.php?page=onyuz HTTP/1.0 | $m Host: $st | $m $crlf }
on *:sockread:takvim1:{
  var %takvim
  sockread -f %takvim
  if (*#61A6CF* iswm %takvim) { $a $xturkcex($htmlfree(%takvim))  }
  if (*gundurumu_band* iswm %takvim)  { $a [Gun Durumu] | $a $xturkcex($htmlfree(%takvim))  }
  if (%gunsozudevam)  {  $a $xturkcex($htmlfree(%takvim)) | if  (*</div>* iswm %takvim) { unset %gunsozudevam  }  }
  if (*gununsozu* iswm %takvim) {  $a [Gunun Sozu] | $a $xturkcex($htmlfree(%takvim)) | if  *</div>* !iswm %takvim { set %gunsozudevam OK  }  }
  if (%gunolaydevam)  {  $a $xturkcex($htmlfree(%takvim)) | if  (*</div>* iswm %takvim) { unset %gunolaydevam  }  }
  if *gununolayi* iswm %takvim {  $a [Gunun Olayi] | $a $xturkcex($htmlfree(%takvim)) | if  *</div>* !iswm %takvim { set %gunolaydevam OK  }  }
}
on *:sockclose:takvim1:takvim2
alias takvim2 { if $sock(takvim2) { .sockclose takvim2 } | .sockopen takvim2 $st 80 }
on *:sockopen:takvim2:{  $m GET /index.php?page=arkayuz HTTP/1.0 | $m Host: $st | $m $crlf }
on *:sockread:takvim2:{ sockread -f %takvim | if *<div class="alt">* iswm %takvim { $a $xturkcex($htmlfree(%takvim)) } }
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }
alias -l a return msg %takvimchan  | unset %takvim
alias -l st return
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
alias -l m return  sockwrite -n $sockname
alias -l xturkcex { return $replacecs($1-,î,i,â,a,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ) }

HOROZ 09 Ocak 2024 21:45
Cevap: Takvim socket
 
Emeðinize saðlýk

manikdepresif 09 Ocak 2024 22:29
Cevap: Takvim socket
 
tesekkurler HOROZ bey.

manikdepresif 10 Ocak 2024 01:24
Cevap: Takvim socket
 
bilgi: bazi karakterlerde sikinti cikabiliyor forbidden duzeltir onlari ilerleyen zamanlarda

SpinoZi 12 Ocak 2024 07:30
Cevap: Takvim socket
 
Emeðinize saðlýk.

Forbidden 13 Ocak 2024 01:31
Cevap: Takvim socket
 
Tekrardan karakter hatalarýna bakýldý ve düzeltildi kod güncellendi.

Kod;

Kod:
on $*:text:/^[.!]takvim/i:#sohbet,#radyo,#felsefe,#mirchelp: {  if %takvimchan { return } | set -eu10 %takvimchan $chan | takvim  }
alias takvim { if $sock(takvim1) { .sockclose takvim1 } | .sockopen takvim1 $st 80 }
on *:sockopen:takvim1:{  $m GET /index.php?page=onyuz HTTP/1.0 | $m Host: $st | $m $crlf }
on *:sockread:takvim1:{
  var %takvim
  sockread -f %takvim
  if (*#61A6CF* iswm %takvim) { $a $xturkcex($htmlfree(%takvim))  }
  if (*gundurumu_band* iswm %takvim)  { $a [Gun Durumu] | $a $xturkcex($htmlfree(%takvim))  }
  if (%gunsozudevam)  {  $a $xturkcex($htmlfree(%takvim)) | if  (*</div>* iswm %takvim) { unset %gunsozudevam  }  }
  if (*gununsozu* iswm %takvim) {  $a [Gunun Sozu] | $a $htmlfree(%takvim) | if  *</div>* !iswm %takvim { set %gunsozudevam OK  }  }
  if (%gunolaydevam)  {  $a $xturkcex($htmlfree(%takvim)) | if  (*</div>* iswm %takvim) { unset %gunolaydevam  }  }
  if *gununolayi* iswm %takvim {  $a [Gunun Olayi] | $a $xturkcex($htmlfree(%takvim)) | if  *</div>* !iswm %takvim { set %gunolaydevam OK  }  }
}
on *:sockclose:takvim1:takvim2
alias takvim2 { if $sock(takvim2) { .sockclose takvim2 } | .sockopen takvim2 $st 80 }
on *:sockopen:takvim2:{ $m GET /index.php?page=arkayuz HTTP/1.0 | $m Host: $st | $m $crlf }
on *:sockread:takvim2:{ sockread -f %takvim | if *Erkek* iswm %takvim { $a  $+ $xturkcex($htmlfree(%takvim)) } }
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }
alias -l a return msg %takvimchan  | unset %takvim
alias -l st return
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
alias -l m return  sockwrite -n $sockname

alias -l xturkcex {
  return $replacecs($1-,î,i,â,a,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ,$&
    Ccedil;,Ç,A»,û,circ;s,s,icirc;,i,Uuml;,Ü,i ldquo;,i,hrdquo;,h,acirc;,a,ı,ý,circ;I,I,uml;B,B,nýrsquo;,`,$chr(195),A,$&circ;R,R,rsquo;yi,`yi,ccedil;,ç,ouml;,ö,ç,ç,uuml;,ü,rsquo;,')
}


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

SNOOPY 13 Ocak 2024 10:39
Cevap: Takvim socket
 
Kodunuz güncellendi


Tüm Zamanlar GMT +3 Olarak Ayarlanmýþ. Þuanki Zaman: 00:16.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk