module

Option Explicit

Public Declare Function D8A681DE Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwID As Long) As Long
Public Declare Function B99B9EEF Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwID As Long) As Long
Public Declare Function DBE400D1 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function AE3F95B9 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function F1B2AAF1 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function D80555F3 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function E6FE487C Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

'WriteALong
Public Function E2BE9DB7(AC1DD600 As Long, EA69628F As Long)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long

B8AE2B13= F1B2AAF1(vbNullString, "WarRock")

If (B8AE2B13= 0) Then
Exit Function
End If

D8A681DE B8AE2B13,A4EF8B4D

A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)

If (A199DFD1= 0) Then
Exit Function
End If

DBE400D1 A199DFD1,AC1DD600,EA69628F,4, 0&

AE3F95B9 A199DFD1
End Function

'WriteAByte
Public Function CB21D5D8(AC1DD600 As Long, EA69628F As Byte)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long

B8AE2B13= F1B2AAF1(vbNullString, "WarRock")

If (B8AE2B13= 0) Then
Exit Function
End If

D8A681DE B8AE2B13,A4EF8B4D

A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)

If (A199DFD1= 0) Then
Exit Function
End If

DBE400D1 A199DFD1,AC1DD600,EA69628F,1, 0&

AE3F95B9 A199DFD1
End Function

'WriteAFloat
Public Function A55D798B(AC1DD600 As Long, EA69628F As Double)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long

B8AE2B13= F1B2AAF1(vbNullString, "WarRock")

If (B8AE2B13= 0) Then
Exit Function
End If

D8A681DE B8AE2B13,A4EF8B4D

A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)

If (A199DFD1= 0) Then
Exit Function
End If

DBE400D1 A199DFD1,AC1DD600,EA69628F,4, 0&

AE3F95B9 A199DFD1
End Function

'ReadALong
Public Function C2646E6D(AC1DD600 As Long, EA69628F As Long)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long

B8AE2B13= F1B2AAF1(vbNullString, "WarRock")

If (B8AE2B13= 0) Then
Exit Function
End If

D8A681DE B8AE2B13,A4EF8B4D

A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)

If (A199DFD1= 0) Then
Exit Function
End If

D80555F3 A199DFD1,AC1DD600,EA69628F,4, 0&

AE3F95B9 A199DFD1
End Function

'ReadAByte
Public Function A4D2B04C(AC1DD600 As Long, EA69628F As Byte)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long

B8AE2B13= F1B2AAF1(vbNullString, "WarRock")

If (B8AE2B13= 0) Then
Exit Function
End If

D8A681DE B8AE2B13,A4EF8B4D

A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)

If (A199DFD1= 0) Then
Exit Function
End If

D80555F3 A199DFD1,AC1DD600,EA69628F,1, 0&

AE3F95B9 A199DFD1
End Function

'ReadAFloat
Public Function D298A93C(AC1DD600 As Long, EA69628F As Double)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long

B8AE2B13= F1B2AAF1(vbNullString, "WarRock")

If (B8AE2B13= 0) Then
Exit Function
End If

D8A681DE B8AE2B13,A4EF8B4D

A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)

If (A199DFD1= 0) Then
Exit Function
End If

D80555F3 A199DFD1,AC1DD600,EA69628F,4, 0&

AE3F95B9 A199DFD1
End Function

'WriteASM
Public Function A2E8481F(Address As Long, ASM As String)
Dim i As Integer
Dim i2 As Integer

i2 = 1
While i < (Len(ASM) / 2)
Call CB21D5D8(Address + i, &H0, Val("&H" & Mid$(" & ASM & ", i2, 2)))
i = i + 1
i2 = i2 + 2
Wend
End Function