VPF::Оффсет - Форум программистов

aclips

Дата 15.4.2011, 15:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 1.6.2008

Репутация: нет
Всего: нет

Привет. Подскажите пожалуйста, как можно вывести значение переменной, зная её оффсет (адресок) ? Грубо говоря адрес переменной с именем кошки по адресу 5CC, можно ли каким-либо образом присвоить переменной cat значение переменной по адресу 5CC (Мурка) =)

Dexx

Дата 15.4.2011, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7

http://chemax.ru/articles/trainer_vb.php

--------------------

aclips

Дата 17.4.2011, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 1.6.2008

Репутация: нет
Всего: нет

Пример из статьи не рабочий! Предоставлю рабочий код:

Код


Option Explicit
 
Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_VM_WRITE = &H20
Private Const PROCESS_VM_OPERATION = &H8
Private Const PROCESS_VM = PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE 'полный доступ к проц.
 
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 ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByVal lpBuffer As Long, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAdress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Private Sub Form_Load()
  
  Dim hW As Long, PId As Long, hP As Long, buf As Long, dot As Long
  
 
  hW = FindWindow(vbNullString, "имя окHа")
  Call GetWindowThreadProcessId(hW, PId)


  Call ReadProcessMemory(hP, &H16й адрес, VarPtr(buf), 4, 0&)   'чтеHие

 MsgBox buf

  Call WriteProcessMemory(hP, &H16й адрес, "зHачеHие", 4, 0&) 'запись
  
   Call CloseHandle(hP)
 Unload Me
 
 
End Sub

Dexx

Дата 18.4.2011, 09:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7

пожалуйста

--------------------

aclips

Дата 18.4.2011, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 1.6.2008

Репутация: нет
Всего: нет

Спасибо =)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »