IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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/)
-   -   TV yayin akışından seçmeler... (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/173356-tv-yayin-akisindan-secmeler.html)

Difuzyon 20 Ocak 2009 20:26
TV yayin akışından seçmeler...
 
Günlük olarak TV'de yayınlanacak bazı film,dizi,sinema,yarışma vs vs seçmeleri, program içeriği ile birlikte bilgi olarak sunmaktadır.
Bu akşam "Dudaktan Kalbe" de ne olacak? diyenlere,ipucu vermektedir :)

Kaynak :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color=red>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

İşte Kod :

Kod:
on *:sockopen:yayin:{
  sockwrite -n $sockname GET / HTTP/1.1
  sockwrite -n $sockname Host: yayinakisi.com $+ $crlf $+ $crlf
}
on *:sockread:yayin:{
  if ($sockerr) {
    echo 4 -a Veri alımında Hata oluştu... | .timertv off | window -c @TV | halt
  }
  else { 
    var %difi
    sockread %difi
    if (*table width='450' border='0' name=* iswm %difi) { aline 12 @TV $replace($remove($deltok(%difi,1-3,61),>),$+($chr(38),#146,$chr(59)),`,$+($chr(38),#8217,$chr(59)),',$+($chr(38),#8221,$chr(59)),",$+($chr(38),#146,$chr(59)),`,$+($chr(38),#8220,$chr(59)),",$+($chr(38),#8230,$chr(59)),...,$+($chr(38),#8216,$chr(59)),?,$+($chr(38),#8211,$chr(59)),-) }
    if (*td width='50'>*</td* iswm %difi) && (2009 !isin %difi) { aline 6 @TV $remove($htmlfree(%difi),$chr(9)) }
    if (*td width='70'>*</td* iswm %difi) { aline 3 @TV $htmlfree(%difi) }
    if (*alt=*title=*class=*</td> iswm %difi) { echo -h @TV $replace($htmlfree(%difi),$+($chr(38),#8217,$chr(59)),',$+($chr(38),#8221,$chr(59)),",$+($chr(38),#146,$chr(59)),`,$+($chr(38),#8220,$chr(59)),",$+($chr(38),#8230,$chr(59)),...,$+($chr(38),#8216,$chr(59)),?,$+($chr(38),#8211,$chr(59)),-) | aline 4 @TV ______________________________________________________________________ }
  }
}
alias tvyayin {
  echo -a 12** 4Liste alınıyor...
  sockopen yayin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  $iif($window(@TV),window -c @TV)
  window -hdk0C +lt @TV 0 0 490 375 Verdana 11
  .titlebar @TV yayın akışından seçmeler...
  .timertv 1 4 window -wa @TV
  .timeryayin 1 5 sockclose yayin
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
NOT: Bazı ascii karakterlerin kod içerisinde otomatik çevrilmesinden dolayı,biraz uzatmak zorunda kaldım...

Kullanımı : /tvyayin

Hoşca paylaşımlar...

onNes 20 Ocak 2009 20:32
Cevap: TV yayin akışından seçmeler...
 
Kullandım güzel çalışma emeğine sağlık:)

DarkCode 21 Ocak 2009 00:53
Cevap: TV yayin akışından seçmeler...
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Güzel Çalışma Emeğine Sağlık Kardeşim.

Lord_FSohbet 26 Ocak 2009 19:27
Cevap: TV yayin akışından seçmeler...
 
emeğine sağlık kardeş kullandık çok güzel oldu sağol

Netlogin 09 Mart 2009 01:59
Cevap: TV yayin akışından seçmeler...
 
Kardesim emegine saglik ama calismadı . Remote bölümüne attım scriptin

Difuzyon 09 Mart 2009 03:36
Cevap: TV yayin akışından seçmeler...
 
Kodun güncellenmiş hali :

Kod:
on *:sockopen:yayin:{
  sockwrite -n $sockname GET /tvprogramlari.php HTTP/1.1
  sockwrite -n $sockname Host: yayinakisi.com $+ $crlf $+ $crlf
}
on *:sockread:yayin:{
  if ($sockerr) {
    echo 4 -a Veri alımında Hata oluştu... | .timertv off | window -c @TV | halt
  }
  else { 
    var %difi
    sockread %difi
    if (*table width='450' border='0' name=* iswm %difi) { aline 12 @TV $replace($remove($deltok(%difi,1-3,61),>),$+($chr(38),#146,$chr(59)),`,$+($chr(38),#305,$chr(59)),ı,$+($chr(38),#351,$chr(59)),ş,$+($chr(38),#8217,$chr(59)),',$+($chr(38),#8221,$chr(59)),",$+($chr(38),#146,$chr(59)),`,$+($chr(38),#8220,$chr(59)),",$+($chr(38),#8230,$chr(59)),...,$+($chr(38),#8216,$chr(59)),?,$+($chr(38),#8211,$chr(59)),-) }
    if (*td width='50'>*</td* iswm %difi) && (2009 !isin %difi) { aline 6 @TV $replace($remove($htmlfree(%difi),$chr(9)),$+($chr(38),#8217,$chr(59)),',$+($chr(38),#8221,$chr(59)),",$+($chr(38),#146,$chr(59)),`,$+($chr(38),#305,$chr(59)),ı,$+($chr(38),#351,$chr(59)),ş,$+($chr(38),#8220,$chr(59)),",$+($chr(38),#8230,$chr(59)),...,$+($chr(38),#8216,$chr(59)),?,$+($chr(38),#8211,$chr(59)),-) }
    if (*td width='70'>*</td* iswm %difi) { aline 3 @TV $htmlfree(%difi) }
    if (*alt=*title=*class=*</td> iswm %difi) && (*<h1><strong> <a href=*</a></strong></h1></td* !iswm %difi) { echo -h @TV $replace($htmlfree(%difi),$+($chr(38),#8217,$chr(59)),',$+($chr(38),#8221,$chr(59)),",$+($chr(38),#146,$chr(59)),`,$+($chr(38),#305,$chr(59)),ı,$+($chr(38),#351,$chr(59)),ş,$+($chr(38),#8220,$chr(59)),",$+($chr(38),#8230,$chr(59)),...,$+($chr(38),#8216,$chr(59)),?,$+($chr(38),#8211,$chr(59)),-) | aline 4 @TV ______________________________________________________________________ }
  }
}
alias tvyayin {
  echo -a 12** 4Liste alınıyor...
  sockopen yayin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
  $iif($window(@TV),window -c @TV)
  window -hdk0C +lt @TV 0 0 490 375 Verdana 11
  .titlebar @TV yayın akışından seçmeler...
  .timertv 1 4 window -wa @TV
  .timeryayin 1 5 sockclose yayin
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
Kullanımı: /tvyayin

NOT: Kaynak alınan site , sayfalarda değişikliğe gittiğinden kodu tekrar yenilemek zorunda kaldım.

İyi forumlar...

Mustafa 09 Mart 2009 03:40
Cevap: TV yayin akışından seçmeler...
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gerçekten işinizi çok çok güzel yapıyosunuz. mIRCScript Sorunlarında cvp vermediğin konu görmedim, gerçekten tebrikler güzel paylaşım eksik olma :)

XnL 16 Ocak 2012 15:57
Cevap: TV yayin akışından seçmeler...
 
bunun kanallarda yayınlanabılır yanı varmıdır kii... emegine saglık bir haber txt si gibi bunuda yapabilirmiyiz ki..!

kheldor 12 Ekim 2013 01:53
Cevap: TV yayin akışından seçmeler...
 
bunu kanalda yayınlatma sansımız varmı !tv tarzı. teşekkürler simdiden

kheldor 02 Mart 2014 00:02
Cevap: TV yayin akışından seçmeler...
 
Güncel.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:14.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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