Türkiye Covid19(Korona) Genel Durum Remotesi

[Root]

Türkiye Covid19(Korona) Genel Durum Remotesi
Kod Yazarı : pCKopat


Kullanım: .covid veya !covid​

on $*:text:/^[.!]covid$/Si:#: { .covid }
alias kdzlt return $replace($1-,":",$+(:,$chr(32),$chr(3),04),tarih,Tarih,gunluk_test,Günlük Test,gunluk_vaka,Günlük Vaka,gunluk_vefat,Günlük Vefat,gunluk_iyilesen,Günlük İyileşen,toplam_test,Toplam Test,toplam_vefat,Toplam Vefat,toplam_vaka,Toplam Vaka,toplam_iyilesen,Toplan İyileşen,hastalarda_zaturre_oran,Hastalarda Zatürre Oranı,agir_hasta_sayisi,Ağır Hasta Sayısı,yatak_doluluk_orani,Yatak Doluluk Oranı,eriskin_yogun_bakim_doluluk_orani,Erişkin Yoğun Bakım Doluluk Oranı,ventilator_doluluk_orani,Ventilator Doluluk Oranı,ortalama_temasli_tespit_suresi,Ortalama Temaslı Tespit Süresi,filyasyon_orani,Filyasyon Oranı)
alias tdzlt return $replace($1-,01,Ocak,02,Şubat,03,Mart,04,Nisan,05,Mayıs,06,Haziran,07,Temmuz,08,Ağustos,09,Eylül,10,Ekim,11,Kasım,12,Aralık)
alias covid {
  if $sock(covid) { sockclose $ifmatch }
  sockopen -e covid covid19.saglik.gov.tr 443
  sockmark covid $active
}
on *:sockopen:covid: {
  if $sockerr {
    echo -a 12Bağlantı hatası $sock($sockname).wsmsg
    return
  }
  sockwrite -nt $sockname GET /TR-66935/genel-koronavirus-tablosu.html HTTP/1.0
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname Host: covid19.saglik.gov.tr
  sockwrite -nt $sockname
}

on *:sockread:covid: {
  var %f | sockread -f %f
  if (*var geneldurumjson*[{"tarih"* iswm %f) {
    if $regex(%f,/"(\w+":"[\d+\.]+)/Sgi) { var %r = 1
      msg $sock($sockname).mark 06 $+ $token($token($regml(1),3,34),1,46) $tdzlt($token($regml(1),2,46)) $token($regml(1),3,46) 02TÜRKİYE Genel Koronavirüs Tablosu
      while %r <= $regml(0) {
        msg $sock($sockname).mark $kdzlt($regml(%r))
        inc %r
        if ($token($regml($calc(%r +1)),1,34) == tarih) { break }
      }
    }
  }
}

Detaylı Kurulum​

ESKİ SÜRÜM MİRÇLERDE SLL BUTTON TIKLANMIYOR AÇILMASI İÇİN
DİL DOSYASI VAR 2 TANE ALLTAKİ ŞEKİLDE EKLEYİP SONRA MİRC KAPAT AÇ TEKRAR
AYARLAR GİR VE SLL BOLUMUNE GEL ORADA OTOMATİK KABUL ET DİYORSUN

PC veya VPS 32 bit ise ; C:\Windows\System32 klasorunun içine dosyaları atsın.(libeay32.dll,ssleay32.dll)

PC veya VPS 64 bit ise ; C:\Windows\SysWOW64 klasorunun içine dosyaları atsın.(libeay32.dll,ssleay32.dll)

Bunlari yapmakla bitmedi.Dosyaları attıktan sonra;

    mIRC Scripti açarak alt + o basıyoruz.
    Karşımıza aşağıdaki gibi ekran önümüze gelmektedir.
    O kısımda Ayarlar sekmesine tıklıyoruz.
    Orda kırmızı içine aldığım ssl butonu tıklıyoruz.(Ekteki dosyaları atmadıysanız ssl butonu aktif olmaz.)

    SSL Butona tıkladığımızda aşağıdaki gibi ekran önümüze gelmektedir.
    Resimde gördüğünüz gibi karşımıza 3 seneçek çıkıyor.
    O seçeneklerden Geçersiz Sertifikaları Otomatik Kabul et seçip ok diyoruz.
    Böylelikle mIRC SSL aktif olmuş oluyo