Info via un site web

Commenter

Contenu du snippet

Ce remote permet d'aller lire un fichier texte d'une ligne sur un site et permet de garder contact avec les personne possédant ce fichier

Le fichier texte doit faire une ligne et contenir en fin de ligne un retour chariot (Entrée sur le clavier)

Source / Exemple : 


Alias Annonce {
  sockclose Annonce
  sockopen Annonce <www.nomsite.fr> 80
  .timerSockAnnonce 1 180 sockclose Annonce
}

on *:sockopen:Annonce: {
  if $sockerr > 0 { sockclose $sockname | return }
  sockwrite -tn $sockname GET <http://www.nomsite.fr/Annonceenfichiertexte.txt>
}

on *:sockread:Annonce: {
  if $sockerr > 0 return
  sockread %AnnonceRead
  if $sockbr == 0 { return }
  if (%AnnonceRead == $null) { %AnnonceRead = Aucune News }
  dialog -m Annonce Annonce
  sockclose $sockname 
}

Dialog Annonce {
  TITLE     "Info"
  SIZE      -1 -1 350 100
  OPTION NOTHEME
  LIST 100, 2 2 346 80, VSBAR, HSBAR
  BUTTON "&Fermer", 10, 265 75 70 20, OK, CANCEL, DEFAULT, FLAT
}

On *:dialog:annonce:init:0: {
  If ( %AnnonceRead != $null ) && ( %AnnonceRead != %AnnonceAncien ) { 
    Did -ra Annonce 100
    Did -a Annonce 100 %AnnonceRead
    Set %AnnonceAncien %AnnonceRead
    .timer 1 5 dialog -x Annonce Annonce
  }
  Else { dialog -x Annonce Annonce }
  Unset %AnnonceRead
}

; Pour que l'exécution se fasse au bout d'une minute de connec. ben ouais on a pas tous l'ADSL :op
On *:START: {
  .Timer 1 60 Annonce 
}

Conclusion :


il suffit de faire dans les remotes : Nouveau et de coller le code ci-dessus

après il vous reste à modifer les parties entres <> pour aller sur le bon site
et bien sur créer le fichier texte ;o)

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