Program télé

Soyez le premier à donner votre avis sur cette source.

Snippet vu 23 733 fois - Téléchargée 27 fois

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

Ajouter un commentaire

Commentaires

Messages postés
59
Date d'inscription
mardi 23 août 2005
Statut
Membre
Dernière intervention
8 janvier 2006

celui de JHD est mieu c vrai mais continu avec plus de chaine
Messages postés
24
Date d'inscription
samedi 20 décembre 2003
Statut
Membre
Dernière intervention
1 juin 2005

pas mal mai copié et je prefaire celui de jhd
Messages postés
15
Date d'inscription
samedi 5 juillet 2003
Statut
Membre
Dernière intervention
8 janvier 2005

y'a quoi sur la M6 ?
mdr..
Messages postés
1
Date d'inscription
dimanche 26 octobre 2003
Statut
Membre
Dernière intervention
27 octobre 2003

je le trouve trés bien ! Mais y'aurait pas moyen de la mettre sur un "bot" histoire que tous le monde en profite, avec une commande genre !tv ??
svp merci :)
Messages postés
81
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
29 juin 2004

lai pas mal mai ta fé ca avec un dll jen ai fé un sans avec si chaine lol lai pas mal non plu mais jessaye plu de chaîne la c + complexe ;))
Afficher les 15 commentaires

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.