Socket messager

Télécharger le projet
Commenter

Description

Voila c'est un genre de petit messager tout en socket

Source / Exemple : 


;premiere remote

menu menubar {
  Ouvrir Socket-Messager: { sockclose * | socklisten messager 6667 | echo $active 12Socket Messager et lancer }
  Fermer Socket-Messager: { sockclose * }
  couleur d'ecriture:{ set %color $$?"Entre ta couleur" }
  Connaitre son adresse de socket messager:/echo $active 12Votre adresse de socket messager est :4 $ip $+ :6667
  ouvrire une session avec socket messager avec quelqu'un:/messager $$?"Quel IP ?"
}

on 1:socklisten:*:{
  sockaccept pseudo
  sockwrite -n pseudo mon-pseudo $me
}

on 1:sockclose:*:{ aline -ph 4 @socket. [ $+ [ $sockname ] ] Déconnexion de $sockname }

on 1:sockread:*: {
  if ($sockname != pseudo) {
    if ( $sockerr == 0 ) { sockread %temp
      if (%temp != $null) { aline -ph 1 @socket. [ $+ [ $sockname ] ] %temp }
    }
    else {
      if ($gettok(%temp,1,32) == NICK) { set %pseudo $gettok(%temp,2,32) | fenetre }
    }
  }
}

on *:input:@socket.*:{ 
  aline -ph 2 $active 4[12 $+ $me $+ 4]  - %color  $+ $1-
  sockwrite -n $gettok($active,2,46) 4[12 $+ $me $+ 4] - %color $+  $+ $1-
}

On 1:close:@socket.*:{
  sockwrite -n $gettok($active,2,46) 4[12INFO4]7 $me vient de de fermer la session socket messager avec vous.
  sockclose $gettok($active,2,46)
}

menu @socket.* {
  Fermer le socket messager avec $gettok($active,2,46) :{
    sockwrite -n $gettok($active,2,46) 4[12INFO4]7 $me vient de de fermer la session socket messager avec vous.
    sockclose $gettok($active,2,46)
    close - $+ $active
  }
}

alias fenetre {
  window -e @socket. [ $+ [ %pseudo ] ]
  aline -ph 4 @socket. [ $+ [ %pseudo ] ] Connexion de %pseudo
  sockwrite -n pseudo 4[12INFO4] Connection effectuer avec7 $me
  sockrename pseudo %pseudo
}

alias messager {
  sockopen pseudo $1 6667
  .timer 1 1 fenetre
}

;à metre dans un deuxieme remote

on 1:sockread:*: {
  if ( $sockerr == 0 ) { sockread %temp2
    if (%temp2 != $null) {
      if ($gettok(%temp2,1,32) == mon-pseudo) { set %pseudo $gettok(%temp2,2,32) | fenetre }
    }
  }
}

Conclusion :


Voila, pour le moment c'est encore très basique, mais j'espere continuer à l'ameliorer
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 (nightmar)