Sobe
03-29-2008, 02:21 PM
ok so i wanted to make boneshot using ASM codes but i have a problem with the WriteASM module
here is my module:
'WriteAByte
Public Function qwertyH(DDC50B45 As Long, F6109BFB As Byte)
Dim qwertyI As Long
Dim qwertyJ As Long
Dim qwertyK As Long
qwertyI = qwertyE(vbNullString, "WarRock")
If (qwertyI = 0) Then
Exit Function
End If
qwertyA qwertyI, qwertyK
qwertyJ = qwertyB(&H1F0FFF, False, qwertyK)
If (qwertyJ = 0) Then
Exit Function
End If
qwertyC qwertyJ, DDC50B45, F6109BFB, 1, 0&
qwertyD qwertyJ
End Function
'WriteASM
Public Function qwertyL(Address As Long, ASM As String)
Dim qwertyM As Integer
Dim qwertyN As Integer
qwertyN = 1
While qwertyM < (Len(ASM) / 2)
Call qwertyH(Address + qwertyM, Val("&H" & Mid$(ASM, qwertyN, 2)))
qwertyM = qwertyM + 1
qwertyN = qwertyN + 2
Wend
End Function
after i coded boneshot and everything, i go to make the hack but i get an error on the line
Call qwertyH(Address + qwertyM, Val("&H" & Mid$(ASM, qwertyN, 2)))
Argument Not Optional for "qwertyH", how do i fix???
here is my module:
'WriteAByte
Public Function qwertyH(DDC50B45 As Long, F6109BFB As Byte)
Dim qwertyI As Long
Dim qwertyJ As Long
Dim qwertyK As Long
qwertyI = qwertyE(vbNullString, "WarRock")
If (qwertyI = 0) Then
Exit Function
End If
qwertyA qwertyI, qwertyK
qwertyJ = qwertyB(&H1F0FFF, False, qwertyK)
If (qwertyJ = 0) Then
Exit Function
End If
qwertyC qwertyJ, DDC50B45, F6109BFB, 1, 0&
qwertyD qwertyJ
End Function
'WriteASM
Public Function qwertyL(Address As Long, ASM As String)
Dim qwertyM As Integer
Dim qwertyN As Integer
qwertyN = 1
While qwertyM < (Len(ASM) / 2)
Call qwertyH(Address + qwertyM, Val("&H" & Mid$(ASM, qwertyN, 2)))
qwertyM = qwertyM + 1
qwertyN = qwertyN + 2
Wend
End Function
after i coded boneshot and everything, i go to make the hack but i get an error on the line
Call qwertyH(Address + qwertyM, Val("&H" & Mid$(ASM, qwertyN, 2)))
Argument Not Optional for "qwertyH", how do i fix???