IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Korona Virus.tcl (https://www.ircforumlari.net/tcl-scriptler/861731-korona-virustcl.html)

Korona Virus.tcl

korona virüsü tcl. Bu benim tarafımdan yapılmış bir tcl, herhangi bir hata bana bildirin. İspanyolca yapılır, eğer Türkçede isterseniz bana bildirin

Kod:

 ######################################################

 ##Este codigo muestra las estadisticas del coronavirus 

 ##Recuerde habilitar .chanset +virus

 ######################################################

 #Autor: GaMbiTo

 #Email: ViveChat2019@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com

 #######################################################

 
 
 

        ## Disparador

set virus ".covid"

        ########################################################

        ## Flag

setudef flag virus

        ########################################################
 

        ########################################################

        ## Bind

bind pub - $virus info:virus

        ########################################################
 

        ########################################################

        ## Script

proc info:virus {nick host hand chan arg} {

  global ver virus

  if {[channel get $chan virus] && $arg != " "} {

        set signo [lindex [split $arg]]

        set liga "https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set pagina [http::data [http::geturl $liga]]

        regexp -nocase {<div class="maincounter-number"> <span style="color:#aaa">(.*?)</span>} $pagina "" casos

        regexp -nocase {<h1>Deaths:</h1> <div class="maincounter-number"> <span>(.*?)</span>} $pagina "" muertes

        regexp -nocase {China</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" china

        regexp -nocase {Italy</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" italy

        regexp -nocase {Iran</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" iran

        regexp -nocase {Spain</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" spain

        regexp -nocase {S. Korea</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" germany

        regexp -nocase {France</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" corea

        regexp -nocase {USA</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" usa

        regexp -nocase {Switzerland </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" suiza

        regexp -nocase {UK</a> </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" uk

        regexp -nocase {Netherlands </td> <td style="font-weight: bold; text-align:right">(.*?)</td>} $pagina "" paisesbajos

        putserv "PRIVMSG $chan \002\00304Estadisticas del \00301Coronavirus\002"

        putserv "PRIVMSG $chan \002\00306Casos totales:\003\002 \00302$casos\003 \002\00306Muertes totales:\003\002 \00302$muertes\003"

        putserv "PRIVMSG $chan \002\00304Paises mas afectados\002\003"

        putserv "PRIVMSG $chan \002\00306China:\003\002 \00302$china\003 \002\00306Italia:\003\002 \00302$italy\003 \002\00306Iran:\003\002 \00302$iran\003 \002\00306España:\003\002 \00302$spain\003 \002\00306Alemaia:\003\002 \00302$germany\003 \002\00306Corea del Sur:\003\002 \00302$corea\003 \002\00306EE.UU:\003\002 \00302$usa\003 \002\00306Suiza:\003\002 \00302$suiza\003 \002\00306Reino Unido:\003\002 \00302$uk\003 \002\00306Holanda:\003\002 \00302$paisesbajos\003"

          }

         }

        ## /Script

Cevap: Korona Virus.tcl

Kodu Denediniz Mi Bilmiyorum Ama;
Çalışması Şu Durumda Mümkün Görünmüyor!

İlk Bakışta Gördüğüm Eksiklikleri ,
Anlatmaya Çalışayım;

HTTP Paketi Komutları Kullanacaksanız,
Prosedür Dışında Bir Yere;
package require http
Eklenmeli Aksi Halde Koddaki
http::geturl Ve http::data Komutlarını Tanımaz,
Hata Atar!

Veri Alınmak İstenen URL: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Olduğunda Tek Başına Http Paketiyle
Veri Almanız Mümkün Değildir!
OpenSSL Tcl Uzantısı (TclTLS): [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Paketinide Kullanmaya İhtiyacınız Olacaktır!

Ayrıca HTTP İle Veri Alınıp Kullanıldıktan Sonra

Hafızada Tutulan Bilgiyi Temizlemek Gerekir!
Bknz: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Aksi Halde Giderek Yavaşlama,Kasma,Donma Ve
Nihayetinde Botun Bağlantıdan Düşmesi,
Kaçınılmaz Olacaktır!

Diğer Bir Konuda;
Prosedür İçinde Kullanacağınız Değişkeni
Global [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
İle Tanıtabilirsiniz!
global ver virus
Satırı Bu Durumda Hiçbir İşlevi Olmayan
Bir Satırdır!
Çünkü Global Edilen Her İki Değişken
Prosedür İçinde Kullanılmıyor!

lindex Komutu Kullanımı :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Re: Korona Virus.tcl

Şu anda benim için harikalar yaratıyor, ancak tcl'yi düzenleyebilir ve düzenlenen dosyayı buraya yükleyebilir, böylece görüp öğrenebilirim

Cevap: Korona Virus.tcl

Biz Buna "Olta Atma!" Deriz!
30 Yaş Daha Genç Olsaydım,Gençliğin Verdiği
Atılganlıkla, Atılan Oltaya Gelebilirdim!

Sizin İçin Harikaysa, Aman Ne Güzel!
Tcl Programlamanın Gerçekleri
Bu Kodun Bu Haliyle İstenen İşi
Yapabilme Olasılığının Olamayacağını Söylüyor!

Neden Olamayacağınada Yukarıda Kısaca
Değindim,Cevapları Hangi Adreslerde Bulabileceğinizide
Yazdım. Gerisi Size Kalmış!

Bol Güneşli Günler Dilerim,Selametle!...

Cevap: Korona Virus.tcl

Alıntı:

Heartbroken Nickli Üyeden Alıntı (Mesaj 1042269877)

Usta senin bilgine hayranim.

CPH1909 cihazımdan Tapatalk kullanılarak gönderildi