Problem Applying Aobscan

[DNA]

change

Visual Basic Code

1 2 3 4 5 6 7 8 9 10 11 12 13

If GetAsyncKeyState(Keys.NumPad1) = &HFFFF8001 Then            Dim cave As Integer = Allocmem()            Dim firstscan As Int32            firstscan = AOBSCAN("Brink", "brink", New Byte() {&H8B, &H9F, &H98, &H1B, &H0, &H0, &HD9, &HE8, &H33, &HF6})            If Not firstscan = 0 Then                WriteASM(cave, New Byte() {&HC7, &H87, &H98, &H1B, &H0, &H0, &HF4, &H1, &H0, &H0, &H8B, &H9F, &H98, &H1B, &H0, &H0, &HC3})                WriteByte(cave + &H630, firstscan)                AllocJump(firstscan, cave + &H9999, 1)            End If            sapi.speak("Activated")        End If

---

to

Visual Basic Code

1 2 3 4 5 6 7 8 9 10 11 12 13 14

If GetAsyncKeyState(Keys.NumPad1) = &HFFFF8001 Then            Dim cave As Integer = Allocmem()            Dim firstscan As Int32            firstscan = AOBSCAN("Brink", "brink", New Byte() {&H8B, &H9F, &H98, &H1B, &H0, &H0, &HD9, &HE8, &H33, &HF6})            If Not firstscan = 0 Then                WriteASM(cave, New Byte() {&HC7, &H87, &H98, &H1B, &H0, &H0, &HF4, &H1, &H0, &H0, &H8B, &H9F, &H98, &H1B, &H0, &H0, &HC3})                WriteByte(cave + &H630, firstscan)                AllocJump(firstscan, cave , 5)                AllocJump(cave+17 ,firstscan+5 ,0)            End If            sapi.speak("Activated")        End If

---

And change

Visual Basic Code

1 2 3 4 5 6 7 8 9 10 11

Public Function AllocJump(ByVal source As Int32, ByVal destination As Int32, Optional ByVal Nops As Integer = 0) As Boolean 'Creates a jump from the specified address to a destination address        WriteByte(source, &HE8)        WriteInt32(source + 1, destination - source - 5)        If Nops = 0 Then            Return 0        End If        For i As Int32 = 1 To Nops            WriteByte(source + 4 + i, &H90)        Next        Return 0    End Function

---

to

Visual Basic Code

1 2 3 4 5 6 7 8 9 10 11

Public Function AllocJump(ByVal source As Int32, ByVal destination As Int32, Optional ByVal Nops As Integer = 0) As Boolean 'Creates a jump from the specified address to a destination address        WriteByte(source, &HE9)        WriteInt32(source + 1, destination - source - 5)        If Nops = 0 Then            Return 0        End If        For i As Int32 = 1 To Nops            WriteByte(source + 4 + i, &H90)        Next        Return 0    End Function

---

Why do you have this one?

Visual Basic Code

WriteByte(cave + &H630, firstscan)

---