Bnetauth.dll issues

[Tazo]

I am having trouble using the hash function.

Code Select Expand


Dim RevisionCheck As Long
Dim exeinfo As String
Dim checksum As Long
Dim version As Long
exeinfo = Space(256)
RevisionCheck = z(App.Path & "\StarCraftJ.exe", _
                App.Path & "\storm.dll", App.Path & "\battle.snp", _
                modDeclares.ValueString, version, checksum, exeinfo, "IX86ver2.mpq")
If RevisionCheck = "0" Then
    AddText vbRed, "Failed version check!"
    frmMain.sckBnet.Close
    Exit Sub
End If

Unfortunately, RevisionCheck is returning 0 every time. I'm not sure why. My value string is not the problem. thanks in advance.

[Hdx]

If I remember correctly, the MPQ info is a long and it's the MPQ number, not the full string.
~-~(HDX)~-~

[Tazo]

I dont think it is, I pull it out by

Code Select Expand


modDeclares.MPQName = Mid(Data, InStr(1, Data, "IX86ver"), Len(Data))
modDeclares.MPQName = Mid(MPQName, 1, 12)

and also its IX86ver4.mpq not 2, but that doesnt matter.. anyways, ive been using the MPQ name for SC/BW and its worked fine.

also::
im pulling out the hashcommand by

Code Select Expand


Case &H6
                modDeclares.ValueString = Mid(Data, 24, Len(Data) - 2)


[Hdx]

I'm refering to when passing it to Z()

Code Select Expand

RevisionCheck = z(App.Path & "\StarCraftJ.exe", _
                App.Path & "\storm.dll", App.Path & "\battle.snp", _
                modDeclares.ValueString, version, checksum, exeinfo, "IX86ver2.mpq")
Should be

Code Select Expand

RevisionCheck = z(App.Path & "\StarCraftJ.exe", _
                App.Path & "\storm.dll", App.Path & "\battle.snp", _
                modDeclares.ValueString, version, checksum, exeinfo, &H2)



Also I suggest you learn to use a 'debuffer' class. Like this
Helps a lot in keeping ti straight in your mind.
~-~(HDX)~-~

[Tazo]

Ok, I got it thanks

[l2k-Shadow]

Use BNCSUtil.

[UserLoser]

I dont think it is, I pull it out by

Code Select Expand


modDeclares.MPQName = Mid(Data, InStr(1, Data, "IX86ver"), Len(Data))
modDeclares.MPQName = Mid(MPQName, 1, 12)


Data = ...IX86ver1.mpq...
InStr(Data, "IX86ver1.mpq") = 4
MpqName = Mid(Data, 4) = "IX86ver1.mpq..."
MpqName = Mid(MpqName, 1, 12) = "IX86ver1.mpq"
MpqName = "IX86ver1.mpq"

That doesn't get the number and store it into a long variable..all it does is use the crappiest way possible to pull out a string from another string.

and also its IX86ver4.mpq not 2, but that doesnt matter.. anyways, ive been using the MPQ name for SC/BW and its worked fine.

By the way, there's more than just one IX86ver MPQ

[Joe[x86]]

People who don't use packet-reading classes just make me laugh.

[Eric]

People who don't use packet-reading classes just make me laugh.

People who refer to temporary data buffers as "packet-reading classes" make me laugh.

[warz]

The same pointless topics, arguments and scenarios being played out on these forums for the past several years makes me laugh.

[Joe[x86]]

People who don't use packet-reading classes just make me laugh.

People who refer to temporary data buffers as "packet-reading classes" make me laugh.

Oh? Well what should it be called, my king?

[MyndFyre]

People who don't use packet-reading classes just make me laugh.

People who refer to temporary data buffers as "packet-reading classes" make me laugh.

Note that people typically aren't referring to data buffers themselves as the mechanisms by which meaningful data is read from them.