Valhalla Legends Forums Archive | Visual Basic Programming | I feel stupid

AuthorMessageTime
Barabajagal
[code]Private Declare Function CheckRevisionB Lib "CheckRevision.dll" (ByVal GameEXE As String, ByVal GameStorm As String, ByVal GameBattle As String, ByVal CRevRequest As String, ByRef EXEVersion As Long, ByRef Checksum As Long, ByVal CRevResult As String, ByVal CRevDLL As String) As Long

Public Sub TestCRev()
Dim sGameEXE    As String
Dim sGameStorm  As String
Dim sGameBattle As String
Dim sCRevReq    As String
Dim sDLLName    As String
Dim lEXEVer    As Long
Dim lChecksum  As Long
Dim sCrevRet    As String
Dim CRet        As Long
    sGameEXE = "C:\Program Files\Diablo II\Game.exe"
    sGameStorm = "C:\Program Files\Diablo II\Bnclient.dll"
    sGameBattle = "C:\Program Files\Diablo II\D2client.dll"
    sCRevReq = "A=166443184 B=361259356 C=197717253 4 A=A-S B=B-C C=C+A A=A+B"
    sDLLName = "ver-IX86-7.dll"
    CRet = CheckRevisionB(sGameEXE, sGameStorm, sGameBattle, sCRevReq, lEXEVer, lChecksum, sCrevRet, sDLLName)
    Debug.Print CRet & ": " & Hex$(lEXEVer) & " " & Hex$(lChecksum) & " " & sCrevRet
End Sub[/code]
Every time I run this, it crashes, saying
"AppName: vb6.exe AppVer: 6.0.97.82 ModName: checkrevision.dll
ModVer: 1.0.0.5 Offset: 00004a69r"

I can't figure out what's wrong for the life of me.
February 22, 2008, 8:14 PM
BreW
[me=brew]wonders if the dll likes writing to 0 length strings[/me]
February 22, 2008, 8:37 PM
Barabajagal
Oh... Duh. I knew I was gonna hate myself for not knowing this.
February 22, 2008, 8:41 PM
UserLoser
checkrevision export is stdcall?
February 24, 2008, 8:58 PM
Barabajagal
(This is Rob's DLL)
February 24, 2008, 9:10 PM

Search