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

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 06:10:46

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : PIRATER LE MOT DE PASS MSN par Mauricelepoisson

RE : PIRATER LE MOT DE PASS MSN par IrX

PIRATER LE MOT DE PASS MSN par kaniboss

RE : ENVOI DE MP SUR COMMANDE + AUTO-VOICE AUTOMATIQUE par okier

+ de logiciels à télécharger

1 465 009 membres
60 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 047 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

KLIENT[VBS] - CHANGER DE NICK SUR TOUS LES SERVEURS

Information sur la source

Catégorie :Divers Niveau : Débutant Date de création : 06/08/2002 Date de mise à jour : 06/08/2002 12:56:29 Vu : 3 085

Auteur : vbtom

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Lut

Bon ben vu que je suis pratiquement sur trois serveurs en mem temps ca me gonfle de taper trois fois /nick machin donc jai fait ce script ki permet de changer votre pseudo sur tous les serveurs ou vous etes
voila:

Source

Dim I
For I=0 to servers.Count
if params<>"" then
display.echo servers.handle(i),"0,0"
display.echo servers.handle(i),"15 :: Nick action succesfull [ Nick: " & params & " / Server: " & Servers.NameByIndex(I) & " ]"
display.echo servers.handle(i),"0,0"
display.echo servers.handle(i), "nick " & Params
Klient.CommandFrom servers.handle(i), "nick " & Params
else
display.echo servers.handle(i),"0,0"
display.echo servers.handle(i),"15 :: Nick action failed [ Reason: No nick specified ]"
display.echo servers.handle(i),"0,0"
end if
next

Dim I
For I=0 to servers.Count
    if params<>"" then
        display.echo servers.handle(i),"0,0"
        display.echo servers.handle(i),"15 :: Nick action succesfull [ Nick: " & params  & " / Server: " & Servers.NameByIndex(I) & " ]"
        display.echo servers.handle(i),"0,0"
        display.echo servers.handle(i), "nick " & Params
        Klient.CommandFrom servers.handle(i), "nick " & Params
    else
        display.echo servers.handle(i),"0,0"
        display.echo servers.handle(i),"15 :: Nick action failed [ Reason: No nick specified ]"
        display.echo servers.handle(i),"0,0"
    end if
next