Programme télévisé --> mon premier addon en socket !!!

Commenter

Contenu du snippet

Petit addon permettant de visualiser le programme télévisé du soir pour chaque jour. Je sais que vous allez dire que c'est déjà vu, mais c'est mon premier addon en socket alors je suis content :)

Il n'y a que TF1, France 2, France 3, Canal +, Arte, et M6.

Source / Exemple : 


;--------------------------------
;                               
;    -=- Programme TV -=-       
;        By Re[M]i_34           
;                                
;--------------------------------

dialog prog {
  title "-=- Programme Télévisé -=- By Re[M]i_34"
  size -1 -1 138 166
  option dbu
  button "Afficher le Programme", 1, 31 2 72 10
  edit "", 3, 6 22 125 10, read center
  box "Programmes :", 4, 3 14 132 136
  button "Fermer", 5, 80 153 47 10, ok
  edit "", 2, 6 33 125 114, multi return autohs autovs hsbar vsbar
  button "Effacer", 6, 11 153 47 10
}

on *:dialog:prog:sclick:*:{
  if $did == 1 { 
    sockopen pt www.programme-tv.net 80
    did -ra prog 3 Connection en Cours.....
  }
  if $did == 6 {
    did -r prog 3,2
  }
}

on *:sockopen:pt:{ 
  sockwrite -n pt GET http://www.programme-tv.net 
  did -ra prog 3 Connection Effectuée
}
alias regstrip { var %o,%g = $1-,%b = $regsub(%g,/<[^>]+>/g,,%o) | return $remove(%o,$chr(59),$chr(38)) }

on *:sockread:pt:{
  sockread %sr
  if (tf1.gif isin %sr) { did -a prog 2 Programmes sur TF1 : $CRLF  }
  if (france2.gif isin %sr) { did -a prog 2 Programmes sur France 2 : $CRLF  }
  if (france3.gif isin %sr) { did -a prog 2 Programmes sur France 3 : $CRLF  }
  if (canalplus.gif isin %sr) { did -a prog 2 Programmes sur Canal + : $CRLF  }
  if (arte.gif isin %sr) { did -a prog 2 Programmes sur Arte : $CRLF  }
  if (m6.gif isin %sr) { did -a prog 2 Programmes sur M6 : $CRLF  }
  if (<font class=genre> isin %sr) { did -a prog 2 $regstrip(%sr) $CRLF | did -a prog 2 $chr(32) $CRLF }
}
on *:dialog:prog:init:*:{
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetColor $dname 3 text $rgb(255,0,0)
  dll mdx.dll SetColor $dname 2 text $rgb(0,0,255)
  dll mdx.dll SetColor $dname 2,3 textbg $rgb(255,255,255)
  dll mdx.dll SetColor $dname 3 background $rgb(255,255,255)
}
menu * {
  Programme Télévisé:dialog -m prog prog
}

Conclusion :


Voilà !

PS: Je tiens à remercier GRANDEMENT tofu\ et Sorn_Drixer qui m'ont bien aidé :)

NB: Il vous faut mdx.dll dans la racine de votre mIRC ou Script.

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 (cs_ReMi34)