CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 10 14:15:59

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

CONNECTER SES SOCKETS PAR BNC

Information sur la source

Note :
Aucune note

Catégorie :AddOns Classé sous :socket, bnc Niveau :Débutant Date de création :06/06/2006 Date de mise à jour :07/06/2006 14:05:44 Vu :2 554

Auteur : ISoKa

Ecrire un message privé

Commentaire sur cette source (4)

Ajouter un commentaire et/ou une note

Description

En faite depuis quelques temps, comme je m'amuse un peut avec les sockets et proxy, j'ai essayé de faire en sorte de pouvoir connecter des bot sockets par un BNC.
Il me semble pas avoir vu des sources comme celle là donc c'est deja ca lol. Ensuite je précise bien que: CETTE SOURCE N'EST EN AUCUN CAS UN BOT SOCKET EN ELLE MEME.
C'est juste un petit plus possible pour vos propres bots sockets si vous possedez un bouncer. N'ayant à ma disposition qu'un ezbBounce je ne sai pas si ca marche tel quel sur psyBNC mais je ne pense pas que les modifs à faire soient enormes, au pire juste une syntaxe je pense.
Si à l'occase j'ai un psyBNC sous la main je ferai un mode ezb et un mode psyBNC.
Donc voila le tout est fait en dialog pour essayer de rendre ca moin austere et plus "intuitif". Pas de connaissances ou prérequis particuliers. Ha oui une chose pas mal de sockets ont des actions indispensables dans leur "sockopen". Si c'est le cas, j'ai mi dans le dernier onglet un moyen de faire quand meme ces actions. Il vous suffit de C/C ce qu'il y a dans votre "on sockopen" dans l'invite qui vous est proposé.
C'est que mon 2snd poste d'une source lol soyez pas trop dur :x. il se peut qu'il y ai des bugs j'vien d'le faire là rapidement :x

Source

on 1:LOAD:{ echo -a 4 Vous installez Socket-By-BNC de ISoKa :o) }
on 1:unload:{ echo -a 4 Vous désinstallez Socket-By-BNC de ISoKa :o) | unset %proxbnc.* }
menu menubar {
-
Socket-By-Bnc:dialog -m Socket-By-Bnc Socket-By-Bnc
-
}
dialog Actionslancbnc {
title "Actions Lancement Socket"
size -1 -1 184 162
option dbu
edit "", 1, 3 5 177 129, multi return autohs autovs
button "Enregistrer", 2, 41 144 37 12
button "Annuler", 3, 103 144 37 12, ok
}
ON *:DIALOG:Actionslancbnc:sclick:2:{
if ($isfile($+(Socket-By-Bnc\,%proxbnc.nomfichierpoursave,.txt)) == $false) { write $+(Socket-By-Bnc\,%proxbnc.nomfichierpoursave,.txt) create-file }
write -c $+(Socket-By-Bnc\,%proxbnc.nomfichierpoursave,.txt)
.fopen proxbnc.alias $+(Socket-By-Bnc\,%proxbnc.nomfichierpoursave,.txt) | var %proxbnc.nbligneajout $did(Actionslancbnc,1).lines | var %proxbnc.cmpt 1
.fwrite -n proxbnc.alias alias commandeconfigsocketproxy $chr(123)
while (%proxbnc.nbligneajout > %proxbnc.cmpt) {
.fseek -l proxbnc.alias $calc(%proxbnc.cmpt +1) | .fwrite -n proxbnc.alias $did(Actionslancbnc,1,%proxbnc.cmpt)
inc %proxbnc.cmpt
}
.fwrite -n proxbnc.alias jeviremonaliasnow | .fwrite proxbnc.alias $chr(125)
ajouteritemdialbnc %proxbnc.nomfichierpoursave file 49
.fclose proxbnc.alias | dialog -x Actionslancbnc Actionslancbnc | unset %proxbnc.nomfichierpoursave
}
dialog Socket-By-Bnc {
title "Socket-By-Bnc (ezb) By ISoKa"
size -1 -1 192 159
option dbu
button "Fermer", 4, 160 131 27 24, ok
tab "BNC", 25, 3 1 185 125
button "Aj.", 6, 12 54 24 12, tab 25
button "Suppr.", 7, 84 54 24 12, tab 25
button "Aj.", 8, 121 54 24 12, tab 25
button "Suppr.", 9, 154 54 24 12, tab 25
button "Aj.", 11, 12 102 24 12, tab 25
box "Votre BNC", 2, 6 20 178 100, tab 25
button "Suppr.", 10, 66 102 24 12, tab 25
button "Aj.", 12, 102 102 24 12, tab 25
button "Suppr.", 13, 155 102 24 12, tab 25
box "Server", 18, 9 28 105 42, tab 25
box "Port", 19, 117 28 64 42, tab 25
box "Login", 20, 9 72 84 44, tab 25
box "Mot de passe", 21, 97 72 84 44, tab 25
combo 56, 12 81 78 50, tab 25 size drop
combo 57, 102 82 76 50, tab 25 size drop
combo 58, 121 38 57 50, tab 25 size drop
combo 59, 12 37 98 50, tab 25 size drop
tab "Connection", 26
box "Realname", 23, 98 75 83 41, tab 26
box "Pseudo", 22, 10 75 83 41, tab 26
box "Server IRC", 5, 7 18 177 103, tab 26
button "Aj.", 14, 14 100 24 12, tab 26
button "Suppr.", 15, 64 100 24 12, tab 26
button "Aj.", 16, 103 100 24 12, tab 26
button "Suppr.", 17, 154 100 24 12, tab 26
button "Aj.", 34, 14 56 24 12, tab 26
button "Suppr.", 35, 86 56 24 12, tab 26
button "Aj.", 36, 123 56 24 12, tab 26
button "Suppr.", 37, 154 56 24 12, tab 26
box "Port", 39, 118 28 63 43, tab 26
box "Server", 38, 10 28 105 43, tab 26
combo 52, 14 84 74 50, tab 26 size drop
combo 53, 103 85 75 50, tab 26 size drop
combo 54, 14 38 96 50, tab 26 size drop
combo 55, 123 38 55 50, tab 26 size drop
tab "Noms Bouncer\Socket", 27
text "Mettre Nom du Socket qui figure dans les remotes", 24, 37 79 128 8, tab 27 center
button "Aj.", 28, 62 106 24 12, tab 27
button "Suppr.", 29, 105 106 24 12, tab 27
box "Votre Socket\Bot", 1, 7 70 177 50, tab 27
box "Votre Bouncer", 40, 7 18 176 49, tab 27
text "Mettre nom du Bouncer ( ex: ezb)", 41, 53 25 92 8, tab 27 center
button "Aj.", 42, 61 52 24 12, tab 27
button "Suppr.", 43, 104 52 24 12, tab 27
combo 50, 62 90 67 50, tab 27 size drop
combo 51, 62 36 67 50, tab 27 size drop
tab "Actions Connec", 33
box "Actions associée", 3, 7 56 177 62, tab 33
check "oui", 44, 49 31 50 10, tab 33
check "non", 45, 114 31 50 10, tab 33
box "Effectuer actions préprogrammées au lancment socket ?", 46, 7 19 177 33, tab 33
button "Aj.", 47, 49 101 24 12, tab 33
button "Suppr.", 48, 120 101 24 12, tab 33
combo 49, 49 70 95 50, tab 33 size drop
button "Voir", 60, 84 101 24 12, tab 33
box "Actions", 30, 3 130 78 25
button "Connecter", 31, 5 139 37 12
button "Deconnecter", 32, 43 139 36 12
box "Pré-Config", 61, 83 130 75 25
combo 62, 85 139 54 50, size drop
button "Sup.", 63, 140 139 17 12
}
alias sidibnc { didtok Socket-By-Bnc $2 124 [ % $+ [ proxbnc. $+ [ $1 ] ] ] }
alias additbnc { set % $+ [ proxbnc. $+ [ $2 ] ] $addtok( [ % $+ [ proxbnc. $+ [ $2 ] ] ] ,$1,124) | did -a Socket-By-Bnc $3 $1 }
alias delitbnc { set % $+ [ proxbnc. $+ [ $2 ] ] $remtok( [ % $+ [ proxbnc. $+ [ $2 ] ] ] ,$1,124) | did -d Socket-By-Bnc $3 $did($3).sel }
ON *:DIALOG:Socket-By-Bnc:*:*:{
if ($devent == init) { did -c Socket-By-Bnc 45 | did -u Socket-By-Bnc 44 | sidibnc listepreconf 62 | sidibnc serverbnc 59 | sidibnc portbnc 58 | sidibnc mdp 57 | sidibnc login 56 | sidibnc serverirc 54 | sidibnc portirc 55 | sidibnc pseudsocket 52 | sidibnc realsocket 53 | sidibnc nombnc 51 | sidibnc nomsocket 50 | sidibnc file 49 }
if ($devent == sclick) {
if ($regex($did,/(3.)/i)) {
if ($did == 31) {
if ($did(44).state == 1) { set -u40 %proxbnc.applalias oui }
contobnc $did(59).seltext $did(58).seltext | set -u60 %proxbnc.tmplogin $did(56).seltext | set -u60 %proxbnc.tmppass $did(57).seltext | set -u60 %proxbnc.tmpnick $did(52).seltext | set -u60 %proxbnc.tmpreal $did(53).seltext | set -u60 %proxbnc.tmpserver $did(54).seltext | set -u60 %proxbnc.tmpport $did(55).seltext | set -u60 %proxbnc.tmpsocketname $did(50).seltext
if (!% $+ [ proxbnc.preconfig $+ [ %proxbnc.tmpsocketname ] ] ) && ($?!="On enregistre cette config ?" == $true) {
set % $+ [ proxbnc.preconfig $+ [ %proxbnc.tmpsocketname ] ] [ [ $did(59).seltext ] $+ [ $chr(94) ] $+ 59 $+ [ $chr(124) ] $+ [ $did(58).seltext ] $+ [ $chr(94) ] $+ 58 $+ [ $chr(124) ] $+ [ $did(56).seltext ] $+ [ $chr(94) ] $+ 56 $+ [ $chr(124) ] $+ [ $did(57).seltext ] $+ [ $chr(94) ] $+ 57 $+ [ $chr(124) ] $+ [ $did(52).seltext ] $+ [ $chr(94) ] $+ 52 $+ [ $chr(124) ] $+ [ $did(53).seltext ] $+ [ $chr(94) ] $+ 53 $+ [ $chr(124) ] $+ [ $did(54).seltext ] $+ [ $chr(94) ] $+ 54 $+ [ $chr(124) ] $+ [ $did(55).seltext ] $+ [ $chr(94) ] $+ 55 $+ [ $chr(124) ] $+ [ $did(50).seltext ] $+ [ $chr(94) ] $+ 50 $+ [ $chr(124) ] $+ [ $did(44).state ] ]
additbnc %proxbnc.tmpsocketname listepreconf 62
}
}
elseif ($did == 32) {
if (!$did(50).seltext) { echo -a 4 Veuillez selectionner un nom de socket au préalable svp | halt }
sockwrite -n $did(50).seltext $did(51).seltext disconnect
.timer 1 5 sockclose $did(50).seltext
}
elseif ($did == 34) { additbnc $$?="Rajouter Un Server" serverirc 54 }
elseif ($did == 35) { delitbnc $did(54).seltext serverirc 54 }
elseif ($did == 36) { additbnc $$?="Rajouter Un Port" portirc 55 }
elseif ($did == 37) { delitbnc $did(55).seltext portirc 55 }
}
elseif ($regex($did,/(6.)/i)) {
if ($did == 62) {
var %i 1
while ( [ $numtok( [ % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] ] ,124) ] > %i) { did -c Socket-By-Bnc $gettok($gettok( [ % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] ] ,%i,124),2,94) $didwm(Socket-By-Bnc, [ $gettok($gettok( [ % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] ] ,%i,124),2,94) ] , [ $gettok($gettok( [ % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] ] ,%i,124),1,94) ] ) | inc %i }
if (%i == $numtok( [ % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] ] ,124)) && ($gettok( [ % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] ] ,%i,124) == 1) { did -c Socket-By-Bnc 44 | did -u Socket-By-Bnc 45 }
}
elseif ($did == 60) {
if (!$did(49).seltext) { echo -a 4 Veuillez selectionner un nom de fichier au préalable svp | halt }
dialog -m Actionslancbnc Actionslancbnc | set %proxbnc.nomfichierpoursave $did(49).seltext
var %proxbnc.lignes $lines($+(Socket-By-Bnc\,$did(49).seltext,.txt)) | var %proxbnc.cmpt 2
.fopen proxbnc.affich $+(Socket-By-Bnc\,$did(49).seltext,.txt)
while ($calc(%proxbnc.lignes -2) >= %proxbnc.cmpt) {
.fseek -l proxbnc.affich %proxbnc.cmpt | did -a Actionslancbnc 1 $fread(proxbnc.affich) $crlf
inc %proxbnc.cmpt
}
.fclose proxbnc.affich
}
elseif ($did == 63) { unset % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] | delitbnc $did(62).seltext listepreconf 62 }
}
elseif ($regex($did,/(1.)/i)) {
if ($did == 15) { delitbnc $did(52).seltext pseudsocket 52 }
elseif ($did == 14) { additbnc $$?="Rajouter Un Pseudo" pseudsocket 52 }
elseif ($did == 16) { additbnc $$?="Rajouter Un Realname" realsocket 53 }
elseif ($did == 17) { delitbnc $did(53).seltext realsocket 53 }
elseif ($did == 11) { additbnc $$?="Rajouter Un Login" login 56 }
elseif ($did == 10) { delitbnc $did(56).seltext login 56 }
elseif ($did == 12) { additbnc $$?="Rajouter Un Mot De Passe" mdp 57 }
elseif ($did == 13) { delitbnc $did(57).seltext mdp 57 }
}
elseif ($regex($did,/(2.)/i)) {
if ($did == 28) { additbnc $$?="Rajouter Un Nom" nomsocket 50 }
elseif ($did == 29) { delitbnc $did(50).seltext nomsocket 50 }
}
elseif ($regex($did,/(4.)/i)) {
if ($did == 44) { did -c Socket-By-Bnc 44 | did -u Socket-By-Bnc 45 }
elseif ($did == 45) { did -c Socket-By-Bnc 45 | did -u Socket-By-Bnc 44 }
elseif ($did == 42) { additbnc $$?="Rajouter Un Nom" nombnc 51 }
elseif ($did == 43) { delitbnc $did(51).seltext nombnc 51 }
elseif ($did == 47) {
if (!$did(50).seltext) { echo -a 4 Veuillez selectionner un nom de socket au préalable svp | halt }
dialog -m Actionslancbnc Actionslancbnc | set %proxbnc.nomfichierpoursave $did(50).seltext
}
elseif ($did == 48) { delitbnc $did(49).seltext file 49 }
}
elseif ($regex($did,/(^(\d)$)/i)) {
if ($did == 6) { additbnc $$?="Rajouter Un Server" serverbnc 59 }
elseif ($did == 7) { delitbnc $did(59).seltext serverbnc 59 }
elseif ($did == 8) { additbnc $$?="Rajouter Un Port" portbnc 58 }
elseif ($did == 9) { delitbnc $did(58).seltext portbnc 58 }
}
}
}
alias contobnc { sockopen proxybnc $1 $2 | echo -a 4 Connection au BNC }
on *:sockopen:proxybnc:{
if $sockerr { echo -a 4 Impossible de se connecter au BNC | sockclose proxybnc | return }
.timer 1 10 jattenunpeusicarame
}
alias jattenunpeusicarame {
sockwrite -n proxybnc login %proxbnc.tmplogin %proxbnc.tmppass
sockwrite -n proxybnc NICK %proxbnc.tmpnick | sockwrite -n proxybnc USER $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) "" "localhost" : %proxbnc.tmpreal
.timer 1 10 ptiteattentepourlaforme
}
alias ptiteattentepourlaforme {
sockrename proxybnc %proxbnc.tmpsocketname | sockmark %proxbnc.tmpsocketname %proxbnc.tmpnick
sockwrite -n %proxbnc.tmpsocketname CONN %proxbnc.tmpserver %proxbnc.tmpport | echo -a 4 Connection au server de tchat
.load -rs $+(Socket-By-Bnc\,%proxbnc.tmpsocketname,.txt)
if (%proxbnc.applalias == oui) { .timer 1 10 commandeconfigsocketproxy }
}
alias jeviremonaliasnow { .unload -rs $+(Socket-By-Bnc\,%proxbnc.tmpsocketname,.txt) }

on 1:LOAD:{ echo -a 4 Vous installez Socket-By-BNC de ISoKa :o) }
on 1:unload:{ echo -a 4 Vous désinstallez Socket-By-BNC de ISoKa :o) | unset %proxbnc.* }
menu menubar {
  -
  Socket-By-Bnc:dialog -m Socket-By-Bnc Socket-By-Bnc
  -
}
dialog Actionslancbnc {
  title "Actions Lancement Socket"
  size -1 -1 184 162
  option dbu
  edit "", 1, 3 5 177 129, multi return autohs autovs
  button "Enregistrer", 2, 41 144 37 12
  button "Annuler", 3, 103 144 37 12, ok
}
ON *:DIALOG:Actionslancbnc:sclick:2:{
  if ($isfile($+(Socket-By-Bnc\,%proxbnc.nomfichierpoursave,.txt)) == $false) { write $+(Socket-By-Bnc\,%proxbnc.nomfichierpoursave,.txt) create-file }
  write -c $+(Socket-By-Bnc\,%proxbnc.nomfichierpoursave,.txt)
  .fopen proxbnc.alias $+(Socket-By-Bnc\,%proxbnc.nomfichierpoursave,.txt) | var %proxbnc.nbligneajout $did(Actionslancbnc,1).lines | var %proxbnc.cmpt 1
  .fwrite -n proxbnc.alias alias commandeconfigsocketproxy $chr(123) 
  while (%proxbnc.nbligneajout > %proxbnc.cmpt) {
    .fseek -l proxbnc.alias $calc(%proxbnc.cmpt +1) | .fwrite -n proxbnc.alias $did(Actionslancbnc,1,%proxbnc.cmpt)
    inc %proxbnc.cmpt
  }
  .fwrite -n proxbnc.alias jeviremonaliasnow | .fwrite proxbnc.alias $chr(125)
  ajouteritemdialbnc %proxbnc.nomfichierpoursave file 49
  .fclose proxbnc.alias | dialog -x Actionslancbnc Actionslancbnc | unset %proxbnc.nomfichierpoursave
}
dialog Socket-By-Bnc {
  title "Socket-By-Bnc (ezb) By ISoKa"
  size -1 -1 192 159
  option dbu
  button "Fermer", 4, 160 131 27 24, ok
  tab "BNC", 25, 3 1 185 125
  button "Aj.", 6, 12 54 24 12, tab 25
  button "Suppr.", 7, 84 54 24 12, tab 25
  button "Aj.", 8, 121 54 24 12, tab 25
  button "Suppr.", 9, 154 54 24 12, tab 25
  button "Aj.", 11, 12 102 24 12, tab 25
  box "Votre BNC", 2, 6 20 178 100, tab 25
  button "Suppr.", 10, 66 102 24 12, tab 25
  button "Aj.", 12, 102 102 24 12, tab 25
  button "Suppr.", 13, 155 102 24 12, tab 25
  box "Server", 18, 9 28 105 42, tab 25
  box "Port", 19, 117 28 64 42, tab 25
  box "Login", 20, 9 72 84 44, tab 25
  box "Mot de passe", 21, 97 72 84 44, tab 25
  combo 56, 12 81 78 50, tab 25 size drop
  combo 57, 102 82 76 50, tab 25 size drop
  combo 58, 121 38 57 50, tab 25 size drop
  combo 59, 12 37 98 50, tab 25 size drop
  tab "Connection", 26
  box "Realname", 23, 98 75 83 41, tab 26
  box "Pseudo", 22, 10 75 83 41, tab 26
  box "Server IRC", 5, 7 18 177 103, tab 26
  button "Aj.", 14, 14 100 24 12, tab 26
  button "Suppr.", 15, 64 100 24 12, tab 26
  button "Aj.", 16, 103 100 24 12, tab 26
  button "Suppr.", 17, 154 100 24 12, tab 26
  button "Aj.", 34, 14 56 24 12, tab 26
  button "Suppr.", 35, 86 56 24 12, tab 26
  button "Aj.", 36, 123 56 24 12, tab 26
  button "Suppr.", 37, 154 56 24 12, tab 26
  box "Port", 39, 118 28 63 43, tab 26
  box "Server", 38, 10 28 105 43, tab 26
  combo 52, 14 84 74 50, tab 26 size drop
  combo 53, 103 85 75 50, tab 26 size drop
  combo 54, 14 38 96 50, tab 26 size drop
  combo 55, 123 38 55 50, tab 26 size drop
  tab "Noms Bouncer\Socket", 27
  text "Mettre Nom du Socket qui figure dans les remotes", 24, 37 79 128 8, tab 27 center
  button "Aj.", 28, 62 106 24 12, tab 27
  button "Suppr.", 29, 105 106 24 12, tab 27
  box "Votre Socket\Bot", 1, 7 70 177 50, tab 27
  box "Votre Bouncer", 40, 7 18 176 49, tab 27
  text "Mettre nom du Bouncer ( ex: ezb)", 41, 53 25 92 8, tab 27 center
  button "Aj.", 42, 61 52 24 12, tab 27
  button "Suppr.", 43, 104 52 24 12, tab 27
  combo 50, 62 90 67 50, tab 27 size drop
  combo 51, 62 36 67 50, tab 27 size drop
  tab "Actions Connec", 33
  box "Actions associée", 3, 7 56 177 62, tab 33
  check "oui", 44, 49 31 50 10, tab 33
  check "non", 45, 114 31 50 10, tab 33
  box "Effectuer actions préprogrammées au lancment socket ?", 46, 7 19 177 33, tab 33
  button "Aj.", 47, 49 101 24 12, tab 33
  button "Suppr.", 48, 120 101 24 12, tab 33
  combo 49, 49 70 95 50, tab 33 size drop
  button "Voir", 60, 84 101 24 12, tab 33
  box "Actions", 30, 3 130 78 25
  button "Connecter", 31, 5 139 37 12
  button "Deconnecter", 32, 43 139 36 12
  box "Pré-Config", 61, 83 130 75 25
  combo 62, 85 139 54 50, size drop
  button "Sup.", 63, 140 139 17 12
}
alias sidibnc { didtok Socket-By-Bnc $2 124 [ % $+ [ proxbnc. $+ [ $1 ] ] ] }
alias additbnc { set % $+ [ proxbnc. $+ [ $2 ] ] $addtok( [ % $+ [ proxbnc. $+ [ $2 ] ] ] ,$1,124) | did -a Socket-By-Bnc $3 $1 }
alias delitbnc { set % $+ [ proxbnc. $+ [ $2 ] ] $remtok( [ % $+ [ proxbnc. $+ [ $2 ] ] ] ,$1,124) | did -d Socket-By-Bnc $3 $did($3).sel }
ON *:DIALOG:Socket-By-Bnc:*:*:{
  if ($devent == init) { did -c Socket-By-Bnc 45 | did -u Socket-By-Bnc 44 | sidibnc listepreconf 62 | sidibnc serverbnc 59 | sidibnc portbnc 58 | sidibnc mdp 57 | sidibnc login 56 | sidibnc serverirc 54 | sidibnc portirc 55 | sidibnc pseudsocket 52 | sidibnc realsocket 53 | sidibnc nombnc 51 | sidibnc nomsocket 50 | sidibnc file 49 }
  if ($devent == sclick) {
    if ($regex($did,/(3.)/i)) { 
      if ($did == 31) { 
        if ($did(44).state == 1) { set -u40 %proxbnc.applalias oui }
        contobnc $did(59).seltext $did(58).seltext | set -u60 %proxbnc.tmplogin $did(56).seltext | set -u60 %proxbnc.tmppass $did(57).seltext | set -u60 %proxbnc.tmpnick $did(52).seltext | set -u60 %proxbnc.tmpreal $did(53).seltext | set -u60 %proxbnc.tmpserver $did(54).seltext | set -u60 %proxbnc.tmpport $did(55).seltext | set -u60 %proxbnc.tmpsocketname $did(50).seltext
        if (!% $+ [ proxbnc.preconfig $+ [ %proxbnc.tmpsocketname ] ] ) && ($?!="On enregistre cette config ?" == $true) { 
          set % $+ [ proxbnc.preconfig $+ [ %proxbnc.tmpsocketname ] ] [ [ $did(59).seltext ] $+ [ $chr(94) ] $+ 59 $+ [ $chr(124) ] $+ [ $did(58).seltext ] $+ [ $chr(94) ] $+ 58 $+ [ $chr(124) ] $+ [ $did(56).seltext ] $+ [ $chr(94) ] $+ 56 $+ [ $chr(124) ] $+ [ $did(57).seltext ] $+ [ $chr(94) ] $+ 57 $+ [ $chr(124) ] $+ [ $did(52).seltext ] $+ [ $chr(94) ] $+ 52 $+ [ $chr(124) ] $+ [ $did(53).seltext ] $+ [ $chr(94) ] $+ 53 $+ [ $chr(124) ] $+ [ $did(54).seltext ] $+ [ $chr(94) ] $+ 54 $+ [ $chr(124) ] $+ [ $did(55).seltext ] $+ [ $chr(94) ] $+ 55 $+ [ $chr(124) ] $+ [ $did(50).seltext ] $+ [ $chr(94) ] $+ 50 $+ [ $chr(124) ] $+ [ $did(44).state ] ]
          additbnc %proxbnc.tmpsocketname listepreconf 62
        }
      }
      elseif ($did == 32) { 
        if (!$did(50).seltext) { echo -a 4 Veuillez selectionner un nom de socket au préalable svp | halt }
        sockwrite -n $did(50).seltext $did(51).seltext disconnect 
        .timer 1 5 sockclose $did(50).seltext
      }
      elseif ($did == 34) { additbnc $$?="Rajouter Un Server" serverirc 54 }
      elseif ($did == 35) { delitbnc $did(54).seltext serverirc 54 }
      elseif ($did == 36) { additbnc $$?="Rajouter Un Port" portirc 55 }
      elseif ($did == 37) { delitbnc $did(55).seltext portirc 55 }
    }
    elseif ($regex($did,/(6.)/i)) { 
      if ($did == 62) { 
        var %i 1 
        while ( [ $numtok( [ % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] ] ,124) ] > %i) { did -c Socket-By-Bnc $gettok($gettok( [ % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] ] ,%i,124),2,94) $didwm(Socket-By-Bnc, [ $gettok($gettok( [ % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] ] ,%i,124),2,94) ] , [ $gettok($gettok( [ % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] ] ,%i,124),1,94) ] ) | inc %i }
        if (%i == $numtok( [ % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] ] ,124)) && ($gettok( [ % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] ]  ,%i,124) == 1) { did -c Socket-By-Bnc 44 | did -u Socket-By-Bnc 45 }         
      }
      elseif ($did == 60) { 
        if (!$did(49).seltext) { echo -a 4 Veuillez selectionner un nom de fichier au préalable svp | halt }
        dialog -m Actionslancbnc Actionslancbnc | set %proxbnc.nomfichierpoursave $did(49).seltext
        var %proxbnc.lignes $lines($+(Socket-By-Bnc\,$did(49).seltext,.txt)) | var %proxbnc.cmpt 2
        .fopen proxbnc.affich $+(Socket-By-Bnc\,$did(49).seltext,.txt)
        while ($calc(%proxbnc.lignes -2) >= %proxbnc.cmpt) {
          .fseek -l proxbnc.affich %proxbnc.cmpt | did -a Actionslancbnc 1 $fread(proxbnc.affich) $crlf
          inc %proxbnc.cmpt
        }
        .fclose proxbnc.affich
      }
      elseif ($did == 63) { unset % $+ [ proxbnc.preconfig $+ [ $did(62).seltext ] ] | delitbnc $did(62).seltext listepreconf 62 }
    }
    elseif ($regex($did,/(1.)/i)) { 
      if ($did == 15) { delitbnc $did(52).seltext pseudsocket 52 }
      elseif ($did == 14) { additbnc $$?="Rajouter Un Pseudo" pseudsocket 52 }
      elseif ($did == 16) { additbnc $$?="Rajouter Un Realname" realsocket 53 }
      elseif ($did == 17) { delitbnc $did(53).seltext realsocket 53 }
      elseif ($did == 11) { additbnc $$?="Rajouter Un Login" login 56 }
      elseif ($did == 10) { delitbnc $did(56).seltext login 56 }
      elseif ($did == 12) { additbnc $$?="Rajouter Un Mot De Passe" mdp 57 }
      elseif ($did == 13) { delitbnc $did(57).seltext mdp 57 }
    }
    elseif ($regex($did,/(2.)/i)) { 
      if ($did == 28) { additbnc $$?="Rajouter Un Nom" nomsocket 50 }
      elseif ($did == 29) { delitbnc $did(50).seltext nomsocket 50 }
    }
    elseif ($regex($did,/(4.)/i)) { 
      if ($did == 44) { did -c Socket-By-Bnc 44 | did -u Socket-By-Bnc 45 }
      elseif ($did == 45) { did -c Socket-By-Bnc 45 | did -u Socket-By-Bnc 44 }
      elseif ($did == 42) { additbnc $$?="Rajouter Un Nom" nombnc 51 }
      elseif ($did == 43) { delitbnc $did(51).seltext nombnc 51 }
      elseif ($did == 47) {
        if (!$did(50).seltext) { echo -a 4 Veuillez selectionner un nom de socket au préalable svp | halt }
        dialog -m Actionslancbnc Actionslancbnc | set %proxbnc.nomfichierpoursave $did(50).seltext
      }
      elseif ($did == 48) { delitbnc $did(49).seltext file 49 }
    }
    elseif ($regex($did,/(^(\d)$)/i)) { 
      if ($did == 6) { additbnc $$?="Rajouter Un Server" serverbnc 59 }
      elseif ($did == 7) { delitbnc $did(59).seltext serverbnc 59 }
      elseif ($did == 8) { additbnc $$?="Rajouter Un Port" portbnc 58 }
      elseif ($did == 9) { delitbnc $did(58).seltext portbnc 58 }
    }
  }
}
alias contobnc { sockopen proxybnc $1 $2 | echo -a 4 Connection au BNC }
on *:sockopen:proxybnc:{ 
  if $sockerr { echo -a 4 Impossible de se connecter au BNC | sockclose proxybnc | return }
  .timer 1 10 jattenunpeusicarame
}
alias jattenunpeusicarame { 
  sockwrite -n proxybnc login %proxbnc.tmplogin %proxbnc.tmppass
  sockwrite -n proxybnc NICK %proxbnc.tmpnick | sockwrite -n proxybnc USER $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) "" "localhost" : %proxbnc.tmpreal
  .timer 1 10 ptiteattentepourlaforme
}
alias ptiteattentepourlaforme {  
  sockrename proxybnc %proxbnc.tmpsocketname | sockmark %proxbnc.tmpsocketname %proxbnc.tmpnick
  sockwrite -n %proxbnc.tmpsocketname CONN %proxbnc.tmpserver %proxbnc.tmpport | echo -a 4 Connection au server de tchat
  .load -rs  $+(Socket-By-Bnc\,%proxbnc.tmpsocketname,.txt)
  if (%proxbnc.applalias == oui) {  .timer 1 10 commandeconfigsocketproxy }
}
alias jeviremonaliasnow { .unload -rs $+(Socket-By-Bnc\,%proxbnc.tmpsocketname,.txt) }

Conclusion

vous mettez ce code dans un joli .txt que vous mettez dans un dossier que vous allez nommer "Socket-By-Bnc" lui mm se trouvant à la racine de votre mirc. vous loadez et pour le lancer c'est dans le menu bar. Voila, enjoy :o)

Historique

06 juin 2006 22:49:26 :: Correction d'un petit bug pour l'affichage d'actions deja enregistrée qui aurait pu faire bugué plus tard :)
06 juin 2006 23:19:07 :: Correction encore d'un bug sur la modif d'un alias deja existant.
06 juin 2006 23:27:32 :: erreur d'id dans le dialog c'est ca de faire les choses vite :/
07 juin 2006 08:42:26 :: virer un echo qui n'avait d'interet que pour la phase de developpment ( avai oublié :x)
07 juin 2006 09:19:17 :: trés legere réorganisation du on dialog et ptit bidouillage pour essayer qu'on voi un peu mon les noms longs dans certaines action du on dialog
07 juin 2006 09:34:18 :: correction d'un bug que je mettai crée comme un grand lors de ma derniere modif :)
07 juin 2006 09:51:23 :: optimisation du "on dialog" encore en diminuant le nb de tests effectué grace aux regexs
07 juin 2006 10:02:40 :: Juste pour PaDa :p raccourcissement des noms longs vraiment reccurents
07 juin 2006 10:05:39 :: encore cet echo qui ser à rien :/
07 juin 2006 10:52:47 :: j'vien de decouvrir un truc sympa sur les dialogs pour les generations de combo donc je l'ajoute :)
07 juin 2006 12:11:35 :: en l'utilisant un peu j'ai vu que c'est contraigant de tjs devoir tout selectionner dans les combo, donc mise en place d'un system de sauvegarde de configs.
07 juin 2006 14:05:44 :: j'avai oublié de mettre mon nom sur l'dialog :p

Sources du même auteur

SOCKET ANTISPAM

PARLER À X PERSONNES SUR X CHAN SUR UNE SEULE FENETRE

Toutes les sources de ISoKa

Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur

[XCHAT] ANTI KICK / AWAY C++ par GeroXXXX

JEU DU CODE par alanpersonproject

SERVEUR FTP par hisoka2501

BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

Toutes les sources de la catégorie AddOns

Sources en rapport avec celle ci

SERVEUR FTP par hisoka2501

TELECHARGEMENT DE FICHIER PAR PROTOCOLE HTTP 1.0 VIA SOCKET par hisoka2501

QUOTES BASH ET BASHFR par Flyswat

PACMAN ONLINE - 4 JOUEURS par wims

SORNBNC 1.3 > BNC MULTI-USERS par SornDrixer

Commentaires et avis

Commentaire de PaDa le 07/06/2006 07:56:28

Hi,
Remarques à la con :
- Niveau relecture, c'est difficile, tu emploies des noms longs même s'ils sont explicites, c'est assez lourd je trouve, simplifie ^^
- Les tables avec dstudio ou autre, c'est bien, réorganiser/renuméroter ses items a posteriori (voire pour optimiser ses "on dialog") c'est encore mieux
Sinon ca me parait bien ;) (ptet que 10s c'est beaucoup pour envoyer le login non ? :p)
Bonne continuation !

Commentaire de ISoKa le 07/06/2006 08:03:29

lol merci de ton commentaire, en faite oué je pourrai renomer les items, mais c'est tellement bien avec dstudio lol :p je matterai si j'ai le courage de refaire ca oué, fin à la base c'est un truc fait un peu rapidement aussi donc c'est clair que y a pleins d'optimisations possibles. pour les 10s en faite c'est plus pour moi en faite, j'ai une connection des antilles... ( pas la peine de develloper je pense ^^) donc j'ai mis ca pour etre sur que ca ai le temps de ce faire mais on peu tout à fais pour une connec normale reduire ca oui. je verai peut etre pour le rendre configurable mais faudrait que je voi ou caser ca dans mon dialog sans trop alourdir. pour les noms longs oui c'est vrai que j'y vai peut etre un peu fort lol mais comme perso j'ai 23421454 alias ( la plus part inutils d'ailleur :p) sur mon script c'est une abitude que j'ai pri. en tout cas merci je vais voir c'k'il est possible pour arranger tout ca quand j'aurai un pti moment :)

Commentaire de DarkShadowI le 06/09/2007 22:08:21

Je ne comprends pas, comment l'installer ?
Quand je le load, ça ne fait rien...

Commentaire de ISoKa le 06/09/2007 22:14:15

tu as bien suivi ca ?:
vous mettez ce code dans un joli .txt que vous mettez dans un dossier que vous allez nommer "Socket-By-Bnc" lui mm se trouvant à la racine de votre mirc. vous loadez et pour le lancer c'est dans le menu bar.
pck à priori si ceci a été suivi y a pas de raisons que ca marche pas.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Comment connecter un Socket ( sock ) à travers un proxy ? [ par biggoude ] JE souhaite connecter un Socket sur un server IRC en le passant par un Proxy, comment faire cela ?Merci BNC comment faire :'( [ par Lonsdale^ ] salut as tous suis tous nouveau sur ce site, ben je ne veux pas passer pour 1 ridicule mais je cherche depuis 5 mois comment avoir 1 bnc. J'en ai dl 1 Plus aucun socket ne répond... [ par Kolibot ] Aucun socket ne répond depuis qqs jours... quelqu'un aurait'il une idée...By Koli bnc [ par bbjulien ] salut je voudrai savoir commen marche le bncet ou l avoir gratos heberger des bnc [ par GVDS ] Bonjour, je voulais savoir si il etait possible d'heberger des bnc sur mon pc et sur le pc d'un ami en cas de deconnexion.Je m'explique, j'ai klkes co dcc send en socket [ par abdoulax ] yo j'aurai besoin que qlq1 m'explik ac précsion le protocole du dcc send . ou sinon il me faudrai un exemple d'addon ki reproduirai le dcc send en soc petite question [ par Solisoft ] Salut,Voila j'ai eu 8 bnc's mais je ne less auth pas, j'aimerrais que quand il entre sur mon channel je les op par 1 script, le prob c'est que ils on socket tokens avec gametiger.net [ par pcgpegase ] bjour / bsoir tout les gens ! :)Bon alors étant un newbie du scripting irc et n'ayant pas trouvé de réponses à mon problème je demande votre aide :&gt socket ! [ par Le_Corse ] Salut,Quelqun connaitrais pas un bon tuto pour les sockets Svp ?merci ^^» Le_Corse Nouveau serveur irc [ par Solisoft ] Yop,Voila je viens annoncer l'ouverture de mon serveur irc, j'ai finallement trouvé comment installer les bots que je voullais, donc il fonctionne ave

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURS par ROMELARD Fabrice

TECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOUR par ROMELARD Fabrice

UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante

TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice

[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion

Forum

RE : ON RAWMODE par WorldDMT

RE : PROBLEME AVEC UN QUIZZ par vincent67190

RE : PROBLèME FLAG IRCOP par WebiK

AVERTISSMENT ET KIKK par mouhcine951990

RE : PROBLèME FLAG IRCOP par Benjamin37

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Cherche formation complete en GIMP
Budget : 750€
Module sur Prestashop
Budget : 700€
Redaction d-une page de vente pour un ebook
Budget : 300€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5