В какой переменной хранить значения адресов памяти?

[h2sp4]

Всем привет =) У меня есть один мааааленький вопрос.

Допустим, я использую процедуру ReadProcessMemory ([процесс], [адрес в памяти], [кол-во байт], [еще что-то])

Так вот, мне бы хотелось, чтобы параметр [адрес в памяти] можно было подставлять как переменную, т.е. что-то вроде:

Код: Выделить всё

Dim pid  As Long
Dim hProcess   As Long
Dim a As String    'еще пробовал как variant, как long - все равно не помогало

GetWindowThreadProcessId hwnd, pid
hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0&, pid)

a="&h5492918"
Call ReadProcessMemory(hProcess, a, 4, 0&)

где a - переменная, хранящая нужный мне hex адрес.

Но VB упорно ругается на а, или выдает не то значение, которое получается если вместо а напрямую писать &h5492918. Как мне задать a, чтобы была возможность подставлять нужный адрес?

[RayShade]

dim a as long

[h2sp4]

Спасиб =)

Еще вопросец: какой функцией из VB можно посылать команды (нажатие кнопок вроде F1, Enter, цифр, букв) в другие приложения?

[RayShade]

Можно использовать API SendMessage. Про то, какие сообщения и как посылать - можно погуглить.

[h2sp4]

А можно плз простенький пример с SendMessage? =( Я что-то туплю.
Допустим, мы в калькулятор посылаем нажатие кнопки F1. Что должно быть в модуле и какой код самой процедуры поиска калька и посылки запроса? (сорри за ламерство, что-то по поиску не разобрался)

[RayShade]

Private Declare Function SendMessageA Lib "user32" ( _

ByVal hWnd As Long, ByVal uMsg As Long, _

ByVal wParam As Long, ByVal lParam As Long) As Long





hWnd - окно приложения, куда шлем сообщение.

uMsg - код сообщения.



Поищи вообще по форуму, тут есть куча примеров.

[h2sp4]

Угу. Я искал. Но в том-то и проблема, что я видимо слишком глуп. Вот программа, которая по идее должна вызывать справку в калькуляторе, но что-то не работает - при нажатии кнопки ничего не происходит.

Код: Выделить всё

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_KEYDOWN = &H100
Private Const VK_F1 = &H70


Private Sub Command1_Click()
    Dim rc&
    rc& = FindWindow(vbNullString, "Калькулятор")
    Call PostMessage(rc&, WM_KEYDOWN, VK_F1, 0&)
End Sub



Кстати, забыл сказать, думаю, это важно. Нуна посылать нажатие клавиши свернутому (неактивному) окну.

[RayShade]

Я бы слал сообщения через send а не через post. Во вторых, проверил бы точно, какие там должны быть lparam/wparam.



В третьих, имя окна должно заканчиваться на chr(0).

[h2sp4]

Попробовал send, все то же. Как проверить lparam/wparam я не знаю, брал чужой пример. Но я так понимаю, что в sendmessage первый параметр - окно, второй - действие, третий - кнопка, четвертый - хз.

А что значит "имя окна должно заканчиваться на chr(0)"?

[RayShade]

Это значит что оно д.б. таким:



"Калькулятор"+Chr(0)

[BV]

В третьих, имя окна должно заканчиваться на chr(0).

Эм. Если мне не изменяет мой склероз, при вызове API-функции VB сам конвертирует строку из BSTR (которая сама по себе уже null-terminated) в LPSTR (так же null-terminated)...