
Originally Posted by
nub_g0t_high
this code won't compile. and will this work on the updated warrock?
Code:
Dim f1holder As Integer
Dim timer_pos As Long
'API Declaration
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