@VB Programmers (Conquer)

Public Function Tibia_Hwnd()
 Dim tibiaclient As Long
 tibiaclient = FindWindow("tibiaclient", vbNullString)
 
 'Return hwnd to function
 Tibia_Hwnd = tibiaclient
End Function

Public Function Memory_ReadLong(windowHwnd As Long, Address As Long) As Long
 
  ' Declare some variables we need
  Dim pid As Long     ' Used to hold the Process Id
  Dim phandle As Long   ' Holds the Process Handle
  Dim valbuffer As Long  ' Long
  
  ' First get a handle to the "game" window
  If (windowHwnd = 0) Then Exit Function
  
  ' We can now get the pid
  GetWindowThreadProcessId windowHwnd, pid
  
  ' Use the pid to get a Process Handle
  phandle = OpenProcess(PROCESS_VM_READ, False, pid)
  If (phandle = 0) Then Exit Function
  
  ' Read Long
  ReadProcessMemory phandle, Address, valbuffer, 4, 0&
    
  ' Return
  Memory_ReadLong = valbuffer
  
  ' Close the Process Handle
  CloseHandle phandle
 
End Function

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpNewBytes As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpNewBytes As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Const PROCESS_VM_READ = &H10
Const PROCESS_VM_WRITE = &H20
Const PROCESS_ALL_ACCESS = &H1F0FFF

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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, lpNewBytes 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 ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpNewBytes As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Const PROCESS_VM_READ = &H10
Const PROCESS_VM_WRITE = &H20
Const PROCESS_ALL_ACCESS = &H1F0FFF

'' THE COMMAND BUTTON
Private Sub Command1_Click()
Call open_conq
End Sub

''THE FUNCTION
Public Function open_conq()
 Dim conqclient As Long
 conqclient = FindWindow(vbNullString, "[Conquer2.0]")
 open_conq = conqclient
End Function