TV yayin akışından seçmeler... - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Difuzyon · 20 Ocak 2009, 20:26

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.
src="http://img99.imageshack.us/img99/6490/tv1yf7.png" border="0" alt="" />

İşte Kod :

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

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

Kullandım güzel çalışma emeğine sağlık
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

DarkCode · 21 Ocak 2009, 00:53

[Ü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

emeğine sağlık kardeş kullandık çok güzel oldu sağol

Netlogin · 09 Mart 2009, 01:59

Kardesim emegine saglik ama calismadı . Remote bölümüne attım scriptin

Difuzyon · 09 Mart 2009, 03:36

Kodun güncellenmiş hali :

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

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

[Ü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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

XnL · 16 Ocak 2012, 15:57

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

bunu kanalda yayınlatma sansımız varmı !tv tarzı. teşekkürler simdiden

kheldor · 02 Mart 2014, 00:02

Güncel.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
N.F.K. Seçmeler.	Lee	Şiir, Hikaye ve Güzel Sözler	3	07 Nisan 2008 19:05

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

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.