Hava Durumu (!havadurumu <adres>) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Paint · 11 Mayıs 2014, 15:34

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias havadurumu {
  var %sn havadurumu- $+ $ticks
  sockopen %sn mynet.com 80
  sockmark %sn $1-
  echo -a $1-
}
on *:sockopen:havadurumu-*:{
  var %k sockwrite -tn $sockname
  %k GET /havadurumu/asya/turkiye/ $+ $replace($gettok($sock($sockname).mark,1,189),$chr(32),/) HTTP/1.1
  %k host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:havadurumu-*:{
  var %a
  sockread %a
  if Moved Permanently isin %a { $gettok($sock($sockname).mark,2,189) [HATA] Sorgulanan adres bulunamadı. }
  var %b $remove($utfdecode($nohtml(%a)),$chr(9))
  if itemprop isin %a { $gettok($sock($sockname).mark,2,189) 7 ~~~~12 $replace($remove(%b,hava durumu),&gt;,>) İçin 5 Günlük Hava Tahmini 7~~~~ }
  if span class="hv isin %a {
    if day isin %a { set %hvdrm $+(10[,%b,]) $str(- ,$iif($len(%b) == 4,9,$calc(11- $iif(ş isin %b,$calc($len(%b) +1),$len(%b))))) }
    if mood isin %a { set %hvdrm %hvdrm  3Hava olayı:3 %b }
    if deg1 isin %a { set %hvdrm %hvdrm  - 4En yüksek: %b }
    if deg2 isin %a { set %hvdrm %hvdrm  1* 10En düşük: %b | $gettok($sock($sockname).mark,2,189) %hvdrm }
  }
}
on *:text:!havadurumu *:#:havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg #

alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Che · 24 Mayıs 2014, 22:20

bu kod hakkında bilgi verecek arkadas varmı

kheldor · 25 Mayıs 2014, 21:02

Zaten hatalı

Alıntı:

[20:57:51] <admin> !havadurumu istanbul maltepe
[20:57:51] <&test> [Pazar] ------ Hava olay?: Parçalı Bulutlu * En dü?ük: 16°C
[20:57:52] <&test> [Salı] --------- Hava olay?: Çok Bulutlu * En dü?ük: 17°C
[20:57:52] <&test> [Perşembe] --- Hava olay?: Parçalı Bulutlu * En dü?ük: 18°C
[20:57:52] <&test> [Pazar] ------ Hava olay?: Çok Bulutlu * En dü?ük: 11°C
[20:57:52] <&test> [Salı] --------- Hava olay?: Çok Bulutlu * En dü?ük: 13°C
[20:57:52] <&test> [Perşembe] --- Hava olay?: Parçalı Bulutlu * En dü?ük: 14°C
[20:57:52] <&test> [Pazar] ------ Hava olay?: Parçalı Bulutlu * En dü?ük: 18°C
[20:57:52] <&test> [Salı] --------- Hava olay?: Parçalı Bulutlu * En dü?ük: 22°C
[20:57:52] <&test> [Perşembe] --- Hava olay?: Parçalı Bulutlu * En dü?ük: 20°C

Paint · 26 Mayıs 2014, 01:17

kheldor Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Zaten hatalı

[01:16:55] <Ethnotronix> !havadurumu istanbul maltepe
[01:16:56] <VPS> [HATA] Sorgulanan adres bulunamadı.

Bulunmamasının sebebi ildeki sadece merkez ilçelerin ekli olması kaynak sitede.

Kodu kopyalarken hepsini kopyaladığınıza emin olun, birde eski mIRC sürümlerinde çalışmayabilir.

kheldor · 27 Mayıs 2014, 22:04

[22:04:22] [test VERSION tekrarı]: mIRC v6.35 Khaled Mardam-Bey

6.35 de calısmıyor mu ?

Ek olarak maltepe sorgusu yukarıda aktif çalışırken sizde çalışmaması dahada garip. Kodun hatalı veyahut düzeltilmesi gereken yeri varsa müsait olunca bakarsanız sevinirim. Saygılar

Paint · 28 Mayıs 2014, 17:31

kheldor Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[22:04:22] [test VERSION tekrarı]: mIRC v6.35 Khaled Mardam-Bey

6.35 de calısmıyor mu ?

Ek olarak maltepe sorgusu yukarıda aktif çalışırken sizde çalışmaması dahada garip. Kodun hatalı veyahut düzeltilmesi gereken yeri varsa müsait olunca bakarsanız sevinirim. Saygılar

Kaynak siteye baktım Maltepe yok.

Başka kişilerede denettirdim kodu problem görünmüyor.

6.35'de kullanıyorum bende bu arada.

KivanC · 02 Aralık 2014, 22:44

Paint Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias havadurumu {
  var %sn havadurumu- $+ $ticks
  sockopen %sn mynet.com 80
  sockmark %sn $1-
  echo -a $1-
}
on *:sockopen:havadurumu-*:{
  var %k sockwrite -tn $sockname
  %k GET /havadurumu/asya/turkiye/ $+ $replace($gettok($sock($sockname).mark,1,189),$chr(32),/) HTTP/1.1
  %k host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:havadurumu-*:{
  var %a
  sockread %a
  if Moved Permanently isin %a { $gettok($sock($sockname).mark,2,189) [HATA] Sorgulanan adres bulunamadı. }
  var %b $remove($utfdecode($nohtml(%a)),$chr(9))
  if itemprop isin %a { $gettok($sock($sockname).mark,2,189) 7 ~~~~12 $replace($remove(%b,hava durumu),&gt;,>) İçin 5 Günlük Hava Tahmini 7~~~~ }
  if span class="hv isin %a {
    if day isin %a { set %hvdrm $+(10[,%b,]) $str(- ,$iif($len(%b) == 4,9,$calc(11- $iif(ş isin %b,$calc($len(%b) +1),$len(%b))))) }
    if mood isin %a { set %hvdrm %hvdrm  3Hava olayı:3 %b }
    if deg1 isin %a { set %hvdrm %hvdrm  - 4En yüksek: %b }
    if deg2 isin %a { set %hvdrm %hvdrm  1* 10En düşük: %b | $gettok($sock($sockname).mark,2,189) %hvdrm }
  }
}
on *:text:!havadurumu *:#:havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg #

alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

6.35 kullanıyorum ama çalıştıramadım.

Paint · 02 Aralık 2014, 23:36

mIRC Ayarları (Alt + O) > Diğer > Kilitle bölümünde Decode'yi pasif hale getirin.

KivanC · 05 Aralık 2014, 09:37

Paint Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias havadurumu {
  var %sn havadurumu- $+ $ticks
  sockopen %sn mynet.com 80
  sockmark %sn $1-
  echo -a $1-
}
on *:sockopen:havadurumu-*:{
  var %k sockwrite -tn $sockname
  %k GET /havadurumu/asya/turkiye/ $+ $replace($gettok($sock($sockname).mark,1,189),$chr(32),/) HTTP/1.1
  %k host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:havadurumu-*:{
  var %a
  sockread %a
  if Moved Permanently isin %a { $gettok($sock($sockname).mark,2,189) [HATA] Sorgulanan adres bulunamadı. }
  var %b $remove($utfdecode($nohtml(%a)),$chr(9))
  if itemprop isin %a { $gettok($sock($sockname).mark,2,189) 7 ~~~~12 $replace($remove(%b,hava durumu),&gt;,>) İçin 5 Günlük Hava Tahmini 7~~~~ }
  if span class="hv isin %a {
    if day isin %a { set %hvdrm $+(10[,%b,]) $str(- ,$iif($len(%b) == 4,9,$calc(11- $iif(ş isin %b,$calc($len(%b) +1),$len(%b))))) }
    if mood isin %a { set %hvdrm %hvdrm  3Hava olayı:3 %b }
    if deg1 isin %a { set %hvdrm %hvdrm  - 4En yüksek: %b }
    if deg2 isin %a { set %hvdrm %hvdrm  1* 10En düşük: %b | $gettok($sock($sockname).mark,2,189) %hvdrm }
  }
}
on *:text:!havadurumu *:#:havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg #

alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

peki /havadurumu/yurtdisi , Yurt Dışı hava durumların öğrenebilirmiyiz.
Sebebi , Yurt Dışından giren yoldaşlarımız dostlarımız ve akrabalarımız var, mümkünmüdür.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

kheldor · 13 Aralık 2014, 01:15

Alıntı:

01:11:25] <test> ~~~~ İstanbul İçin 5 Günlük Hava Tahmini ~~~~
[01:11:25] <BT> test Hoş geldiniz.
[01:11:27] <test> [Pazar] ------ Hava olayı: Parçalı Bulutlu * En düşük: 9°C
[01:11:28] <test> [] ----------- Hava olayı: Sağanak Yağışlı * En düşük: 10°C
[01:11:28] <test> [Cumartesi] -- Hava olayı: Hafif Sağanak Yağışlı * En düşük: 7°C
[01:11:28] <test> [Pazartesi] -- Hava olayı: Sisli * En düşük: 1°C
[01:11:28] <test> [Çarşamba] -- Hava olayı: Sisli * En düşük: 3°C
[01:11:28] <test> [Cumartesi] -- Hava olayı: Çok Bulutlu * En düşük: 9°C
[01:11:28] <test> [Pazartesi] -- Hava olayı: Az Bulutlu * En düşük: 8°C
[01:11:28] <test> ~~~~ İstanbul İçin 5 Günlük Hava Tahmini ~~~~
[01:11:28] <test> [Cumartesi] -- Hava olayı: Çok Bulutlu * En düşük: 7°C
[01:11:28] <test> [Pazartesi] -- Hava olayı: Parçalı Bulutlu * En düşük: 8°C
[01:11:28] <test> [Çarşamba] -- Hava olayı: Sağanak Yağışlı * En düşük: 10°C

Şunu doğru dürüst çalıştırabilecek bir kod yokmu..

Ya gün yazmaz ya aynı günü 2 - 3 kere yazar. Acaba test etmiyormusunuz yayınlamadan önce ?

Sevgiler.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Hava durumu 17.04.2014 (5 günlük hava tahminleri)	Violent	Haber Arşivi	0	17 Nisan 2014 19:31
Hava durumu	yaSmin	Haber Arşivi	0	19 Mart 2014 15:55
Zonguldak hava durumu, Zonguldak hava durumu 15 günlük	Violent	Karadeniz Bölgesi	0	15 Şubat 2014 15:20
Hava sıcaklığı azalacak, 7 Haziran 2012 Hava Durumu	Violent	Haber Arşivi	0	07 Haziran 2012 10:04
Havadurumu Değil Facebook Profil Durumu	Dilara	Komedi ve Mizah	2	21 Eylül 2010 16:34

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.