Bonjour à tous,Voila je suis actuellement sur la lecture des InfoMessage,J'utilise alors D2oManager pour les lires, mais pour les lire je fait comme ceci :``` Case TextInformationMessage.ProtocolID Dim tim As New TextInformationMessage Dim infomess As InfoMessage = _manager.ReadIndex(D2oManager.D2o.D2oFileEnum.InfoMessages, tim.msgId) SetChat("[Dofus] " & infomess.Textid & vbCrLf) ```Mais lorsque je me connecte j'obtient[DOFUS] id du message mais j'obtient pas la phrase bienvenue sur dofus etc..Si vous savez pourquoi.Merci de votre aide

tim.msgType * 10000 + tim.msgId

Je remplace donc ceci :Dim infomess As InfoMessage = _manager.ReadIndex(D2oManager.D2o.D2oFileEnum.InfoMessages, tim.msgId)par ceci :Dim infomess As InfoMessage = _manager.ReadIndex(D2oManager.D2o.D2oFileEnum.InfoMessages, tim.msgType * 10000 + tim.msgId)et SetChat("[D.] " & infomess.Textid & vbCrLf) c'est bon ou pas ?

ouais c'est toujours pas bon mais c'est mieux , il faut deserializer tim avant le _manager , faire plutot comme ca :Dim tim As New TextInformationMessagetim.Deserialize(PacketData)SetChat("[D.] " & _manager.ReadIndex(D2oManager.D2o.D2oFileEnum.InfoMessages, tim.msgType * 10000 + tim.msgId) & vbCrLf)

Alors j'ai fait comme ceci :``` Case TextInformationMessage.ProtocolID Dim tim As New TextInformationMessage tim.Deserialize(Content) SetChat("[Dofus] " & _manager.ReadIndex(D2oManager.D2o.D2oFileEnum.InfoMessages, tim.msgType * 10000 + tim.msgId).ToString & vbCrLf) ```lorsque je me log j'obtient ceci :[Dofus] D2oManager.DataCenter.InfoMessage[Dofus] D2oManager.DataCenter.InfoMessage[Dofus] D2oManager.DataCenter.InfoMessage

mets un point d'arret sur la ligne de setchat , un espion sur _manager.ReadIndex(D2oManager.D2o.D2oFileEnum.InfoMessages, tim.msgType * 10000 + tim.msgId) , sur tim.msgType et sur tim.msgId , puis postes les resultatsce manager je le connais pas mais a l'epoque je fesais avec la dll de bouh2 comme ca : Case 780 ' Message d'informations ID_Message = New Network.Messages.Game.Basic.TextInformationMessage ID_Message.Deserialize(PacketData) RTB_CHAT.Invoke(Chater, "", Decode(I18nFile.ReadText(InfoMessages.ReadObject(ID_Message.msgType * 10000 + ID_Message.msgId).textId)), CUInt(10), CUInt(0), False, ID_Message.Parameters, ID_Message.msgType)

j'aurai bien mis un espion mais je le trouve pas dans le menu debuguer =S

"Pour ajouter un espion, vous devez d’abord déboguer le programme. Ensuite sélectionner la variable et faites un clique droit puis sélectionner Ajouter un espion. L’espion apparaît dans la fenêtre des espions. Elle affichera la valeur de la variable à chaque instant."

Merci voila ce que j'obtiens :![img](http://nsa22.casimages.com/img/2012/03/27//120327095734675803.png)

regardes dans l'arborescence de _manager , le reste c'est bon , la je peux pas aider plus ne connaissant pas cette dll mais apperement elle est utilsée par plusieurs personnes qui sauront t'aider

Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

Lecteur D2oManager

miniteck27140

Je voudrais bien test mais item.text c'est quoi ? c'est une textbox que tu à pris ou autres ?

Si je fait un simple copier coller j'ai ceci comme erreur :

La propriété 'Text' est 'ReadOnly'.

miniteck27140

Même en modifiant en Tabutilisateur.ChatBot.text = tabutilisateur.chatbox.text.replace("%",parameters(i))

Sa reste bloquer sur le messages c'est surement du au InvokeRequired

ToOnS

dim aEcrire as string = Item.text

For i = 1 To tim.parameters.Count ' ca commence a 1 pas a 0

aEcrire = aEcrire.replace("%" & i,parameters(i-1))

SetChat("[D.] " & aEcrire & vbCrLf)

miniteck27140

Humm je reste bloquer car si je regarde dans l'espion sa me donne encore ceci : [D.] Précédente connexion sur ce compte : %3/%2/%1 à %4:%5

ToOnS

mets un espion sur aEcrire :p

Case TextInformationMessage.ProtocolID

Dim tim As New TextInformationMessage

tim.Deserialize(Content)

Dim item As InfoMessage = _manager.ReadIndex(D2oManager.D2o.D2oFileEnum.InfoMessages, tim.msgType.ToString * 10000 + tim.msgId.ToString)

dim aEcrire as string = Item.text

For i = 1 To tim.parameters.Count ' ca commence a 1 pas a 0

aEcrire = aEcrire.replace("%" & i,parameters(i-1))

SetChat("[D.] " & aEcrire & vbCrLf)

miniteck27140

Merci sa marche avec celui ci.

Merci c'est résolue,

Merci d'avoir pris le temps de m'aider

« Page précédente