植物大戰僵屍修改器源碼
『壹』 求易語言製作植物大戰僵屍修改器源碼
給好評，不給者死全家好人做到底:下載網站::
『貳』 易語言植物大戰僵屍修改器代碼哪裡錯了
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 中文免費版
