Dim f1holder As Integer

Dim timer_pos As Long

 

'API Declaration

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

Private Declare Function ReadProcessMem 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 Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)

Dim hwnd As Long

Dim pid As Long

Dim phandle As Long

hwnd = FindWindow(vbNullString, gamewindowtext)

If (hwnd = 0) Then

MsgBox "Sorry, couldn't fin", vbCritical, "Error"

End

Exit Function

End If

GetWindowThreadProcessId hwnd, pid

phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

If (phandle = 0) Then

 

Exit Function

End If

ReadProcessMem phandle, address, valbuffer, 1, 0&

CloseHandle hProcess

End Function

 

Private Sub Command1_Click()

Me.Label1.Refresh

End Sub

 

Private Sub Form_Load()

 

Dim value As Byte

Call ReadAByte("SRO_Client", &11B9A224, value) '&H15200F94 is only a Exsampel you must 'selfe find the code;)

Me.Label1.Caption = "Your Skillpoints: " & value

End Sub