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/)
-   -   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.

Feragat 02 Mart 2014 01:33
Cevap: TV yayin akışından seçmeler...
 
Bu kodu ben bir gece yarısı güzelce çalışır hale getirmiştim ve hatta sana da PM olarak atmıştım @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hatırlarsan. Kod gayet güzelce bilgileri çekip nereye istersen yansıtıyordu. Fakat çektiği verideki dizi ve filmlerin tarihlerine tesadüfen baktığımda 2012 den bu yana güncellenmemiş olduğunu fark edip çok gülmüştüm kendime hahah. Hatta bunu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] a da söylemiştim ve sana da PM atarak bildirmiştim. Daha sonra buna benzer siteleri araştırdım falan, çoğunun kaynak yapıları veri çekmeye pek uygun değildi. Birazda üşendim açıkçası. Bu siteyi şuan itibarıyla kontrol ettim. Site, güncel tv programı paylaşımını bırakmış. Farklı ve uygun bir siteden veri çektirmek lazım.

kheldor 02 Mart 2014 19:16
Cevap: TV yayin akışından seçmeler...
 
Evet sevgili feragat dün gibi hatırlıyorum. Artık bilare siteyi bulurda müsait olursanız bekleriz :)


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

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