Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Auto auth

5/5 (9 avis)

Vue 4 473 fois - Téléchargée 259 fois

Description

Tout est dit dans le titre :X

Source / Exemple :


alias aa { dialog -m aa aa }
dialog aa {
  title "Auto Auth"
  size -1 -1 218 55
  option dbu
  text "Entre le nom du bot :", 1, 3 2 51 8
  edit "", 2, 53 1 51 10, autohs
  edit "", 3, 53 12 51 10, autohs
  text "Entre le chan :", 4, 3 13 35 8
  edit "", 5, 53 23 51 10, autohs
  text "Entre ton pass :", 6, 3 24 39 8
  button "Ajouter", 7, 43 35 64 9
  button "Fermer", 8, 89 46 37 8, ok
  list 9, 110 0 107 32, size vsbar
  button "Supprimer", 10, 110 35 64 9
}
On *:dialog:aa:*:*:{
  if $devent == init { loadbuf -o aa 9 texte\salon.txt }
  if $devent == sclick { 
    if $did == 7 { write texte\bot.txt $did(aa,2) | write texte\salon.txt $did(aa,3) | write texte\pass.txt $did(aa,5) | did -r aa 9 | loadbuf -o aa 9 texte\salon.txt }
    if $did == 10 { write -dl $did(aa,9).sel texte\bot.txt | write -dl $did(aa,9).sel texte\salon.txt | write -dl $did(aa,9).sel texte\pass.txt | did -r aa 9 | loadbuf -o aa 9 texte\bot.txt }
  }
}
On 1:Connect:{
  var %a = 1
  while (%a <= $lines(texte\bot.txt)) {
    msg $read -l $+ %a texte\bot.txt auth $read -l $+ %a texte\salon.txt $me $read -l $+ %a texte\pass.txt
    inc %a
  }
}

Conclusion :


voila !
pour le charger tapez /load -rs autoauth.mrc

Codes Sources

A voir également

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.