Program télé

Commenter

Contenu du snippet

Voila encore un program télé ..

Source / Exemple : 


alias tv {
  dialog -m tv tv
}

dialog tv {
  title Programme Télévisé De Ce SoiR
  size -1 -1 300 370
  button "Fermer",1,5 345 290 20, cancel
  button "Voir Le Programme",2, 5 15 130 20
  edit "Attente De Connexion",3, 140 15 150 20, read
  box "",4, 5 55 290 275
  list 5, 10 65 280 280, multi, return, autovs, autohs, vsbar, hsbar

}
on 1:dialog:tv:init:0: { 

  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog tv
  dll mdx.dll SetDialog tv bgcolor $rgb(255,0,0)
  dll mdx.dll SetDialog tv style staticedge title sysmenu
  dll mdx.dll SetColor tv 3 textbg $rgb(255,0,0) 
  dll mdx.dll SetColor tv 3 text $rgb(255,255,0)
  dll mdx.dll SetColor tv 3 background $rgb(255,0,0)
  dll mdx.dll SetColor tv 4 textbg $rgb(255,0,0) 
  dll mdx.dll SetColor tv 4 text $rgb(255,255,0)
  dll mdx.dll SetColor tv 4 background $rgb(255,0,0)
  dll mdx.dll SetColor tv 5 textbg $rgb(255,0,0) 
  dll mdx.dll SetColor tv 5 text $rgb(255,255,0)
  dll mdx.dll SetColor tv 5 background $rgb(255,0,0)
}
on *:dialog:tv:sclick:2:{
  sockopen tv www.cesoirtv.com 80
  did -ra tv 3 Connexion En Cours.....
}

on *:sockopen:tv:{
  if ($day = Monday) { sockwrite -n tv GET http://www.cesoirtv.com/fr/lundi.htm?time=1050009035548 } 
  if ($day = Tuesday) { sockwrite -n tv GET http://www.cesoirtv.com/fr/mardi.htm?time=1050009035548 } 
  if ($day = Wednesday) { sockwrite -n tv GET http://www.cesoirtv.com/fr/mercredi.htm?time=1050009035548 } 
  if ($day = Thursday) { sockwrite -n tv GET http://www.cesoirtv.com/fr/jeudi.htm?time=1050009035548 } 
  if ($day = Friday) { sockwrite -n tv GET http://www.cesoirtv.com/fr/vendredi.htm?time=1050009035548 } 
  if ($day = Saturday) { sockwrite -n tv GET http://www.cesoirtv.com/fr/samedi.htm?time=1050009035548 } 
  if ($day = Sunday) { sockwrite -n tv GET http://www.cesoirtv.com/fr/dimanche.htm?time=1050009035548 } 
}

on 1:sockread:tv:{
  if ($sockerr > 0) return
  :nextread
  sockread %temp
  did -ra tv 3 Connexion Effectué
  if ($sockbr == 0) return
  if (%temp == $null) %temp = -
  if (<b> isin %temp) && (href !isin $remove($gettok(%temp,1,60),b>)) && (h isin $remove($gettok(%temp,1,60),b>)) { did -a tv 5 $replace($remove($gettok(%temp,1,60),b>),À,À,è,È,É,É,ô,Ô,û,Û,ê,Ê,î,Î,&#338;,O,Ç,Ç,&#339;,o) }
  if ( <img src="tf1.gif" alt="TF1"> isin %temp ) { did -a tv 5 $chr(32) | did -a tv 5 Sur TF1 }
  if ( <img src="france2.gif" alt="FRANCE 2"> isin %temp ) { did -a tv 5 $chr(32) | did -a tv 5 Sur France 2 }
  if ( <img src="france3.gif" alt="FRANCE 3"> isin %temp ) { did -a tv 5 $chr(32) | did -a tv 5 Sur France 3 }
  if ( <img src="canalplus.gif" alt="CANAL PLUS"> isin %temp ) { did -a tv 5 $chr(32) | did -a tv 5 Sur Canal + }
  if ( <img src="arte.gif" alt="ARTE"> isin %temp ) { did -a tv 5 $chr(32) | did -a tv 5 Sur Arté }
  if ( <img src="m6.gif" alt="M6"> isin %temp ) { did -a tv 5 $chr(32) | did -a tv 5 Sur M6 }
}

Conclusion :


No buggs

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (The_De[V]iL_ReD)