Checkrevision failure

[Dale]

Could someone list out why check revision would fail? Other then the obvious reason of hashes in wrong directory.


...Ugh Fuck sorry guys, wrong place to post.

[topaz]

Bad hashes?

[Dale]

Uh, Yeah other then that, as in coding errors.

[warz]

Naturally, some pasted code would help us find coding errors.

[UserLoser]

CheckRevision() shouldn't fail because you shouldn't be able to run the game without the necessary files.  The first file uses GetModuleHandle(NULL) instead of CreateFile() for the handle...Contact Blizzard Tech Support using another client that works to let them know of your problems.

[Dale]

Heh, I'll send you the coding but it's messy as hell. 

[Dale]

Alrighty, here is where it gives me check revision failure.

Code Select Expand


  HF = GetHashFiles
                          Debugtxt vbYellow, "Checking hashfiles..."
                    If (checkRevision(ValueString, HF(0), HF(1), HF(2), NewMPQNumber, Checksum) = False) Then
                        frmMain.SckBnet.Close
                        AppendText LtRed, "Checkrevision failed!"
                        Exit Function
                    End If


This is the GetHashFiles function

Code Select Expand


Public Function GetHashFiles() As String()

    Dim HashFiles(2) As String
   
        Select Case UCase(BOT_PRODUCT)
            Case "RATS", "PXES"
                HashFiles(0) = App.Path & "\STAR\starcraft.exe"
                HashFiles(1) = App.Path & "\STAR\storm.dll"
                HashFiles(2) = App.Path & "\STAR\battle.snp"
        End Select

End Function


[Yegg]

You showed us the call to CheckRevision. You didn't show us the code for CheckRevision or atleast where you got it from and you didn't show us the data of the variables being sent to CheckRevision.

[Dale]

Alright, I see.

[topaz]

Alrighty, here is where it gives me check revision failure.

Code Select Expand


  HF = GetHashFiles
                          Debugtxt vbYellow, "Checking hashfiles..."
                    If (checkRevision(ValueString, HF(0), HF(1), HF(2), NewMPQNumber, Checksum) = False) Then
                        frmMain.SckBnet.Close
                        AppendText LtRed, "Checkrevision failed!"
                        Exit Function
                    End If


This is the GetHashFiles function

Code Select Expand


Public Function GetHashFiles() As String()

    Dim HashFiles(2) As String
   
        Select Case UCase(BOT_PRODUCT)
            Case "RATS", "PXES"
                HashFiles(0) = App.Path & "\STAR\starcraft.exe"
                HashFiles(1) = App.Path & "\STAR\storm.dll"
                HashFiles(2) = App.Path & "\STAR\battle.snp"
        End Select

End Function


That looks off, for some reason...

[Dale]

Yeah, I fixed a few things that were pretty messed up, but uh now im sending 0x50 ok, but then I get IP Banned.

[rabbit]

Then you're obviously not sending it ok.

[Dale]

Well, thats not necessarily true, you can get IP Banned for other reasons, it's just like saying when you spam, get IP Banned your sending 0x50 wrong. Which isn't true.

[warz]

No... but, you ARE sending 0x50 wrong and getting ip banned for it. So, really, comparing this to spamming in this situation isn't really the same. You can't even spam yet. :-)

[Dale]

Hah, True I can't, considering I don't have any chatting events (not that matters) but hrm...So could this whole Check Revision Failure be due to my 0x50 wrong?