begin process at 2010 03 17 03:26:30
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > CONNECTION À UN SERVEUR EN DIALOGUE

CONNECTION À UN SERVEUR EN DIALOGUE


 Information sur la source

Note :
5 / 10 - par 3 personnes
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Niveau :Initié Date de création :10/12/2003 Vu / téléchargé :2 668 / 73

Auteur : carpediem666fr

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

comment se connecter à un serveur, en gerant votre propre fichier ini (serveur.ini).
Dispo dans la prochaine version de Carpe$cript (voir http://www.onlyu.fr.st/communications.html pour le script complet)

!!! attention, mettez un ";" devant la ligne contenant l icone si vous ne downloadez pas le zip !

Source

  • on *:LOAD:{ echo $active 4 vous venez de charger avec succès l'add-on serveur par SeigneurCarpe - Auteur de %version ! 10 visitez le site: http://www.onlyu.fr.st }
  • on *:UNLOAD:{ echo $active 4 vous venez de décharger avec succès l'add-on serveur par SeigneurCarpe - Auteur de %version ! 10 visitez le site: http://www.onlyu.fr.st }
  • alias serveur {
  • dialog -m Dem_ServeurCS Dem_ServeurCS
  • }
  • ;***************************************************
  • ; tableau principal
  • ;***************************************************
  • dialog Dem_ServeurCS {
  • title "Serveur By SeigneurCarpe Novembre 2003"
  • option dbu
  • size -1 -1 160 160
  • text "Pseudo:" ,10, 25 25 40 10
  • text "Pseudo alternatif:" ,12, 10 37 46 10
  • text "info:" ,14, 45 51 20 10
  • text "user:" ,16, 45 63 20 10
  • edit $readini mirc.ini mirc nick ,11, 57 23 45 11
  • edit $readini mirc.ini mirc anick ,13, 57 35 45 11
  • edit $readini mirc.ini mirc user ,15, 57 49 80 11
  • edit $readini mirc.ini mirc email ,17, 57 61 80 11
  • box "Serveur:" , 18, 20 75 133 62
  • combo 19, 30 85 120 130 , drop
  • button "Ajouter" ,111, 30 105 40 11 default
  • button "Enlever" ,112, 80 105 40 11 default
  • button "connection" ,113, 30 120 40 11 default
  • button "multi-serveur" ,114, 80 120 40 11 default
  • button "ok" ,69 , 30 143 40 11, ok
  • button "Annuler" ,70 , 80 143 40 11, cancel
  • icon 71,10 10 20 20,icones/favicon2.ico
  • link "http://www.onlyu.fr.st",72,30 10 70 100
  • }
  • on 1:dialog:Dem_ServeurCS:init:*: {
  • /var %compteurLigne 1
  • ;/******** condition: le compteurlignes doit etre inferieur ou egal au nb de lignes de $mircdir\serveurs.ini
  • ;/******** de facon a voir ds le combo toutes les lignes de serveur.ini
  • while ( %compteurLigne <= $lines($mircdir\serveurs.ini) ) {
  • ;/******** initialisation de la boucle combo /nb de lignes de serveurs.ini ***********/
  • /did -a Dem_ServeurCS 19 $read -l [ $+ [ %compteurLigne ] ] $mircdir\serveurs.ini
  • ;/***incrementation du compteur *****************/
  • /inc %compteurLigne
  • }
  • ;/*** si $server n est pas nul
  • if ( $server != $null ) {
  • ;/*** lire le nick à partir de mirc.ini
  • /did -m Dem_ServeurCS 11
  • ;/***
  • /did -m Dem_ServeurCS 13
  • }
  • ;/*** et dans ts les cas ...
  • ;/*** cocher la 1e ligne du combo
  • /did -c Dem_ServeurCS 19 1
  • ;/*** activer le bouton ajouter
  • /did -e Dem_ServeurCS 111
  • ;/*** activer le bouton supprimer
  • /did -e Dem_ServeurCS 112
  • /did -e Dem_ServeurCS 72
  • }
  • on 1:dialog:Dem_ServeurCS:sclick:72:{ run http://www.onlyu.fr.St }
  • ;/*** CAS du Bouton ajouter
  • on 1:dialog:Dem_ServeurCS:sclick:111: {
  • ;/*** ajout d'un serveur
  • /var %server $$?="adresse du serveur à ajouter"
  • ;/*** ajouter a la fin du combo et l'ecrire dans le fichier
  • /did -a Dem_ServeurCS 19 %server
  • /write $mircdir\serveurs.ini %server
  • ;/*** cocher cette ligne ajoutée dans la combo (la mettre en surbrillance)
  • /did -c Dem_ServeurCS 19 $lines($mircdir\serveurs.ini)
  • }
  • ;/*** CAS du bouton Enlever
  • on 1:dialog:Dem_ServeurCS:sclick:112: {
  • ;/*** enlever la selection du fichier serveur.ini
  • /write -dl $+ $did(Dem_ServeurCS,19).sel $mircdir\serveurs.ini
  • ;/*** effacer cette ligne du combo
  • /did -r Dem_ServeurCS 19 $did(Dem_ServeurCS,19).sel
  • ;/*** remettre à jour le combo
  • /var %compteurLigne 1
  • while ( %compteurLigne <= $lines(serveur.ini) ) {
  • /did -a Dem_ServeurCS 19 $read -l [ $+ [ %compteurLigne ] ] $mircdir\serveurs.ini
  • /inc %compteurLigne
  • }
  • if ( $server != $null ) {
  • ;/*** desactiver le nick
  • /did -m Dem_ServeurCS 11
  • ;/*** desactiver l'Anick (nick alternatif)
  • /did -m Dem_ServeurCS 13
  • }
  • ;/*** par defaut on recoche la 1e ligne du combo
  • /did -c Dem_ServeurCS 19 1
  • }
  • ;***************************************************
  • ; bouton ok de fin et de connection
  • ;***************************************************
  • on 1:dialog:Dem_ServeurCS:sclick:69,113: {
  • ;/*** ecriture apres remplissage nick, anick, email et user
  • if ( $did(Dem_ServeurCS,11).edited == $true ) { /.nick $did(Dem_ServeurCS,11).text | /writeini mirc.ini mirc nick $did(Dem_ServeurCS,11).text }
  • if ( $did(Dem_ServeurCS,13).edited == $true ) { /.anick $did(Dem_ServeurCS,13).text | /writeini mirc.ini mirc anick $did(Dem_ServeurCS,13).text }
  • if ( $did(Dem_ServeurCS,15).edited == $true ) { /.fullname $did(Dem_ServeurCS,15).text | /writeini mirc.ini mirc user $did(Dem_ServeurCS,15).text }
  • if ( $did(Dem_ServeurCS,17).edited == $true ) { /.emailaddr $did(Dem_ServeurCS,17).text | /writeini mirc.ini mirc email $did(Dem_ServeurCS,17).text }
  • ;choix du combo
  • /var %compteurLigne 1
  • while ( %compteurLigne <= $readini tableau.ini server nbrserv ) {
  • if ( $did(Dem_ServeurCS,19,1).sel == %compteurLigne ) {
  • /var %a
  • %a = n $+ %compteurLigne
  • /writeini tableau.ini base serveur $readini tableau.ini server %a
  • }
  • /inc %compteurLigne
  • }
  • if ( $did == 113 ) {
  • /server $did(Dem_ServeurCS,19,$did(Dem_ServeurCS,19,1).sel).text
  • /dialog -x Dem_ServeurCS
  • }
  • }
  • on 1:dialog:Dem_ServeurCS:sclick:69,114: {
  • ;1ere page
  • if ( $did(Dem_ServeurCS,11).edited == $true ) { /.nick $did(Dem_ServeurCS,11).text }
  • if ( $did(Dem_ServeurCS,13).edited == $true ) { /.anick $did(Dem_ServeurCS,13).text }
  • if ( $did(Dem_ServeurCS,15).edited == $true ) { /.fullname $did(Dem_ServeurCS,15).text }
  • if ( $did(Dem_ServeurCS,17).edited == $true ) { /.emailaddr $did(Dem_ServeurCS,17).text $+ @voila.fr }
  • ;choix du combo
  • /var %compteurLigne 1
  • while ( %compteurLigne <= $readini tableau.ini server nbrserv ) {
  • if ( $did(Dem_ServeurCS,19,1).sel == %compteurLigne ) {
  • /var %a
  • %a = n $+ %compteurLigne
  • /writeini tableau.ini base serveur $readini tableau.ini server %a
  • }
  • /inc %compteurLigne
  • }
  • if ( $did == 114 ) {
  • /server -m $did(Dem_ServeurCS,19,$did(Dem_ServeurCS,19,1).sel).text
  • /dialog -x Dem_ServeurCS
  • }
  • }
  • ;***************************************************
  • ; bouton ok de fin
  • ;***************************************************
  • on 1:dialog:info:sclick:69: {
  • ;1ere page
  • if ( $did(info,1).edited == $true ) {
  • if ( $did(info,1).text != $null ) {
  • /set %asv $did(info,1).text
  • }
  • else {
  • /set %asv ""
  • }
  • if ( $did(info,2).edited == $true ) {
  • if ( $did(info,2).text != $null ) {
  • /set %mail $did(info,2).text
  • }
  • else {
  • /set %mail ""
  • }
  • }
  • if ( $did(info,3).edited == $true ) {
  • if ( $did(info,3).text != $null ) {
  • /set %url $did(info,3).text
  • }
  • else {
  • /set %url ""
  • }
  • }
  • }
  • }
  • Button "ok" , 69, 15 150 30 15, ok
  • }
on *:LOAD:{ echo $active 4 vous venez de charger avec succès l'add-on serveur par SeigneurCarpe - Auteur de %version ! 10 visitez le site: http://www.onlyu.fr.st }
on *:UNLOAD:{ echo $active 4 vous venez de décharger avec succès l'add-on serveur par SeigneurCarpe - Auteur de %version ! 10 visitez le site: http://www.onlyu.fr.st }

alias serveur {
  dialog -m Dem_ServeurCS Dem_ServeurCS
}
;***************************************************
;   tableau principal
;***************************************************

dialog Dem_ServeurCS {
  title "Serveur By SeigneurCarpe Novembre 2003"
  option dbu

  size -1 -1 160 160

  text "Pseudo:"                       ,10, 25 25 40 10
  text "Pseudo alternatif:"                ,12, 10 37 46 10
  text "info:"                       ,14, 45 51 20 10
  text "user:"                       ,16, 45 63 20 10

  edit $readini mirc.ini mirc nick   ,11, 57 23 45 11
  edit $readini mirc.ini mirc anick  ,13, 57 35 45 11
  edit $readini mirc.ini mirc user   ,15, 57 49 80 11
  edit $readini mirc.ini mirc email ,17, 57 61 80 11

  box "Serveur:" , 18, 20 75 133 62
  combo  19, 30 85 120 130  , drop
  button "Ajouter" ,111, 30 105 40 11 default
  button "Enlever" ,112, 80 105 40 11 default
  button "connection" ,113, 30 120 40 11 default
  button "multi-serveur" ,114, 80 120 40 11 default
  button "ok" ,69 , 30 143 40 11, ok
  button "Annuler" ,70 , 80 143 40 11, cancel
  icon 71,10 10 20 20,icones/favicon2.ico
  link "http://www.onlyu.fr.st",72,30 10 70 100

}

on 1:dialog:Dem_ServeurCS:init:*: {

  /var %compteurLigne 1
  ;/******** condition: le compteurlignes doit etre inferieur ou egal au nb de lignes de $mircdir\serveurs.ini
  ;/******** de facon a voir ds le combo toutes les lignes de serveur.ini
  while ( %compteurLigne <= $lines($mircdir\serveurs.ini) ) {

    ;/******** initialisation de la boucle combo /nb de lignes de serveurs.ini ***********/
    /did -a Dem_ServeurCS 19 $read -l [ $+ [ %compteurLigne ] ] $mircdir\serveurs.ini

    ;/***incrementation du compteur *****************/
    /inc %compteurLigne
  }

  ;/*** si $server n est pas nul
  if ( $server != $null ) {

    ;/*** lire le nick à partir de mirc.ini
    /did -m Dem_ServeurCS 11

    ;/*** 
    /did -m Dem_ServeurCS 13
  }

  ;/*** et dans ts les cas ...
  ;/*** cocher la 1e ligne du combo  
  /did -c Dem_ServeurCS 19 1

  ;/*** activer le bouton ajouter
  /did -e Dem_ServeurCS 111

  ;/*** activer le bouton supprimer
  /did -e Dem_ServeurCS 112
  /did -e Dem_ServeurCS 72
}

on 1:dialog:Dem_ServeurCS:sclick:72:{ run http://www.onlyu.fr.St }

;/*** CAS du Bouton ajouter
on 1:dialog:Dem_ServeurCS:sclick:111: {
  ;/*** ajout d'un serveur
  /var %server $$?="adresse du serveur à ajouter"

  ;/*** ajouter a la fin du combo et l'ecrire dans le fichier
  /did -a Dem_ServeurCS 19 %server
  /write $mircdir\serveurs.ini %server

  ;/*** cocher cette ligne ajoutée dans la combo (la mettre en surbrillance)
  /did -c Dem_ServeurCS 19 $lines($mircdir\serveurs.ini)

}

;/*** CAS du bouton Enlever
on 1:dialog:Dem_ServeurCS:sclick:112: {

  ;/*** enlever la selection du fichier serveur.ini
  /write -dl $+ $did(Dem_ServeurCS,19).sel $mircdir\serveurs.ini

  ;/*** effacer cette ligne du combo
  /did -r Dem_ServeurCS 19 $did(Dem_ServeurCS,19).sel

  ;/*** remettre à jour le combo
  /var %compteurLigne 1
  while ( %compteurLigne <= $lines(serveur.ini) ) {
    /did -a Dem_ServeurCS 19 $read -l [ $+ [ %compteurLigne ] ] $mircdir\serveurs.ini
    /inc %compteurLigne
  }

  if ( $server != $null ) {
    ;/*** desactiver le nick
    /did -m Dem_ServeurCS 11
    ;/*** desactiver l'Anick (nick alternatif)
    /did -m Dem_ServeurCS 13
  }
  ;/*** par defaut on recoche la 1e ligne du combo
  /did -c Dem_ServeurCS 19 1

}

;***************************************************
;   bouton ok de fin et de connection
;***************************************************

on 1:dialog:Dem_ServeurCS:sclick:69,113: {

  ;/*** ecriture apres remplissage nick, anick, email et user
  if ( $did(Dem_ServeurCS,11).edited == $true ) { /.nick $did(Dem_ServeurCS,11).text | /writeini mirc.ini mirc nick $did(Dem_ServeurCS,11).text }
  if ( $did(Dem_ServeurCS,13).edited == $true ) { /.anick $did(Dem_ServeurCS,13).text | /writeini mirc.ini mirc anick $did(Dem_ServeurCS,13).text }
  if ( $did(Dem_ServeurCS,15).edited == $true ) { /.fullname $did(Dem_ServeurCS,15).text | /writeini mirc.ini mirc user $did(Dem_ServeurCS,15).text }
  if ( $did(Dem_ServeurCS,17).edited == $true ) { /.emailaddr $did(Dem_ServeurCS,17).text | /writeini mirc.ini mirc email $did(Dem_ServeurCS,17).text  }

  ;choix du combo
  /var %compteurLigne 1
  while ( %compteurLigne <= $readini tableau.ini server nbrserv ) {
    if ( $did(Dem_ServeurCS,19,1).sel == %compteurLigne ) { 
      /var %a 
      %a = n $+ %compteurLigne    
      /writeini tableau.ini base serveur $readini tableau.ini server %a 
    }  
    /inc %compteurLigne
  }

  if ( $did == 113 ) {
    /server $did(Dem_ServeurCS,19,$did(Dem_ServeurCS,19,1).sel).text
    /dialog -x Dem_ServeurCS
  }
}
on 1:dialog:Dem_ServeurCS:sclick:69,114: {

  ;1ere page
  if ( $did(Dem_ServeurCS,11).edited == $true ) { /.nick $did(Dem_ServeurCS,11).text }
  if ( $did(Dem_ServeurCS,13).edited == $true ) { /.anick $did(Dem_ServeurCS,13).text }
  if ( $did(Dem_ServeurCS,15).edited == $true ) { /.fullname $did(Dem_ServeurCS,15).text }
  if ( $did(Dem_ServeurCS,17).edited == $true ) { /.emailaddr $did(Dem_ServeurCS,17).text $+ @voila.fr }

  ;choix du combo
  /var %compteurLigne 1
  while ( %compteurLigne <= $readini tableau.ini server nbrserv ) {
    if ( $did(Dem_ServeurCS,19,1).sel == %compteurLigne ) { 
      /var %a 
      %a = n $+ %compteurLigne    
      /writeini tableau.ini base serveur $readini tableau.ini server %a 
    }  
    /inc %compteurLigne
  }

  if ( $did == 114 ) {
    /server -m $did(Dem_ServeurCS,19,$did(Dem_ServeurCS,19,1).sel).text
    /dialog -x Dem_ServeurCS
  }
}


;***************************************************
;   bouton ok de fin
;***************************************************

on 1:dialog:info:sclick:69: {
  ;1ere page
  if ( $did(info,1).edited == $true ) { 
    if ( $did(info,1).text != $null ) {
      /set %asv $did(info,1).text 
    }
    else {
      /set %asv ""
    }


    if ( $did(info,2).edited == $true ) { 
      if ( $did(info,2).text != $null ) {
        /set %mail $did(info,2).text 
      }
      else {
        /set %mail ""
      }
    }

    if ( $did(info,3).edited == $true ) { 
      if ( $did(info,3).text != $null ) {
        /set %url $did(info,3).text 
      }
      else {
        /set %url ""
      }
    }
  }
}


Button "ok"      , 69, 15 150 30 15, ok
}

 Conclusion

http://www.onlyu.fr.st pour toutes demandes

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture COULEUR D'ÉCRITURE NOUVELLE FORMULE ...
Source avec Zip Source avec une capture ANTIPV + GESTION MESSAGES PAR FICHIER
ANTITOUT :-)
Source avec Zip ANTIPUB :-)
Source avec Zip CDES NICKSERV + CHANSERV COMPLETES !

 Sources de la même categorie

TCL - AJOUT SUPPRESSION DE LOGS par Atok
BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501

Commentaires et avis

Commentaire de ReMi34 le 11/12/2003 07:35:09

Tu fais tes dialogs à la main ?

Commentaire de Kolibot le 11/12/2003 08:11:39

C'est déjà mieux que l'autre :) Ce qui est très positif. Voici quelques astuces de scripting :
- Quand tu utilises l'identifieur $did à l'intérieur d'un event dialog si le $did correspond au dialog ce n'est pas la peine de mettre dans les paramètres de l'identifieur le nom du dialog
- Essai toujours de regrouper les events dialog à l'intérieur d'un même ON Dialog, cela simplifie le code et le rend plus clair.
- Dans tes conditions quand tu mets $X == $true ou %X != $null ca revient à mettre respectivement $X ou %x, si tu veux $X == $false ou %x == $null alors tu écris : !$X ou !%x
- Set %x Y &lt;=&gt; %x = Y c'est plus court...
- le / devant les commandes est inutiles.
- Les commentaires évidents, tu n'es pas obligé de les mettre par ex :
;/*** si $server n est pas nul
    if ( $server != $null ) {

Mais c'est une très bonne initiative d'avoir commenté ton code et je t'incite bien sur à recommencer pour tes sources futures
Pour les dialogs, renseigne sur un logiciel qui s'appelle DsDialog
Je te mets 8/10.

Commentaire de vesparo le 12/12/2003 23:18:00

moi je fait mes dialogs a la main et au debut ou je commencer a scripté j'ai rien compris avec les logiciels pr faire les dialogs je prefere la façon artisanale. bon pr en revenir au script le dialog n'est pas a la auteur du code donc dialog a revoir 6/10 :o

bonne continuation ;p ++

Commentaire de BADIBOYS le 29/05/2006 03:31:41

ca l'air bien mais l'icon on le trouve ou ? ont ne peux ouvrir le script si licon ny ai pas...

Commentaire de BADIBOYS le 29/05/2006 03:42:28

bon voila j'ai testé ton addon yé super, mais je trouve que tu devrais rajouter, que le dialog ouvre automatique lorsque mirc démarre ca évite au scripteur de le faire :)

Commentaire de carpediem666fr le 29/05/2006 09:50:06

Pour BADIBOYS : merci pour ton commentaire, en fait, ici effectivement tu n'as que l'addon, mais dans le script que j ai codé, cette fonction (on *:start:...), par défaut est écrite pour être activé dès le démarrage (http://www.mircscriptsfrfm.com/cgi-bin/info.pl?Script=1793):-)

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,608 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales