Dialogue de connexion

Télécharger le projet
Commenter

Description

Je sais qu'il y en a de toutes les formes de toutes les couleurs et de tous les niveaux des dialogues de connection. Mais je voulais tout de même proposé le mien. Tout d'abord pour avoir vos avis et pouvoir progresser. Et ensuite pour en faire un de plus :p.

Source / Exemple : 


;Version Avec Dll Dans le zip
;Version Sans Dll :
dialog conex {
  title "Connexions"
  icon system\images\image4.ico
  size -1 -1 300 270
  button "Connexion",1, 10 10 90 20
  button "Ajouter",2, 100 10 70 20
  list 3, 10 40 280 200, extsel size
  button "Modifier",4, 172 10 60 20
  button "Supprimer",5, 235 10 60 20
  button "Close",6, 100 245 100 20, ok
}
on *:DIALOG:conex:*:*: {
  if ( $devent == init ) {
    refresh.conex
  }
  if ( $devent == sclick ) {
    if ( $did == 3 ) {
      set %n $calc($did($dname,3).sel)
    }
    if ( $did == 1 ) {
      tokenize 157 $read($ltxt,%n)
      server $iif($status != disconnected,-m) $3 $4 $iif($5,$5) -i $2 $2 $+ - $iif($6,-j $6)
    }
    if ($did == 2) {
      dialog -m ajouconex ajouconex
    }
    if ($did == 4) {
      dialog -m modifconex modifconex
    }
    if ($did == 5) {
      write -dl $+ %n $ltxt
      refresh.conex
    }
  }
}
alias -l refresh.conex {
  did -r conex 3
  var %nn 1, %nnmax $lines($ltxt)
  while (%nn <= %nnmax) {
    tokenize 157 $read($ltxt,%nn)
    did -a conex 3 $str($chr(9),5) $1
    inc %nn
  }
}
dialog modifconex {
  title "Config Connexions"
  size -1 -1 300 180
  edit "",4, 110 28 100 15
  text "Adresse Serveur :",1, 10 50 100 15
  edit "",6, 110 48 100 15, autohs
  text "Port :",3, 10 70 50 15
  edit "6667",8, 110 68 100 15
  text "Cle Irc :",5, 10 90 100 15
  edit "",11, 110 88 100 15, autohs
  text "AutoJoin** :",7, 10 110 80 15
  edit "",2, 110 108 100 15
  text "*Seulement si Pseudo reservé. **Separé par des virgules",9, 10 130 300 15
  text "Pseudo",10, 10 30 100 15
  text "Profil",12, 10 10 100 15
  text "",13, 110 10 100 15
  button "Ok",14, 210 150 80 20, ok
}
on *:DIALOG:modifconex:*:*: {
  if ($devent == init) {
    tokenize 157 $read($ltxt,%n)
    did -i $dname 6 1 $3
    did -i $dname 8 1 $4 
    did -i $dname 11 1 $5
    did -i $dname 2 1 $6
    did -i $dname 4 1 $2
    did -i $dname 13 1 $1
  }
  if ($devent == sclick) {
    if ($did == 14) {
      write -l $+ %n $ltxt $+($did(2),$chr(157),$did(4),$chr(157),$did(6),$chr(157),$did(8),$chr(157),$iif($did(11),$did(11),$chr(32)),$chr(157),$iif($did(2),$did(2),$chr(32))
      refresh.conex   
    }
  }
}
dialog ajouconex {
  title "Config Connexions"
  size -1 -1 300 180
  edit "",2, 110 10 100 15
  edit "",4, 110 28 100 15
  text "Adresse Serveur :",1, 10 50 100 15
  edit "",6, 110 48 100 15, autohs
  text "Port :",3, 10 70 50 15
  edit "6667",8, 110 68 100 15
  text "Cle Irc :",5, 10 90 100 15
  edit "",11, 110 88 100 15, autohs
  text "AutoJoin** :",7, 10 110 80 15
  edit "",13, 110 108 100 15
  text "*Seulement si Pseudo reservé. **Separé par des virgules",9, 10 130 300 15
  text "Pseudo",10, 10 30 100 15
  text "Nom",12, 10 10 100 15
  button "Ok",14, 210 150 80 20, ok
}
on *:DIALOG:ajouconex:*:*: {
  if ( $devent == sclick ) {
    if ( $did == 14 ) {
      write $ltxt $+($did(2),$chr(157),$did(4),$chr(157),$did(6),$chr(157),$did(8),$chr(157),$iif($did(11),$did(11),$chr(32)),$chr(157),$iif($did(2),$did(2),$chr(32))
      refresh.conex    
    }
  }
}

alias -l ltxt { return "$scriptdirconex.txt" }
on *:START: {
  dialog -m conex conex
}
menu menubar {
 ¤ Connexion : /dialog -m conex conex
}

Conclusion :


Les dlls et un fichier texte nommé conex sont a mettre dans le même dossier que le script connexion.mrc . Pour connecter il faut selectionner le profil et appuyer sur connecter : /!\ Un seul profil a la fois ;) /!\
J'ai pas pu faire de checkbox pour connecter tous les profils d'un coup. J'ai bien essayer mais je trouve pas comment il faut faire. Si il y en a qui veulent bien m'aider, :) , ils sont les bienvenus.

-Pour le remote sans dll seul un fichier txt nommé conex est necessaire. ;)
Télécharger le projet

Codes Sources

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