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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Hava Durumu (!havadurumu <adres>) (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/585121-hava-durumu-havadurumu-ltadresgt.html)

Paint 11 Mayıs 2014 15:34

Hava Durumu (!havadurumu <adres>)
 
Kod:

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)

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

Che 24 Mayıs 2014 22:20

Cevap: Hava Durumu (!havadurumu <adres>)
 
bu kod hakkında bilgi verecek arkadas varmı

kheldor 25 Mayıs 2014 21:02

Re: Hava Durumu (!havadurumu <adres>)
 
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

Cevap: Re: Hava Durumu (!havadurumu <adres>)
 
Alıntı:

kheldor Nickli Üyeden Alıntı (Mesaj 1041440213)
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

Cevap: Hava Durumu (!havadurumu <adres>)
 
[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

Cevap: Hava Durumu (!havadurumu <adres>)
 
Alıntı:

kheldor Nickli Üyeden Alıntı (Mesaj 1041441421)
[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

Cevap: Hava Durumu (!havadurumu <adres>)
 
Alıntı:

Paint Nickli Üyeden Alıntı (Mesaj 1041429353)
Kod:

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)

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

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

Paint 02 Aralık 2014 23:36

Cevap: Hava Durumu (!havadurumu <adres>)
 
mIRC Ayarları (Alt + O) > Diğer > Kilitle bölümünde Decode'yi pasif hale getirin.

KivanC 05 Aralık 2014 09:37

Cevap: Hava Durumu (!havadurumu <adres>)
 
Alıntı:

Paint Nickli Üyeden Alıntı (Mesaj 1041429353)
Kod:

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)

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

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

Cevap: Hava Durumu (!havadurumu <adres>)
 
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.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:11.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk