1. 
   
2. 闲来无聊，下了个连连看不过难度太高 玩不过于是花了点时间弄了个挂出来
   
3. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
4. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
   
5. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
   
6. Private Const PROCESS_ALL_ACCESS = &H1F0FFF
   
7. 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
   
8. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
   
9. 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
   
10. 
    
11. 
    
12. Private Sub Command1_Click()
    
13. Dim hwnd As Long, Pid As Long, HProcess As Long
    
14. Dim Zhi As Long, Dizhi As Long, Pianyi As Long
    
15. hwnd = FindWindow(vbNullString, "连连看 v4.7")
    
16.     '判断FindWindow返回的值是否为0
    
17.     GetWindowThreadProcessId hwnd, Pid
    
18.     ' 取得进程标识符
    
19.     HProcess = OpenProcess(PROCESS_ALL_ACCESS, False, Pid) '以最好权限打开进程
    
20.     Zhi = 1244860  '这里是基地址,本来是十六进制,但是我们要把他转换成十进制的
    
21.     Pianyi = 2748
    
22.     Call ReadProcessMemory(HProcess, ByVal Zhi, Dizhi, 4, 0&)
    
23.     Call ReadProcessMemory(HProcess, ByVal Dizhi + Pianyi, Dizhi, 4, 0&) '这里的52是偏移量34的十进制,本来也是十六进制的,但是已经转好了
    
24.     WriteProcessMemory HProcess, ByVal &H12FEBC, 9999, 4, 0&
    
25.     Call CloseHandle(HProcess)
    
26. End Sub
    
27. Private Sub Command2_Click()
    
28. Dim hwnd As Long, Pid As Long, HProcess As Long
    
29. Dim Zhi As Long, Dizhi As Long, Pianyi As Long
    
30. hwnd = FindWindow(vbNullString, "连连看 v4.7")
    
31.     '判断FindWindow返回的值是否为0
    
32.     GetWindowThreadProcessId hwnd, Pid
    
33.     ' 取得进程标识符
    
34.     HProcess = OpenProcess(PROCESS_ALL_ACCESS, False, Pid) '以最好权限打开进程
    
35.     Zhi = 1244860  '这里是基地址,本来是十六进制,但是我们要把他转换成十进制的
    
36.     Pianyi = 2748
    
37.     Call ReadProcessMemory(HProcess, ByVal Zhi, Dizhi, 4, 0&)
    
38.     Call ReadProcessMemory(HProcess, ByVal Dizhi + Pianyi, Dizhi, 4, 0&) '这里的52是偏移量34的十进制,本来也是十六进制的,但是已经转好了
    
39.     WriteProcessMemory HProcess, ByVal &H12FEB8, 9999, 4, 0&
    
40.     Call CloseHandle(HProcess)
    
41. End Sub
    
42. Private Sub Form_Load()
    
43. Dim hwnd As Long
    
44.   hwnd = FindWindow(vbNullString, "连连看 v4.7")
    
45.   If (hwnd = 0) Then '判断FindWindow返回的值是否为0
    
46.   MsgBox "连连看V4.7没有运行，请运行后再使用本程序！", vbOKOnly, "友情提示"
    
47.   Unload Me
    
48.   End If
    
49. End Sub
    
50. Private Sub Timer1_Timer()
    
51. Dim hwnd As Long, Pid As Long, HProcess As Long
    
52. Dim Zhi As Long, Dizhi As Long, Pianyi As Long
    
53. hwnd = FindWindow(vbNullString, "连连看 v4.7")
    
54.     '判断FindWindow返回的值是否为0
    
55.     GetWindowThreadProcessId hwnd, Pid
    
56.     ' 取得进程标识符
    
57.     HProcess = OpenProcess(PROCESS_ALL_ACCESS, False, Pid) '以最好权限打开进程
    
58.     Zhi = 1244860  '这里是基地址,本来是十六进制,但是我们要把他转换成十进制的
    
59.     Pianyi = 2748
    
60.     Call ReadProcessMemory(HProcess, ByVal Zhi, Dizhi, 4, 0&)
    
61.     Call ReadProcessMemory(HProcess, ByVal Dizhi + Pianyi, Dizhi, 4, 0&)   '这里的52是偏移量34的十进制,本来也是十六进制的,但是已经转好了
    
62.     Label1.Caption = "当前提示次数：" & Dizhi '这里是血的地址,血地址=基地址+偏移量34
    
63. End Sub
    
64. Private Sub Timer2_Timer()
    
65. Dim hwnd As Long, Pid As Long, HProcess As Long
    
66. Dim Zhi As Long, Dizhi As Long, Pianyi As Long
    
67.     hwnd = FindWindow(vbNullString, "连连看 v4.7")
    
68.     '判断FindWindow返回的值是否为0
    
69.     GetWindowThreadProcessId hwnd, Pid
    
70.     ' 取得进程标识符
    
71.     HProcess = OpenProcess(PROCESS_ALL_ACCESS, False, Pid) '以最好权限打开进程
    
72.     Zhi = 1244856  '这里是基地址,本来是十六进制,但是我们要把他转换成十进制的
    
73.     Pianyi = 2752
    
74.     Call ReadProcessMemory(HProcess, ByVal Zhi, Dizhi, 4, 0&)
    
75.     Call ReadProcessMemory(HProcess, ByVal Dizhi + Pianyi, Dizhi, 4, 0&) '这里的52是偏移量34的十进制,本来也是十六进制的,但是已经转好了
    
76.     Label2.Caption = "当前洗牌次数：" & Dizhi '这里是血的地址,血地址=基地址+偏移量34
    
77. End Sub
    

复制代码

这个怎么用啊

回复 2# 8mov电影


    把源码复制到VB工程里，然后编译一下，就OK了。。