Türkiye Covid19(Korona) Genel Durum Remotesi
Kod Yazarı : pCKopat
Kullanım: .covid veya !covid
Kod Yazarı : pCKopat
Kullanım: .covid veya !covid
Kod:
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
Kod:
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