Здравствуйте! У меня такая проблема хотел написать трейнер по одной статье тут вот такой код:

Private Sub Command1_Click()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
hwnd = FindWindow(vbNullString, "Sims")
If (hwnd = 0) Then
MsgBox Not "Window not found"
Exit Sub
End If
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (pHandle = 0) Then
MsgBox "Couldn"
Exit Sub
End If
WriteProcessMemory pHandle, &1110BCC, "Beans", 5, 0&
CloseHandle hProcess
End Sub

Private Sub ReadTimer_Timer()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
Dim str As String * 20
hwnd = FindWindow(vbNullString, "Sims")
If (hwnd = 0) Then Exit Sub
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (pHandle = 0) Then Exit Sub
ReadProcessMemory pHandle, &H1110BCC, str, 20, 0&
txtDisplay = str
CloseHandle hProcess
End Sub

При компиляции он мне выдаёт ошибку, и указывает на тот участок кода, который я выделил жирным красным цветом. Ребят подскажите, что тут не так и как исправить !

Тебе надо кинуть на форму таймер и объявить функции GetWindowThreadProcessId и WriteProcessMemory.

Цитата(cardinal @ 20.8.2005, 16:04)

Тебе надо кинуть на форму таймер и объявить функции GetWindowThreadProcessId и WriteProcessMemory.

Так есть же таймер:

Код

Private Sub ReadTimer_Timer() Dim hwnd As Long Dim pid As Long Dim pHandle As Long Dim str As String * 20 hwnd = FindWindow(vbNullString, "Sims") If (hwnd = 0) Then Exit Sub GetWindowThreadProcessId hwnd, pid pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid) If (pHandle = 0) Then Exit Sub ReadProcessMemory pHandle, &H1110BCC, str, 20, 0& txtDisplay = str CloseHandle hProcess End Sub

Это только его процедура.

Читай тут:
http://www.microsoft.com/Rus/Msdn/Activ/MS.../Sleep/182.mspx

Взято оттуда:
Вначале поместите на форму таймер (Timer1) и установите его свойство Interval=0 и свойство Enabled=False.

Цитата(cardinal @ 20.8.2005, 16:28)

Это только его процедура. Читай тут: http://www.microsoft.com/Rus/Msdn/Activ/MS.../Sleep/182.mspx Взято оттуда: Вначале поместите на форму таймер (Timer1) и установите его свойство Interval=0 и свойство Enabled=False.

Блин... тоже самое пишет...
cardinal - не мог бы ты мне помочь !? и отредактировать код так как надо !? Очень прошу... Не получется не фига
Добавлено @ 17:57
Да, кстати в модуле у меня вот такие API'шки:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAcess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
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
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
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Какая ошибка то?

Цитата(cardinal @ 20.8.2005, 18:01)

Какая ошибка то?

Вот весь код:

Private Sub Command1_Click()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
hwnd = FindWindow(vbNullString, "Sims")
If (hwnd = 0) Then
MsgBox Not "Window not found"
Exit Sub
End If
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (pHandle = 0) Then
MsgBox "Couldn"
Exit Sub
End If
WriteProcessMemory pHandle, &1110BCC, "Beans", 5, 0&
CloseHandle hProcess
End Sub

Private Sub ReadTimer_Timer()
Dim hwnd As Long
Dim pid As Long
Dim pHandle As Long
Dim str As String * 20
hwnd = FindWindow(vbNullString, "Sims")
If (hwnd = 0) Then Exit Sub
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (pHandle = 0) Then Exit Sub
ReadProcessMemory pHandle, &H1110BCC, str, 20, 0&
txtDisplay = str
CloseHandle hProcess
End Sub

Запускаю я программу вожжу значение. (для денег например) и вылетает ошибка -

Compile Error:
Sub or Function nor definded

И указывает на то, что я выделил жирным красным шрифтом.

Так добавь в модуль объявление этой функции наподобии

Код

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAcess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 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 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 Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Но теперь Basic мне пишет, что ошибка в синтаксисе:

WriteProcessMemory pHandle, &1110BCC, "Beans", 5, 0&

Во первых не &1110BCC, а &H1110BCC если уж на то пошло...

Эх.... Ну ладно не буду я тебя мучить своими вопросами . Но теперь он нормально проходит компиляцию, но сам трейнер не рабоает. cardinal большое спасибо что помог.

Цитата(Olly @ 21.8.2005, 08:16)

Эх.... Ну ладно не буду я тебя мучить своими вопросами

Да, нет мучить ты меня не мучаешь. Дело в том, что я просто вижу, что ты взялся за изучение языка с середины книги, а не с начала. Сам понимаешь, что за тебя я не буду писать, то что ты хочешь (для этого у нас раздел "работа" есть).

Чтобы написать прогу (или запустить ее так, чтобы был нужный результат) надо определиться/понять, что она вообще должна делать. Вот попробуй объяснить мне построчно, что происходит в этой программе и ты сам поймешь, почему ты не можешь получить нужный результат.

он хочет записать своё в память процесса игры симсов. но в винде память процессов изолирована.. и не помню никакой вритепроцессмемори.. бред имхо. источник кода?

гы-гы..

Цитата

В WinNT выполнению ф-ции может помешать система безопасности

Dan Appleman, Win32 API в VB

подскажите плиз у меня в этом коде выдаёт ошибку при компеляции ехе файла на строке с кодом PROCESS_ALL_ACCESS