植物大战僵尸修改器源码
‘壹’ 求易语言制作植物大战僵尸修改器源码
给好评，不给者死全家好人做到底:下载网站::
‘贰’ 易语言植物大战僵尸修改器代码哪里错了
PlantsVsZombies.exe
版本1.0.0.1051
如果你的游戏版本与我的相同，也就是说你的基址和偏移都是错误的~~！
你的方法============================
.版本
2
.子程序
_按钮1_被单击
.局部变量
阳光1,
整数型
.局部变量
阳光2,
整数型
.局部变量
阳光,
整数型
阳光1
＝
内存_读整数型
(进程ID,
进制_十六到十
(“6A9EC0”))
阳光2
＝
内存_读整数型
(进程ID,
阳光1
＋
进制_十六到十
(“768”))
阳光
＝
内存_读整数型
(进程ID,
阳光2
＋
进制_十六到十
(“5560”))
内存_写整数型
(进程ID,
阳光,
10000,
)
我的方法====================================
.版本
2
.子程序
_按钮1_被单击
.局部变量
一级地址,
整数型
.局部变量
二级地址,
整数型
一级地址
＝
内存类.内存读整数
(进程ID,
6987456,
)
＋
1896
二级地址
＝
内存类.内存读整数
(进程ID,
一级地址,
)
＋
21856
内存类.内存写整数
(进程ID,
二级地址,
到数值
(编辑框1.内容))
=============================
顺便说下，下面的代码似乎没用，因为无论该进程是否存在返回的都不是0(我用的模块是这样的)
.判断开始
(进程ID
≠
0)
标签1.标题
＝
“游戏已开启”
.默认
标签1.标题
＝
“游戏未打开”
.判断结束
‘叁’ 求植物大战僵尸的修改器（修改代码也行）
我给你说使用方法
点击右上角的 SFXMIN是关闭修改器的声音（不是游戏声音）。
所有快捷键都是小键盘使用（如果是笔记本电脑的话，需要先Fn+Num LK键，在按对应键盘上的小键盘键,一般是JKLUIO789那块）
用法是，先打开修改器，在运行游戏即可。
NUMPAD1 - 无限阳光（游戏中买植物用）
NUMPAD2 - 无限金币（买道具用）
NUMPAD3 - 无需冷却（没有冷却时间，可连续购买植物）
NUMPAD4 - 无限肥料（种植模式里用）
NUMPAD5 - 无限杀虫剂（同上）
NUMPAD6 - 无限巧克力（同上，喂给蜗牛使其工作速度全开）
NUMPAD7 - 无限大树食物（同上，给大树喂的，大树会告诉你一些秘籍）
NUMPAD8 - 冻结僵尸行动（游戏中僵尸将原地行走不前，但时间依旧再走）
NUMPAD9 - 花盆永远不会卖完（商店里的换盆购买无限）
‘肆’ 植物大战僵尸作弊源码
Option Explicit
Private Declare Function ReadProcessMemory _
Lib "Kernel32.dll" (ByVal hProcess As Long, _
ByRef lpBaseAddress As Any, _
ByRef lpBuffer As Any, _
ByVal nSize As Long, _
ByRef lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteProcessMemory _
Lib "Kernel32.dll" (ByVal hProcess As Long, _
ByRef lpBaseAddress As Any, _
ByRef lpBuffer As Any, _
ByVal nSize As Long, _
ByRef lpNumberOfBytesWritten As Long) As Long
Private Declare Function OpenProcess _
Lib "Kernel32.dll" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal hObject As Long) As Long
Private Const baseAddress As Long = &H6A9EC0
Private Const processName As String = "PlantsVsZombies.exe"
Private Sub cmdMoneyUnlimited_Click() '金钱无限
If cmdMoneyUnlimited.Caption = "启用金钱无限" Then
If GetPid = 0 Then
MsgBox "植物大战僵尸程序还未打开", vbInformation, "提示"
Exit Sub
End If
cmdMoneyUnlimited.Caption = "停止启用金钱无限"
Timer2.Interval = 1000
Timer2.Enabled = True
Else
cmdMoneyUnlimited.Caption = "启用金钱无限"
Timer2.Enabled = False
End If
End Sub
Private Sub cmdSunUnlimited_Click() '阳光无限
If cmdSunUnlimited.Caption = "启用阳光无限" Then
If GetPid = 0 Then
MsgBox "植物大战僵尸程序还未打开", vbInformation, "提示"
Exit Sub
End If
cmdSunUnlimited.Caption = "停止启用阳光无限"
Timer1.Interval = 1000
Timer1.Enabled = True
Else
cmdSunUnlimited.Caption = "启用阳光无限"
Timer1.Enabled = False
End If
End Sub
Private Sub WriteMemoryValue(ByVal baseAddress As Long, ByVal value As Long)
Dim hProcess As Long
hProcess = OpenProcess(&H1F0FFF, 0, GetPid)
WriteProcessMemory hProcess, ByVal baseAddress, value, 4, 0&
CloseHandle hProcess
End Sub
Private Function ReadMemoryValue(ByVal Address As Long) As Long
Dim hProcess As Long
Dim buffer As Long
hProcess = OpenProcess(&H1F0FFF, 0, GetPid)
ReadProcessMemory hProcess, ByVal Address, ByVal VarPtr(buffer), 4, 0&
CloseHandle hProcess
ReadMemoryValue = buffer
End Function
'根据进程获取PID
Private Function GetPid() As Long
Dim objWMIService, objProcess, colProcess
Dim strComputer
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "
ootcimv2")
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objProcess In colProcess
If objProcess.Name = processName Then
GetPid = objProcess.ProcessID
Exit For
End If
Next
Set objWMIService = Nothing
Set colProcess = Nothing
End Function
Private Sub Timer1_Timer() '阳光无限
Dim Address As Long
If GetPid = 0 Then
cmdMoneyUnlimited.Caption = "启用阳光无限"
Timer1.Enabled = False
Exit Sub
End If
Address = ReadMemoryValue(baseAddress) '基地址不会改变
Address = Address + &H768 '二级地址
Address = ReadMemoryValue(Address)
Address = Address + &H5560
WriteMemoryValue Address, &H1869F '&H1869F=99999
End Sub
Private Sub Timer2_Timer() '金钱无限
Dim Address As Long
If GetPid = 0 Then
cmdMoneyUnlimited.Caption = "启用金钱无限"
Timer2.Enabled = False
Exit Sub
End If
Address = ReadMemoryValue(baseAddress) '基地址不会改变
Address = Address + &H82C '二级地址
Address = ReadMemoryValue(Address)
Address = Address + &H28
WriteMemoryValue Address, &H1869F '&H1869F=99999
End Sub
‘伍’ 用VB制作植物大战僵尸修改器的代码
用Cheat Engine可以找的地址，你到网上搜一搜，会有一大堆的。下面是我找的一个地址，阳光的地址，然后进行修改的代码。测试有效！
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
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
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Sub Command1_Click()
Dim hwd As Long
Dim phandle As Long
Dim address As Long
Dim a As Long
a = &H1000
hwd = FindWindow(vbNullString, "植物大战僵尸中文版")
GetWindowThreadProcessId hwd, Pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, Pid)
If phandle Then
ReadProcessMemory ByVal phandle, ByVal &H6A9EC0, ByVal VarPtr(address), 4, 0&
ReadProcessMemory ByVal phandle, ByVal address + &H768, ByVal VarPtr(address), 4, 0&
WriteProcessMemory ByVal phandle, ByVal address + &H5560, ByVal VarPtr(a), 4, ByVal 0& '修改阳光数
End If
CloseHandle phandle
End Sub
‘陆’ 植物大战僵尸修改器大全
植物大战僵尸修改器v3.1功能详解：
功能键F1：给我一千阳光
功能键F2：取消冷却时间
功能键F3 : 三倍果墙抵抗
功能键F4 : 三倍南瓜抵挡
功能键F5 : 增强玉米大炮
功能键F6 : 增强食人植物
功能键F7 : 自动收集资源
功能键F8：强化资源属性
功能键F9：激活重叠放置
功能键F10：允许后台运行
功能键F11：给我一千块
功能键F12：我要长一百米
数字键9：开启透视功能
数字键9：启动终极必杀
可对冒险模式、迷你模式、解谜模式、生存模式进行跳关操作
如果您嫌钱太多，觉得没什么意思，可以选择一次性清零！植物大战僵尸修改器v3.1 中文版 http://www.3h3.com/patch/7289.html
‘柒’ 植物大战僵尸修改器的修改器版本
《植物大战僵尸》修改器V1.1最新公用版本
《植物大战僵尸》汉化版 & 年度版修改器 + 6
《植物大战僵尸》年度版修改器 + 10
《植物大战僵尸》年度中文版修改器 + 14
《植物大战僵尸》中英文版多功能修改器
《植物大战僵尸》卡片修改器v1.0
《植物大战僵尸》存档修改器 + 2
《植物大战僵尸》存档修改器：ZVP Healper
《植物大战僵尸》无尽生存模式出怪修改器
《植物大战僵尸》中文版多功能修改器(加强版)
《植物大战僵尸》英文版修改器v2 + 9
《植物大战僵尸》无尽出怪种类锁定器
《植物大战僵尸》汉化第二版多功能修改器v1.7.1
《植物大战僵尸》多功能修改器豪华版v1.3.9.201
《植物大战僵尸》原版多功能修改器 + 24
《植物大战僵尸》汉化第3版修改器 + 13
《植物大战僵尸》魔幻版修改器 + 12
《植物大战僵尸》魔幻版修改器 + 12
《植物大战僵尸》全版本通用修改器v0.7B
《植物大战僵尸》花园修改器v1.0
《植物大战僵尸》禅意花园修改器v2.0
《植物大战僵尸》IZE布阵工具
《植物大战僵尸》辅助工具v3.1
《植物大战僵尸》无敌修改器（中文版）
《植物大战僵尸》暴风雨无尽辅助器
《植物大战僵尸》全模式一键混乱器
《植物大战僵尸》v1.0修改器 + 9
《植物大战僵尸》PVZ修改器 + 4
《植物大战僵尸》v1.2.0.1065修改器 + 10
《植物大战僵尸》v1.0.1.1051修改器 + 7
《植物大战僵尸》v1.2.0.1073修改器v1.2(修正版) + 12
《植物大战僵尸》v1.0.0.1051自虐修改器v2.7
《植物大战僵尸》修改器游氓版v2.1
《植物大战僵尸》v1.0.0.1051修改器（纪念版） + 10
《植物大战僵尸》汉化版(原版)修改器 + 13
《植物大战僵尸》原版修改器 + 12
《植物大战僵尸》v1.2自虐修改器 + 3
《植物大战僵尸修改器》v2.0 中文免费版
