c'est pareil sauf que la on passe pas par les init et pack , on envoit en direct les valeurs avec param1.WriteXXXX(valeur)
param1.WriteXXXX c'est celui (ceux) du pack et valeur(s) c'est celle(s) du init (pas eu de le courage de traduire les fichiers pour juste une 2 lignes qui servent)
d'ailleur tu pack sans faire de init avant c'est bizarre, ca fait que tu envois des packets vides , pour certain c'est bon mais pour 2 c'est pas bon et voila pourquoi tu te vois pas ingame :
D..D..Send(4001) ' FriendsGetListMessage vide
D..D..Send(5676) ' IgnoredGetListMessage vide
Dim param1 As New D..D.
param1.WriteString(ClientKey.getRandomFlashKey())
D..D..Send(5607) ' ClientKeyMessage PAS vide donc un init (ici c'est le param1.WriteString(ClientKey.getRandomFlashKey()) qui sert d'init)
D..D..Send(250) ' GameContextCreateRequestMessage vide
param1.WriteShort(112)
D..D..Send(890) ' ChannelEnablingMessage PAS vide donc un init (ici c'est le param1.WriteShort(112) qui sert d'init)
pour le coup du param1.WriteString(ClientKey.getRandomFlashKey()) par contre c'est une mauvais idée IL FAUT TOUJOURS ENVOYER LA MEME CLIENT KEY ET PAS EN GENERER UNE NOUVELLE A CHAQUE FOIS , tu la generes une fois avec ClientKey.getRandomFlashKey() , tu la sauvegardes ou tu veux et tu utilises toujours celle la.
Sinon ca veut dire que tu as reinstallé le jeu (donc parfois en regenerant en meme pas 30 secs ca peu paretre louche)