vb连连看生命无限辅助（单机）源码错在哪里？

1. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
2. Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
   
3. Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
   
4. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
   
5. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
   
6. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
   
7. Private Const PROCESS_VM_Operation = &H8&
   
8. Private Const PROCESS_VM_READ = &H10&
   
9. Private Const PROCESS_VM_WRITE = &H20&
   
10. 
    
11. 
    
12. Private Sub Timer1_Timer()
    
13. Dim hwnd As Long
    
14. Dim pId As Long
    
15. Dim pHandle As Long
    
16. hwnd = FindWindow(vbNullString, "连连看")
    
17. GetWindowThreadProcessId hwnd, pId
    
18. pHandle = OpenProcess(PROCESS_VM_Operation Or PROCESS_VM_READ Or PROCESS_VM_WRITE, 0, pId)
    
19. If pHandle = 0 Then
    
20. MsgBox "打开程序错误"
    
21. End If
    
22. WriteProcessMemory pHandle, &H12FEB8, 100, 1, 0& '生命
    
23. 
    
24. 
    
25. 
    
26. End Sub

复制代码

以上是我学习了VB之后通过网上视频教程写的代码，程序调试没有错，前面的API声明没有错就是下面的常量声明遇到了一些问题这些常量我在API浏览器中没有找到，这是我自己加上去的，我查过资料API函数调用不当就会导致整个VB程序崩溃，管理员帮我看一下这段代码如何修改一下谢谢。

楼主怎么又换VB了？
Dim hp as Long
hp=100
WriteProcessMemory pHandle, ByVal &H12FEB8, ByVal hp, 4, 0&

我学习易语言是为了更好的学习VB，我是一名网管我很想学点编程，希望管理员多多帮我，我刚学有些问题很幼稚让各位见笑了。。。。。。。。