![]() |
| mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz. |
| | Seçenekler | Stil |
| | #1 |
| ;-------------------------------------------------------------- ; Deprem Bildirim Socket Kodu ; Bu kod Kandilli Rasathanesi (KOERI) web sitesinden ; deprem verilerini belirli aralıklarla kontrol eder. ; ; Önemli Not: ; Veriler ANLIK değildir. KOERI sayfasında yayınlandığı ; zaman gelir. Dolayısıyla bildirimler gecikmeli olabilir. ; ; Kullanım: ; 1) Deprem mesajının gönderileceği kanalı "depremkanal" aliasında değiştirin. ; 2) Scripti başlatmak için komut yazın. ; /timer 0 30 deprem ; (30 saniyede bir deprem kontrolü yapar) ; ; Yeni bir deprem bulunduğunda: ; - deprem.txt dosyasına kaydedilir. ; - Belirtilen kanala bildirilir. ;-------------------------------------------------------------- [Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] Kodalias depremkanal return #Sohbet
alias depremler { .sockclose deprem | .sockopen deprem www.koeri.boun.edu.tr 80 }
alias deprem { depremler }
on *:sockopen:deprem:{ var %j = sockwrite -n $sockname | %j GET /scripts/lst9.asp HTTP/1.1 | %j Host: www.koeri.boun.edu.tr | %j $crlf }
on *:sockread:deprem:{
var %deprem
sockread %deprem
if ($+(*,$time(yyyy.mm.dd),*) iswm %deprem) {
tokenize 32 %deprem
set %depremdetay Tarih: $1 Saat: $2 Derinlik: $5 km Siddet: $7 Yer: $9-
if !$read(deprem.txt,w,%depremdetay) { write deprem.txt %depremdetay | msg $depremkanal 0,1[DEPREM] %depremdetay | .sockclose deprem }
if $read(deprem.txt,w,%depremdetay) { .sockclose deprem }
}
} 👍 7 | |
| |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |