mIRC Scripting Hazýr Kodlar mIRC Scriptinglerinizde kullanabileceðiniz hazýr kodlara bu baþlýk altýndan ulaþabilirsiniz. |
|
Seçenekler | Stil |
09 Ocak 2024, 19:00 | #1 |
Takvim Socket Kodu
Komut; !takwim
Örnek; [18:48]» <Atom> !takvim [18:48]» <Forbidden> Yýlýn 9. günü, Kalan Gün : 357 [18:48]» <Forbidden> 1. Ay, 31 Gün, 02. Hafta [18:48]» <Forbidden> [Gun Durumu] [18:48]» <Forbidden> Gündüzün uzamasý 3 dakika - Ezani saat 2 dakika geri alýnýr. [18:48]» <Forbidden> [Gunun Sozu] [18:48]» <Forbidden> Þan, þeref ve üstünlük, mal ile deðil, ilim [18:48]» <Forbidden> ve irfan ile ölçülür. Hadis-i þerif [18:48]» <Forbidden> [Gunun Olayi] [18:48]» <Forbidden> Ahmet Hamdi Akseki"nin vefatý (1951) [18:48]» <Forbidden> Dörtyol"un kurtuluþu (1922) - Enerji Tasarrufu Haftasý [18:48]» <Forbidden> Kod sahibi: jeun Kodon $*: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 www.turktakvim.com alias -l m return sockwrite -n $sockname alias -l xturkcex { return $replacecs($1-,î,i,â,a,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ) } |
|
|
09 Ocak 2024, 19:08 | #2 |
Güzel olmuþ emeðinize saðlýk.
________________
|
|
|
13 Ocak 2024, 06:20 | #3 |
Paylaþým için teþekkürler. Emeðinize saðlýk
|
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayýtlý üye ve 1 Misafir) | |
|
|