VB/VB.Net Le multicompte et les sockets

[Anonymous]

Bonjour,
J'ai encore un petit souci qui devrait être le dernier j’espère
Actuellement je me co avec la fonction de Toons :

Public Shared socketConnexion As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) 
    Public Shared socketJeu As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) 

    Public Ecoute_Connexion_thread As New Thread(New ThreadStart(AddressOf Ecoute_Connexion)) 
    Public Ecoute_Jeu_thread As New Thread(New ThreadStart(AddressOf Ecoute_Jeu))

    Public buffer(8192) As Byte 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If connected = False Then
            socketConnexion.Connect("213.248.126.180", 5555)
            Ecoute_Connexion_thread.Start()

            While Ecoute_Connexion_thread.IsAlive
                Application.DoEvents()
            End While
            socketJeu.Connect(ip, 5555)
            Ecoute_Jeu_thread.Start()
        End If

        RadForm1.statut("connected", id)

        connected = True
        Button1.Enabled = False

    End Sub

    Sub Ecoute_Connexion()
        While socketConnexion.Connected 
            Dim i = socketConnexion.Receive(buffer)
            Dim data(i - 1) As Byte
            Array.Copy(buffer, data, i)
            parsing(data)
        End While
    End Sub
    Sub Ecoute_Jeu()
        While socketJeu.Connected 
            Dim i = socketJeu.Receive(buffer)
            Dim data(i - 1) As Byte 
            Array.Copy(buffer, data, i) 
            parsing(data) 
        End While
    End Sub

Le probleme c'est que pour le multicompte ça passe pas :/
Je crée des forms (form avec le bot, sa connexion, son parser et tout) dans un mdi, le probleme c'est que toute les forms utilisent la même connexion...
Que me conseillez vous pour rendre le truc fonctionnel ?

 

[Anonymous]

Enleve le Shared

 

[Anonymous]

Quand je l’enlève il se connecte plus, il me met :

parsing() Send -> Une requête d’envoi ou de réception de données n’a pas été autorisée car le socket n’est pas connecté et (lors de l’envoi sur un socket datagramme en utilisant un appel sendto) aucune adresse n’a été fournie

J'ai essaye plein de trucs déjà .

 

[ToOnS]

salut, mets le parsing dans la form enfant

 

[Anonymous]

Lu,
Le parsing s'y trouve déjà...

 

[Anonymous]

Tu recois des packets avant d'avoir cette erreur ?

 

[Anonymous]

Oui mais je peux pas envoyer car ça plante

 

[Anonymous]

bah quel packets recoi tu avant l'erreur --'

 

[Anonymous]

Bein ce que tu reçois normalement avant la connexion quoi le HelloConnect... La réception fonctionne, l'écriture fonctionne mais l'envoi non

 

[Anonymous]

Ouch je te demande quel packet tu recoi avant l'erreur waw regarde ta fenêtre log mdr

 

[Anonymous]

On peut voir le code que tu utilises pour l'envoi ?

 

[Anonymous]

Donne nous le derniere packet recu et le case correspondant au packet.
Sinon oui sa peut venir de ton dofuswriter mais je pense que c'est celui de ToOnS

 

[ToOnS]

ca doit venir des .pack car c'est pas fait pour gerer les multi compte d'origine
soit il faut copier tout d0fusStreamer.vb dans la form enfant ou
soit il faut transformer comme ca :

 ' Envoi du packet
                Dim Message As New Messages.Connection.IdentificationMessage
                Message.initIdentificationMessage(Version_, Account, Passe, certificate, True)
                Message.pack(_socket_Connexion) ' _socket_Connexion car on est en case 3 qui est entre 0 et 42 (inclus) , au dessus de 42 ca serait _socket_Jeu

puis dans Messages.Connection.IdentificationMessage.pack :

Public Function pack(_socket as Socket) ' la ajouter _socket as Socket
            Dim _loc_2 As New Dofus.DofusWriter
            Me.serialize(_loc_2)
            D0fus.D0fusWriter.Send(_socket , protocolId) ' la ajouter _socket 
            Return Me
        End Function

et donc dans D0fus.D0fusWriter.Send :

Friend Shared Sub Send(socket as Socket, PacketID As Integer) ' la ajouter _socket as Socket
...// blablabla
...
Console.WriteLine() 
' a partir de la changer par ca :
            If _socket.Connected Then
                _socket.Send(BytesToWrite)
            End If
'voila
            m_Bytes.Clear()

 

[Anonymous]

Tu gère Toons. Merci une fois de plus !

 

[Anonymous]

Je me demandais vu que ce système n'est pas prévu pour, je dois utiliser quoi au juste qui soit plus adapte ?

 

[ToOnS]

ca peu s'adapter assez facilement , j'en ai vu pas mal qui tournent en multi juste avec ca