begin process at 2012 02 10 01:24:21
  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é :3 185 / 74

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

PACMAN MULTI-JOUEUR EN LIGNE par wims
PROXY&SOCKS SCANNER+LEECHER par independentt
GESTIONNAIRE DE HIGHLIGHT AVANCÉ AVEC IGNORE SALON OU PSEUDO par doob666
AUTOJOIN HTABLE MULTISERVER par doob666
TCL - AJOUT SUPPRESSION DE LOGS par Atok

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...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
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,967 sec (3)

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