Hex2Dec problem.

[punture]

I'm trying to make a stat hack and found out that the offset that holds the information of the mineral and gas are giving me this wierd symbols. So I learned that I must use the Hex2Dec function. I tried my best to figure out how to use that function and here is what I got.

Dim minbuffer0 As String
Dim minbuffer1 As String
Dim minbuffer2 As String
Dim minbuffer3 As String
Dim minbuffer4 As String
Dim minbuffer5 As String
Dim minbuffer6 As String
Dim minbuffer7 As String
Dim gasbuffer0 As String
Dim gasbuffer1 As String
Dim gasbuffer2 As String
Dim gasbuffer3 As String
Dim gasbuffer4 As String
Dim gasbuffer5 As String
Dim gasbuffer6 As String
Dim gasbuffer7 As String
Dim hwnd As Long
    Dim pid As Long
    Dim pHandle As Long
    Dim hProcess As Long

    hwnd = FindWindow(vbNullString, "Brood War")
    If (hwnd = 0) Then
        MsgBox "Window not found!"
        Exit Sub
    End If
    GetWindowThreadProcessId hwnd, pid
    pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (pHandle = 0) Then
        MsgBox "Couldn't get a process handle!"
        Exit Sub
    End If
    minbuffer0 = String(4, " ")
    minbuffer1 = String(4, " ")
    minbuffer2 = String(4, " ")
    minbuffer3 = String(4, " ")
    minbuffer4 = String(4, " ")
    minbuffer5 = String(4, " ")
    minbuffer6 = String(4, " ")
    minbuffer7 = String(4, " ")
    gasbuffer0 = String(4, " ")
    gasbuffer1 = String(4, " ")
    gasbuffer2 = String(4, " ")
    gasbuffer3 = String(4, " ")
    gasbuffer4 = String(4, " ")
    gasbuffer5 = String(4, " ")
    gasbuffer6 = String(4, " ")
    gasbuffer7 = String(4, " ")
    ReadProcessMemory pHandle, Hex2Dec("508600"), minbuffer0, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("508604"), minbuffer1, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("508608"), minbuffer2, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("50860C"), minbuffer3, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("508610"), minbuffer4, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("508614"), minbuffer5, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("508618"), minbuffer6, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("50861C"), minbuffer7, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("508630"), gasbuffer0, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("508634"), gasbuffer1, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("508638"), gasbuffer2, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("50863C"), gasbuffer3, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("508640"), gasbuffer4, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("508644"), gasbuffer5, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("508648"), gasbuffer6, 4, 0&
    ReadProcessMemory pHandle, Hex2Dec("50864C"), gasbuffer7, 4, 0&
    Text1.Text = Hex2Dec("minbuffer0")
    Text2.Text = Hex2Dec("minbuffer1")
    Text3.Text = Hex2Dec("minbuffer2")
    Text4.Text = Hex2Dec("minbuffer3")
    Text5.Text = Hex2Dec("minbuffer4")
    Text6.Text = Hex2Dec("minbuffer5")
    Text7.Text = Hex2Dec("minbuffer6")
    Text8.Text = Hex2Dec("minbuffer7")
    Text9.Text = Hex2Dec("gasbuffer0")
    Text10.Text = Hex2Dec("gasbuffer1")
    Text11.Text = Hex2Dec("gasbuffer2")
    Text12.Text = Hex2Dec("gasbuffer3")
    Text13.Text = Hex2Dec("gasbuffer4")
    Text14.Text = Hex2Dec("gasbuffer5")
    Text15.Text = Hex2Dec("gasbuffer6")
    Text16.Text = Hex2Dec("gasbuffer7")

As you can see.. I have pretty much no idea what I'm doing so help me out please :D

[LCSBSSRHXXX]

Umm, that doesn't help at all, post your "hex2dec" function.

[punture]

Public Function Hex2Dec(sText As String) As Long
    
    On Error GoTo err
    
    Dim H As String
    H = sText
    Dim Tmp$
    Dim lo1 As Integer, lo2 As Integer
    Dim hi1 As Long, hi2 As Long
    Const Hx = "&H"
    Const BigShift = 65536
    Const LilShift = 256, Two = 2
    Tmp = H

    If UCase(Left$(H, 2)) = "&H" Then Tmp = Mid$(H, 3)
    Tmp = Right$("0000000" & Tmp, 8)
    If IsNumeric(Hx & Tmp) Then
        lo1 = CInt(Hx & Right$(Tmp, Two))
        hi1 = CLng(Hx & Mid$(Tmp, 5, Two))
        lo2 = CInt(Hx & Mid$(Tmp, 3, Two))
        hi2 = CLng(Hx & Left$(Tmp, Two))
        Hex2Dec = CCur(hi2 * LilShift + lo2) * BigShift + (hi1 * LilShift) + lo1
    End If
    Exit Function
        
err:

End Function

here is the function.

[LCSBSSRHXXX]

If the buffer is storing a value that needs to be converted to hex why are you converting the offset,
try this:

    ReadProcessMemory pHandle, &H508600, minbuffer0, 4, 0&
    ReadProcessMemory pHandle, &H508604, minbuffer1, 4, 0&
    ReadProcessMemory pHandle, &H508608, minbuffer2, 4, 0&
    ReadProcessMemory pHandle, &H50860C, minbuffer3, 4, 0&
    ReadProcessMemory pHandle, &H508610, minbuffer4, 4, 0&
    ReadProcessMemory pHandle, &H508614, minbuffer5, 4, 0&
    ReadProcessMemory pHandle, &H508618, minbuffer6, 4, 0&
    ReadProcessMemory pHandle, &H50861C, minbuffer7, 4, 0&
    ReadProcessMemory pHandle, &H508630, gasbuffer0, 4, 0&
    ReadProcessMemory pHandle, &H508634, gasbuffer1, 4, 0&
    ReadProcessMemory pHandle, &H508638, gasbuffer2, 4, 0&
    ReadProcessMemory pHandle, &H50863C, gasbuffer3, 4, 0&
    ReadProcessMemory pHandle, &H508640, gasbuffer4, 4, 0&
    ReadProcessMemory pHandle, &H508644, gasbuffer5, 4, 0&
    ReadProcessMemory pHandle, &H508648, gasbuffer6, 4, 0&
    ReadProcessMemory pHandle, &H50864C, gasbuffer7, 4, 0&

[Dyndrilliac]

Public Function HexToDec(ByVal sHex As String) As Long
    On Error Resume Next
    Dim I As Integer, nDec As Long
    Const HexChar As String = "0123456789ABCDEF"
    For I = Len(sHex) To 1 Step -1
        nDec = nDec + (InStr(1, HexChar, Mid$(sHex, I, 1)) - 1) * 16 ^ (Len(sHex) - I)
    Next I
    HexToDec = CStr(nDec)
End Function

[l)ragon]

Public Function HexToDec(ByVal sHex As String) As Long
    On Error Resume Next
    HexToDec = val("&H" & sHex)
End Function

lazy way

[punture]

k thx for all of your help!! you all get rep points.. and the problem was solved !