我们已经学会如何监视血量达到加血的功能，其实自动***和加血的核心原理是一样的，同样是发送消息给游戏窗口，只不过要先通过按Tab键选去身边的怪然后按***快捷键打怪。 
提示：
SYSKEYDOWN = &H104
KeyDOWN = &H100
KeyUP = &H101
CHAR = &H102
SHIFT = &H10 
CONTROL = &H11 
MENU = &H12 
 = &H9 
[[eax]+ &H798] 
[[eax] + &H408] 
[[eax] + &H25C] 
[[[[eax]+&h8]+&h24]+&h14] 
2.我们要做一个小程序，用于显示地面上的所有物品。添加一个List控件、一个Time控件，如下图所示。
 
  
3.下面添加代码！
3.1.模块：
 


        ( lpClassName  ,  lpWindowName  )  

        ( hWnd1  ,  hWnd2  ,  lpsz1  ,  lpsz2  )  

      ( hwnd  , lpdwProcessId  )  

      ( dwDesiredAccess  ,  bInheritHandle  ,  dwProcessId  )  

      ( hObject  )  

      ( hProcess  ,  lpBaseAddress  ,  lpBuffer  ,  nSize  ,  lpNumberOfBytesWritten  )  

  PROCESS_ALL_ACCESS = &H1F0FFF
3.2.Form_Load:
 
 hwd  
 pid  
 hProcess   
  Form_Load()
hwd = (, )
 hwd = 0 
   , vbOKOnly, 
   Form1
 
 hwd, pid   


hProcess = (PROCESS_ALL_ACCESS, 0, pid)
 hProcess = 0 
   , vbOKOnly, 
   Form1
 
 
3.3.Timer_Timer:

  Timer1_Timer() 
      
 mecxi     
 pn     
 WpName(65)   
List1.Clear 
 hProcess 
   hProcess,  &H8C9E54, mecxi, 4, 0
   hProcess,  mecxi + &H8, mecxi, 4, 0
   hProcess,  mecxi + &H24, mecxi, 4, 0 
   mecxi <> 0 
     pn = 0  768   
       hProcess,  mecxi + &H18, , 4, 0
       hProcess,   + pn * 4, , 4, 0   
        > 0  
           hProcess,   + 4, , 4, 0
           hProcess,   + &H164, , 4, 0
           hProcess,  , WpName(0), 64, 0   
           List1.AddItem WpName   
         
     pn
   
 
 
3.4.Form_Unload：
  Form_Unload(Cancel  )
 hProcess
 
 
  
 
 
  
 
  
 
 
  
OK收工.