VB/VB.Net D2p

A

Anonymous

Invité
#1
Bonjour à tous!
Depuis quelque temps je cherche à faire les D2p.
Je me sers des sources EuuBot et j'ai presque trouvé.
Mon problème est la class "Map" l'hors de l'InitializeReader.
Donc si une personne ayant déjà fait les d2p pourrait m'aider, j'en serais ravi.

Voici la fonction:

Code:
 Private Sub InitializeReader(ByVal CompressedMap As GeneralInformation.CompressedMap)
            Dim fs As System.IO.Stream = System.IO.File.Open(CompressedMap.file, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.Read)
            Dim br As System.IO.BinaryReader = New System.IO.BinaryReader(fs)
            br.BaseStream.Position = CompressedMap.Offset
            Dim flux As Byte() = br.ReadBytes(CInt(CompressedMap.ByteCount))
            Dim data As Byte() = New Byte(flux.Length - 2) {}
            Array.Copy(flux, 2, data, 0, flux.Length - 2)
            Dim hash As System.Security.Cryptography.MD5 = System.Security.Cryptography.MD5.Create()
            Dim md5hash As Byte() = hash.ComputeHash(data)
            Dim sb_hashcode As StringBuilder = New StringBuilder()
            For i As Integer = 0 To md5hash.Length - 1
                sb_hashcode.Append(md5hash(i).ToString("X2"))
            Next
            _hashCode = sb_hashcode.ToString()
            Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream(data)
            Dim ds As System.IO.Compression.DeflateStream = New System.IO.Compression.DeflateStream(ms, System.IO.Compression.CompressionMode.Decompress)
            _reader = New D2pReader(ds)
            Dim deflated As Byte() = _reader.ReadBytes(CInt(ds.Length))
            _reader = New D2pReader(New System.IO.MemoryStream(deflated))
            fs.Close()
        End Sub
Cordialement,
 
Inscrit
17 Février 2011
Messages
194
Reactions
0
#2
Code d'erreur ? Symptôme ? Ça beug où dans la compilation ou le l'exécution ?
 
A

Anonymous

Invité
#3
Les personnes ayant réussis à faire les d2p savent.
J'ai plusieurs class mais je n'ai pas envie de les mettre car Tifoux ne serrait pas d'accord et je respect son avis.
 
A

Anonymous

Invité
#4
Ok pour les class mais sans erreur concraite personne ne pourra t'aider.
 
A

Anonymous

Invité
#5
Je sais juste que l'erreur est dans cette fonction, plus précisent, mon msgbox me dit ligne 87, c'est à dire à ce point là.
Dim deflated As Byte() = _reader.ReadBytes(CInt(ds.Length))
_reader = New D2pReader(New System.IO.MemoryStream(deflated))
fs.Close()
 
Inscrit
17 Février 2011
Messages
194
Reactions
0
#6
Fait un try / catch et récupère l'exception qui est levée... Une bonne gestion d'erreurs permet de gagner beaucoup de temps au débogage. Et non, même les personnes qui ont déjà parsés les D2P ne peuvent pas connaitre le code d'erreur de ton programme à la louche comme ça, juste en regardant un bout d'code.

Lien utile : http://www.siteduzero.com/tutoriel-3-134802-gerer-les-erreurs.html
 
A

Anonymous

Invité
#7
Bonjour, j'ai fais ce que tu as dit Shornaal, donc
je recois en message d'erreur pour ma function

et l'autre erreur qui est normal puisque mon initialize n'ai pas correct
 
Haut Bas