Конференция VBStreets

**Kolobuk** » 14.02.2007 (Ср) 20:43

Код: Выделить всё: Dim X as Long ReadProcessMemory pHandle, &H93DA580, X, 4, 0& Text1 = X

- X получается 0, почему?
Если вместо Х считывать 4-х байтную строку, результат не нулевой (буковки корявые появляются всё время разные, т.к. значения в адресе меняется).

------------------------
В адресе значение не нулевое - это точно.

**GSerg** » 14.02.2007 (Ср) 21:00

Задекларировано как?

**Kolobuk** » 14.02.2007 (Ср) 21:01

Код: Выделить всё: 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 dwDesiredAcess 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, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddess As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWriten As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (Destination As Any, Source As Any, ByVal Length As Long) Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

-----------------------
Если X объявить как Single, снимается число близкое к 0 (2,505897E-39) - но это же не ноль. И Long не может показать ноль.